SetWindowHookEx와 같은 API함수를 이용하여 시스템전체의 메세지나 이벤트를

장악하시면 됩니다. 쉽게 말하면 메세지 훅킹 프로그램을 만드는 거죠...



mad wrote:

> 컴퓨터를 끄기 전까지는 윈도우화면에서 항상 활성화시키는 방법이 없을까요?

> 즉 시작프로그램에 등록시키면 Alt+Tab이나 윈도우즈시작버튼이나 뭐 이런키들을

> 사용못하게하고(다른 응용프로그램을 사용 못하게하고) 또 윈도우즈 단축키도 못쓰게

> 만들고 오직 하나의 프로그램을 위해 작동하고 키입력을 기다리는 프로그램을

> 만들고 싶은데요.

> 방법이 없을까요? 좀 무식한 질문이지만 꼭 만들어야해요.

> 물론 다른 단축키로 이런 설정을 해제할 수도 있으면 좋겠죠.

> 고수님들의 도움을 기다리겠습니다.

고수는 아니지만 그냥 한번 올려 봅니다.

아래의 소스는 ctrl + alt + del을 눌렀을때 내가 만든 프로그램은 안뜨게 하는 것입니다.

자 한번 해 보셔요! 나도 초보지만 서로 도와가는 삶을 위하여..

초보 파이팅! 행복하셔요! 대전에서....



unit Unit1;



Interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;



type

TForm1 = class (TForm)

Button1 : TButton;

procedure FormDestroy (Sender: TObject);

procedure FormCreate (Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;



var

Form1 : TForm1;



implementation



{$R *.DFM}



const

RSPSIMPLESERVICE = 1;

RSPUNREGISTERSERVICE = 0;



function RegisterServiceProcess (dwProcessID, dwType: DWord) : DWord;

stdcall; external 'KERNEL32.DLL';



procedure TForm1.FormDestroy (Sender: TObject);

begin

RegisterServiceProcess (GetCurrentProcessID, RSPUNREGISTERSERVICE)

end;



procedure TForm1.FormCreate (Sender: TObject);

begin

RegisterServiceProcess (GetCurrentProcessID, RSPSIMPLESERVICE)

end;



end.









그리고 작업전환(Alt+Tab, Alt+Ctrl+Del, Ctrl+Esc)을 하지 못하게 하는 방법은



var

Form1: TForm1;

old: Pointer;



implementation



{$R *.DFM}



procedure TForm1.FormCreate(Sender: TObject);

begin

SystemParametersInfo(97, integer(true), Old, 0);

end;



procedure TForm1.FormDestroy(Sender: TObject);

begin

SystemParametersInfo(97, integer(false), Old, 0);

end;