如何获取别的程序发出的消息（如在notepad中双击鼠标左键）？(50分)

无

可能要使用 HooK 啦

为什么选这个话题？因为跟踪MOUSE坐标很常见，容易又特别不容易，非常说明W <br>INDOWS95下编程的特点。 <br><br>{ 如果您看不懂，请买DELPHI 2 UNLEASHED RMB133，当然他没这个程序，但有一 <br>些写WIN HOOK必须具备的知识。本程序得到AIMING大虾的大力协助，事实上我的 <br>程序是在他的基础上改写的，他的是从DELPHI HELP中改写出来的。调试程序花了 <br>我两个礼拜，最好你能花同样的时间，那么你就会收获很多！ } <br><br>第一步，建一DLL，DELPHI中NEW-》DLL SAVE AS GETKEY <br><br>library getKey; <br><br>uses <br>uses <br>SysUtils, <br>Windows, <br>HookMain in 'hookmain.pas'; <br><br>exports <br>OpenGetKeyHook, <br>CloseGetKeyHook, <br>GetPublicP; <br><br>begin <br>NextHook := 0; <br>procSaveExit := ExitProc; <br>DLLproc := @DLLMain; <br>ExitProc := @HookExit; <br>DLLMain(DLL_PROCESS_ATTACH); <br>end. <br><br>第二步，建一UNIT ，HOOK MAIN。关键在于CreateFileMapping 和 消息 WM_NCM <br>ouseMove, WM_MOUSEMOVE: <br><br>unit HookMain; <br><br><br>interface <br>uses Windows, Messages, Dialogs, SysUtils; <br><br>//type DataBuf = Array [1..2] of DWORD; <br>type mydata=record <br>data1:array [1..2] of DWORD; <br>data2:TMOUSEHOOKSTRUCT; <br>end; <br>var hObject : THandle; <br>pMem : Pointer; <br>NextHook: HHook; <br>procSaveExit: Pointer; <br><br>function HookHandler(iCode: Integer; wParam: WPARAM; lParam: LPARAM): <br>LRESULT; stdcall; export; <br>function OpenGetKeyHook(sender : HWND;MessageID : WORD) : BOOL; export <br>; <br>function CloseGetKeyHook: BOOL; export; <br>function GetPublicP : Pointer;stdcall; export; <br>Procedure DLLMain(dwReasonWord); far; <br>procedure HookExit; far; <br><br><br>implementation <br><br>Procedure UnMapMem; <br>begin <br>if Assigned(pMem) then <br>begin <br>UnMapViewOfFile(pMem); <br>pMem := Nil <br>end; <br>end; <br><br>Procedure MapMem; <br>begin <br>hObject := CreateFileMapping($FFFFFFFF,Nil,Page_ReadWrite,0,$FFFF,pCha <br>r('_IOBuffer')); <br>if hObject = 0 then Raise Exception.Create('创建公用数据的Buffer不成功 <br>!'); <br>pMem := MapViewOfFile(hObject,FILE_MAP_WRITE,0,0,SizeOf(mydata)); <br>// 1 or SizeOf(DataBuf) ???? <br>// 创建SizeOf(DataBuf)的数据区 <br>if not Assigned(pMem) then <br>begin <br>begin <br>UnMapMem; <br>Raise Exception.Create('创建公用数据的映射关系不成功!'); <br>end; <br>end; <br>Procedure DLLMain(dwReasonWord); far; <br>begin <br>Case dwReason of <br>DLL_PROCESS_ATTACH : <br>begin <br>pMem := nil; <br>hObject := 0; <br>MapMem; //以下的公有数据，如tHWND,tMessageID将直接使用本Buf. <br>end; <br>DLL_PROCESS_DETACH : UnMapMem; <br>DLL_THREAD_ATTACH, <br>DLL_THREAD_DETACH :; //缺省 <br>end; <br>end; <br><br>procedure HookExit; far; <br>begin <br>CloseGetKeyHook; <br>ExitProc := procSaveExit; <br>end; <br><br>function GetPublicP : Pointer;export; <br>begin //这里引出了公用数据区的指针，你可以在你的应用程序中自由操作它。 <br>但建议去掉此接口。 <br>Result := pMem; <br>end; <br><br>function HookHandler(iCode: Integer; wParam: WPARAM; lParam: LPARAM): <br>LRESULT; stdcall; export; <br>begin <br>Result := 0; <br>If iCode &lt; 0 <br>Then Result := CallNextHookEx(NextHook, iCode, wParam, lParam); <br><br><br>// This is probably closer to what you would want to do... <br>case wparam of <br>WM_LBUTTONDOWN: <br>begin <br>end; <br>end; <br>WM_LBUTTONUP: <br>begin <br>end; <br>WM_LBUTTONDBLCLK: <br>begin <br>//在这里加入你所需要的处理<br>end; <br>WM_RBUTTONDOWN: <br>begin <br>messagebeep(1); <br>end; <br>WM_RBUTTONUP: <br>begin <br>end; <br>WM_RBUTTONDBLCLK: <br>begin <br>end; <br>WM_MBUTTONDOWN: <br>begin <br>end; <br>WM_MBUTTONUP: <br>begin <br>end; <br>end; <br>WM_MBUTTONDBLCLK: <br>begin <br>end; <br>WM_NCMouseMove, WM_MOUSEMOVE: <br>begin <br>mydata(pmem^).data2:=pMOUSEHOOKSTRUCT(lparam)^; <br>// messagebeep(1); <br>//SendMessage(DataBuf(pMem^)[1],DataBuf(pMem^)[2],wParam,lParam ); <br>SendMessage(mydata(pMem^).data1[1],mydata(pMem^).data1[2],wParam,integ <br>er(@(mydata(pmem^).data2)) ); <br>end; <br>end; //发送消息 <br>end; <br><br>function OpenGetKeyHook(sender : HWND;MessageID : WORD) : BOOL; export <br>; <br>begin <br>Result := False; <br>if NextHook &lt;&gt; 0 then Exit; //已经安装了本钩子 <br>// DataBuf(pMem^)[1] := Sender; //填数据区 <br>// DataBuf(pMem^)[2] := MessageID; //填数据区 <br>mydata(pmem^).data1[1]:=sender; <br>mydata(pmem^).data1[2]:=messageid; <br><br>NextHook := SetWindowsHookEx(WH_mouse, HookHandler, HInstance, 0); <br>Result := NextHook &lt;&gt; 0; <br>end; <br><br>function CloseGetKeyHook: BOOL; export; <br>begin <br>if NextHook &lt;&gt; 0 then <br>begin <br>UnhookWindowshookEx(NextHook); //把钩子链链接到下一个钩子处理上. <br>NextHook := 0; <br>end; <br>Result := NextHook = 0; <br>end; <br><br>end. <br><br><br><br>第三步，测试DLL，建一PROJECT。关键在于override WndProc <br><br><br>unit Unit1; <br><br>interface <br><br>uses <br>Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialo <br>gs, <br>StdCtrls, ExtCtrls; <br><br>type <br>TForm1 = class(TForm) <br>uncapture: TButton; <br>capture: TButton; <br>Exit: TButton; <br>Panel1: TPanel; <br>show: TLabel; <br><br>Label1: TLabel; <br>counter: TLabel; <br>procedure ExitClick(Sender: TObject); <br>procedure uncaptureClick(Sender: TObject); <br>procedure captureClick(Sender: TObject); <br>private <br>{ Private declarations } <br>public <br>{ Public declarations } <br>procedure WndProc(var Message: TMessage); override; <br>end; <br><br>var <br>Form1: TForm1; <br>var num : integer; <br>const MessageID = WM_User + 100; <br>implementation <br><br>{$R *.DFM} <br>function OpenGetKeyHook(sender : HWND;MessageID : WORD) : BOOL; extern <br>al 'GetKey.DLL'; <br>function CloseGetKeyHook: BOOL; external 'GetKey.DLL'; <br><br>procedure TForm1.ExitClick(Sender: TObject); <br>begin <br>close; <br>end; <br>end; <br><br>procedure TForm1.uncaptureClick(Sender: TObject); <br>begin <br>if CloseGetKeyHook then //ShowMessage('结束记录...'); <br>show.caption:='结束记录...'; <br>end; <br><br>procedure TForm1.captureClick(Sender: TObject); <br>begin <br>// if OpenGetKeyHook(self.Handle,MessageID) then ShowMessage('开始记录 <br>...'); <br><br>if OpenGetKeyHook(Form1.Handle,MessageID) then <br>//ShowMessage('开始记录...'); <br>show.caption:='开始记录...'; <br>num := 0; <br><br><br>end; <br><br>procedure TForm1.WndProc(var Message: TMessage); <br>var x,y:integer; <br>begin <br>if Message.Msg = MessageID then <br>begin <br>// Panel1.Caption := IntToStr(Num); <br>x:=PMouseHookStruct( message.lparam)^.pt.x ; <br>y:=PMouseHookStruct( message.lparam)^.pt.y ; <br><br>panel1.caption:='x='+inttostr(x)+' y='+inttostr; <br>inc(Num); <br>counter.Caption := IntToStr(Num); <br>end <br>else Inherited; <br>end; <br><br>end.

为什么将跟踪MOUSE坐标？请问如何控制外部程序，如：在记事本中单击鼠标左键本来是确定输入位置，捕获单击事件后可在相应输入位置添加任一个字符(如"p")