말주변이 없어서 그냥 소스를 올립니다. 힌트만 주는것이 본인에겐

더 도움이 될텐데 소스 분석도 도움이 많이 되니, 열심히 공부 하셔서

훌륭한 프로그래머가 됩시다.



저두 여기서 배운겁니다.



library hotkey;



uses

SysUtils,

Classes,

windows,

messages;



var

HKbHook : HHOOK;

HMsHook : HHOOK;



const

HookDataFile = '.Hook.dat';



procedure ReadData;

var

F : TFileStream;

begin

try

F := Tfilestream.Create(HookDataFile, fmOpenRead);

try

F.Read(HKbHook, sizeof(HKbHook));

F.Read(HMsHook, sizeof(HkbHook));

finally

F.Free;

end;

except

end;

end;



procedure WriteData;

var

F : TFileStream;

begin

try

F := TFileStream.Create(HookDataFile, fmCreate);

try

F.Write(HKbHook, sizeof(HKbHook));

F.Write(HMsHook, sizeof(HMsHook));

finally

F.Free;

end;

except

end;

end;



{ 갈구리질 프로시저 }

function MyKbHook(Code : Integer; wParam : WPARAM;

lParam : LPARAM) : LongInt; stdcall;

begin

{ 파일에 저장된 훅핸들을 읽어온다. }

if HKbHook = 0 then

ReadData;



{ Code값이 0보다 크거나 같을때만 }

{ 갈구리질을 하는 것이 요령. }

if Code >= 0 then

begin

{ 키보드를 몽땅 안눌리게 하자. }

{ 다음 훅체인이 불리지 않도록 하면 끝~! }

Result := Integer(True);

Exit;

end;

Result := CallNextHookEx(HKbHook, Code, wParam, lParam);

end;



{ 키보드 갈구리 찍기 }

function HookKb : Boolean;

begin

HKbHook := SetWindowsHookEx(

WH_KEYBOARD, MyKbHook, HInstance, 0);

Result := Boolean(HKbHook);

{ 파일에 훅핸들 쓰기 }

WriteData;

end;



{ 키보드 갈구리 뽑기 }

function UnHookKb : Boolean;

begin

{ 파일에 저장된 훅핸들을 읽어온다. }

if HKbHook = 0 then

ReadData;

Result := UnhookWindowsHookEx(HKbHook);

end;











{ 갈구리질 프로시저 }

function MyMsHook(Code : Integer; wParam : WPARAM;

lParam : LPARAM) : LongInt; stdcall;

begin

{ 파일에 저장된 훅핸들을 읽어온다. }

if HMsHook = 0 then

ReadData;



{ Code값이 0보다 크거나 같을때만 }

{ 갈구리질을 하는 것이 요령. }

if Code >= 0 then

begin

{ 마우스를 몽땅 안눌리게 하자. }

{ 다음 훅체인이 불리지 않도록 하면 끝~! }

Result := Integer(True);

Exit;

end;

Result := CallNextHookEx(HMsHook, Code, wParam, lParam);

end;



{ 마우스 갈구리 찍기 }

function HookMs : Boolean;

begin

HMsHook := SetWindowsHookEx(

WH_MOUSE, MyMsHook, HInstance, 0);

Result := Boolean(HMsHook);

{ 파일에 훅핸들 쓰기 }

WriteData;

end;



{ 마우스 갈구리 뽑기 }

function UnHookMs : Boolean;

begin

{ 파일에 저장된 훅핸들을 읽어온다. }

if HMsHook = 0 then

ReadData;

Result := UnhookWindowsHookEx(HMsHook);

end;



Exports

HookKB, //키보드 후킹

UnHookKB, //키보드 언후킹

HookMS, //마우스 후킹

UnHookMs; //마우스 언후킹



begin

HKbHook := 0;

HMsHook := 0;

end.





프로그램에서 인포트 시켜 사용하면 시스템 전역에서 훅킹이 걸립니다.



*****주의: 키보드 마우스 둘다 훅킹을 걸면 PC를 재부탕 해야 하므로******

***********각각 하나씩 훅킹을.... 제가 조금 고생을... ****************





--------------------------답변란에 내이름이 가득할 날을 꿈꾸며-------