// if Code >= 0 then begin

Point := PMouseHookStruct(MouseHook)^.pt;

form1.Canvas.TextOut(10, 10, intToStr(point.x) + ' : ' + intToStr(point.y));

// end;

Result := CallNextHookEx(myMouse,Code,Msg,MouseHook);



처럼 Code(이것이 몬지는 저도 잘 모르구여.

필요하다면 delphi 아래.. Common ..MSHelp 에 win32.hlp를 보세요)

를 Check 안하면 system 전체에서 마우스 위치를 읽어냅니다.

쪼매 까다롭긴 한데.. 아래 소스를 참고하세요.

단, 잘못 사용하면 시스템(모, 컴이 망가지진 않겠지만..) 맛 갑니다.

신중하시길...



var

myMouse: HHook;



function MouseHookCallBack(Code: integer; Msg: WPARAM;

MouseHook: LPARAM): LRESULT; stdcall;

begin

if Code >= 0 then begin

// 원하는 작업을 여기에서 하세요.

end;

Result := CallNextHookEx(whMouse,Code,Msg,MouseHook);

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

myMouse := SetWindowsHookEx(WH_MOUSE,MouseHookCallBack,

GetModuleHandleFromInstance,

GetCurrentThreadID);

end;





왕초보 wrote:

> 먼저 이글에 관심을 가져주셔서 감사 (^_^)

>

> 훅(Hook)을 이용한 마우스의 움직임을 알고싶은데 어떻게 하는지 모르겠네요. 아시는 분 있으면 알려주세요.

>

> 제가 알고있는 건 이런게=> WH_MOUSE 게 있다는거 밖에는... 근데 정말! 꼭! 이 방법을 이용해야되거든요. WH_MOUSE 을 어떻게 이용해야 되는지 도 잘 모르겠고 & 훅사용시 함수만드는 법도 잘 모르겠고...(전 정말 초보거든요)

>

> 다른 분이 설명하신 강좌도 봤는데 제게는 어렵더라구요. 델파이코리아에서 민성기님이 쓰신 훅 강좌가 많은 도움이

우선 답변 감사드립니다.



근데 제가 초보라 정말 잘 모르거든요. 좀 자세히 설명해주시면 안될까요?(죄송...)

적어주신 소스부분에 dll파일에 적어줘야 할 부분은 없는건지요? & code > 0 크다면 마우스의 움직임이 있건가요? 음 keyboard 사용할때처럼 HC_ACTION 같은건 없는건지요?

음 제가 말씀드리고 싶은건



SetWindowsHookEx(WH_MOUSE,MouseHookCallBack,GetModuleHandleFromInstance,0)을 해서



아래의 함수를 호출할때 Code , Msg, MouseHook 에 어떤 값들이 전달되는지 자세히 알고싶거든요.



function MouseHookCallBack(Code: integer; Msg: WPARAM;

MouseHook: LPARAM): LRESULT; stdcall;



음 그리고 이 값들을 어떻게 사용해야 되는지 알고싶습니다.



정말 죄송합니다. 알고계시면 좀 자세히 설명해주시면 감사하겠습니다.

http://www.deja.com/home_ps.shtml



에서 mouse capture 로 검색해 보세여



많은 답이 있습니다.

자세한 API 해설까기 곁들일 정도는 아닙니다. 아래부분을 테스트해 보세요

환경 : 델파이 4,

방법 : 폼하나 만드시고, formCreate 에 아래 procedure 를 쓰세여.

결과 : mouse point 가 화면에 출력될 겁니다.

break 거시지 말구여.







var

myMouse: HHook;



function MouseHookCallBack(Code: integer; Msg: WPARAM;

MouseHook: LPARAM): LRESULT; stdcall;

var

point: TPoint;

begin

if Code >= 0 then begin

Point := PMouseHookStruct(MouseHook)^.pt;

form1.Canvas.TextOut(10, 10, intToStr(point.x) + ' : ' + intToStr(point.y));

end;

Result := CallNextHookEx(myMouse,Code,Msg,MouseHook);

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

myMouse := SetWindowsHookEx(WH_MOUSE, MouseHookCallBack, 0, GetCurrentThreadID);

end;

왕초보 wrote:

> 먼저 이글에 관심을 가져주셔서 감사 (^_^)

>

> 훅(Hook)을 이용한 마우스의 움직임을 알고싶은데 어떻게 하는지 모르겠네요. 아시는 분 있으면 알려주세요.

>

> 제가 알고있는 건 이런게=> WH_MOUSE 게 있다는거 밖에는... 근데 정말! 꼭! 이 방법을 이용해야되거든요. WH_MOUSE 을 어떻게 이용해야 되는지 도 잘 모르겠고 & 훅사용시 함수만드는 법도 잘 모르겠고...(전 정말 초보거든요)

>

> 다른 분이 설명하신 강좌도 봤는데 제게는 어렵더라구요. 델파이코리아에서 민성기님이 쓰신 훅 강좌가 많은 도움이

답변감사드립니다.



알려주신 방법도 좋은 방법인것 같습니다. 하지만 제가 하고싶은 일하고는 조금은 다른 방법인것 같아서...(죄송합니다.제가 질문을 정확하게 했어야 하는건데...)



저는 훅을 이용해서 시스템 전체의 마우스 움직임을 알고싶은 거라서... 음~ 그러니까 다른 응용 프로그램을 사용중이라도 마우스움직임 감시는 계속되야한다는 거죠. 윈도우의 화면 보호기처럼...



만약 다른 좋은 의견이나 훅에 관해서 알고계시다면 답변부탁드립니다.