안명호 wrote:

> * 사용환경 : 델파이5 / Windows 2000 server

>

> 제가 만든 프로그램 뿐만 아니라.. 마우스가 프로그램 밖에서 이동하더라도

>

> 그 메세지를 확인 할 방법을 알고 싶어요...

>

> 어떻게 하면 그 메세지를 얻어 올 수 있죠?





unit Beeper;



interface



uses Wintypes,Winprocs,Messages;



function SetHook:Boolean;export;

function UnHookHook:Boolean;export;

function HookProc(Code:integer; wParam: Word; lParam: Longint): Longint;export;



var HookedAlready:Boolean;



implementation



var

ourHook:HHook;





function SetHook:Boolean;

begin

if HookedAlready then exit;

ourHook:=SetWindowsHookEx(WH_MOUSE,HookProc,HInstance,0);

HookedAlready:=True;

end;



function UnHookHook:Boolean;

begin

UnHookWindowsHookEx(ourHook);

HookedAlready:=False;

end;



function HookProc(Code:integer; wParam: Word; lParam: Longint): Longint;

begin

if (wParam=WM_LBUTTONDOWN) then MessageBeep(0);

result:=CallNextHookEx(ourHook,Code,wParam,lParam);

end;



end.