键盘钩子，高分回报(0分)

JWXLI · 2002-04-04

我想编写一个键盘钩子，日的是取得系统内任何键盘输入， 但是总是只能得到本线程内的键盘输入，不知为什么。(注明：我已将钩子函数放入动态链接 库中),请指点，高分回报。 程序源码如下： 动态库程序： library test; uses   SysUtils,   Classes,    windows,   messages,   hookproc2 in 'hookproc2.pas';  exports     setkeyhook,     unkeyhook; end. unit hookproc2; interface   uses    windows,messages;  var    hook:Thandle;    keyfile:textfile;    hinst:thandle;   function prohook(icode:integer;wparam:wparam;lparam:lparam):lresult;stdcall;export;   function setkeyhook:bool;export;   function unkeyhook:bool;export; implementation function prohook(icode:integer;wparam:wparam;lparam:lparam):lresult;stdcall; begin   if icode < 0 then    result:= callnexthookex(hook,icode,wparam,lparam)   else   begin   if icode= HC_ACTION  then     writeln(keyfile,chr(wparam));   end; end; function setkeyhook:bool;export;   begin   try   hinst:=getModuleHandle('test.dll');   {得到test.dll的模块局柄，即该动态连接库自己的模块局柄}    assignfile(keyfile,'日志.txt');    rewrite(keyfile);    hook:=setwindowshookex(WH_KEYBOARD,prohook,hinst,0);//HInstance    result:=true;   except       result:=false;   end; end; function unkeyhook:bool;export; begin     try       UnHookWindowsHookEx(Hook);       closefile(keyfile);       hook:=0;       result:=true;     except        result:=false;     end; end; end. 主程序 unit main; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls,shellapi, Menus; type   TForm1 = class(TForm)     Button1: TButton;     Button2: TButton;     Button3: TButton;     Button4: TButton;     Memo1: TMemo;     PopupMenu1: TPopupMenu;     N1: TMenuItem;     N2: TMenuItem;     N3: TMenuItem;     N4: TMenuItem;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Button3Click(Sender: TObject);     procedure Button4Click(Sender: TObject);     procedure N1Click(Sender: TObject);     procedure N2Click(Sender: TObject);     procedure N3Click(Sender: TObject);     procedure N4Click(Sender: TObject);   private      procedure wmuser(var message:Tmessage);message WM_USER;      procedure wmsyscommand(VAR message:Tmessage);message WM_SYSCOMMAND;     { Private declarations }   public     { Public declarations }   end;   function setkeyhook:bool;external'test.dll' ;   function unkeyhook:bool;external'test.dll'; var   Form1: TForm1;   TID:TNotifyIconDataA; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin    if setkeyhook then     begin       button2.Enabled:=true;       button3.Enabled :=false;       button1.Enabled :=false;     end; end; procedure TForm1.Button2Click(Sender: TObject); begin   if unkeyhook then    begin     button2.Enabled :=false;     button1.Enabled :=true;     button3.Enabled :=true;    end; end; procedure TForm1.Button3Click(Sender: TObject); var   keyfile:textfile;   s:string; begin    assignfile(keyfile,'日志.txt');    reset(keyfile);    while not Eof(keyfile) do    begin      readln(keyfile,s);      memo1.Lines.add(s);    end; end; procedure TForm1.Button4Click(Sender: TObject); begin   close; end; procedure TForm1.WMSysCommand(var Message: TMessage); const  st='键盘信息' ; begin    if message.wparam =SC_ICON then     begin      tid.cbSize           := sizeof (tid);      tid.Wnd              := handle;      tid.uID              := 1;      tid.uFlags           := nif_Message or nif_Icon or nif_Tip;      tid.uCallBackMessage := WM_USER;      tid.hIcon            := LoadIcon (hInstance, 'MAINICON');      lstrcpy (tid.szTip,st);      Shell_NotifyIcon (nim_Add,@tid);      form1.visible:=false;     end     else       begin       DefWindowProc(Form1.Handle,Message.Msg,Message.WParam,Message.LParam);      end; end; procedure TForm1.wmuser(var message: Tmessage); var  pt:tpoint; begin     case Message.lparam of         WM_LBUTTONDBLCLK:           begin             form1.Visible :=true;             Shell_NotifyIcon(Nim_Delete,@tid);           end;         WM_RBUTTONDOWN:           begin               GetCursorPos (pt);               SetForegroundWindow (form1.handle);               PopupMenu1.Popup(pt.x,pt.y);           end;         WM_DESTROY:           begin             Shell_NotifyIcon(Nim_Delete,@tid);             halt;           end;       end; end; procedure TForm1.N1Click(Sender: TObject); begin button1click(self); end; procedure TForm1.N2Click(Sender: TObject); begin   button2click(self); end; procedure TForm1.N3Click(Sender: TObject); begin     form1.Visible :=true; end; procedure TForm1.N4Click(Sender: TObject); begin   close; end; end.

键盘钩子，高分回报(0分)

JWXLI

Unregistered / Unconfirmed

Similar threads