如何通過hook,獲得輸入法輸入的文字.200分奉上！！！ (200分)

holyknight · 2004-04-06

如何通過hook,獲得輸入法輸入的文字 我用了如下的方法可是沒有效果,又沒有其他好的方法呢?? function IMEHookProc(iCode: integer; wParam: wParam; lParam: lParam):LResult; stdcall; begin ...   case PMsg(LParam).message of     WM_IME_CHAR:       Begin         ShowMessage('Process IME Hooks');//{在這裡判斷消息為WM_IME_CHAR                                             可是在執行時沒有任何效果,那位大俠                                             知道更好的解決方法嗎??}       end;   end; ... end; function SetIMEHook: bool; export; begin ... hNextIMEHookProc := SetWindowsHookEx(WH_GETMESSAGE, IMEHookProc, HInstance, 0); ... end;

cnaoszh · 2004-04-06

做了个例子给你： DLL: library www; uses   sharemem,   Windows,   Messages,   SysUtils,   we in 'we.pas'; {$r *.res} exports  run,Stop; begin end. unit we; interface uses Windows,Messages, SysUtils,TLHelp32,classes,forms; var   HHCallWndProc:HHook;   OldApplication : TApplication;   procedure stop;stdcall;   procedure run(AHandle:THandle);stdcall; implementation //&sup1;&laquo;&sup1;&sup2;&sup1;&sup3;×&Oacute;&ordm;&macr;&Ecirc;&yacute; procedure HookProc(OldLparam:LPARAM;uMessage:integer;wParam:WPARAM;lParam:LPARAM);stdcall; var  ExtendStr:String;  SS:TSTrings; begin   if (uMessage=WM_IME_CHAR) then     begin      Application.MessageBox('sss','ss',mb_ok);     end; end; //&acute;°&iquest;&Uacute;&Iuml;&ucirc;&Iuml;&cent;&sup1;&sup3;×&Oacute;&frac12;&Oslash;&raquo;&ntilde;&ordm;&ordm;×&Ouml;&Ecirc;&auml;&Egrave;&euml; function CallWndProc(nCode:integer;wParam:WPARAM;lParam:LPARAM):LRESULT;stdcall; var   pcs

CWPSTRUCT; begin   pcs:=PCWPSTRUCT(lParam);   if (nCode>=0) and (pcs<>nil) and (pcs^.hwnd<>0)  then   begin      if (pcs^.message=WM_IME_CHAR) then       Application.MessageBox('sss','ss',mb_ok);   end;   Result:=CallNextHookEx(HHCallWndProc,nCode,wParam,lParam); end; //&AElig;&ocirc;&para;&macr;&Iacute;&pound;&Ouml;&sup1;&sup1;&sup3;×&Oacute; procedure SetHook(fSet:boolean); begin   if fSet=true then    begin     if HHCallWndProc=0 then      begin       HHCallWndProc:=SetWindowsHookEx(WH_CALLWNDPROC,@CallWndProc,hinstance,0);      end;   end  else     begin     if HHCallWndProc<>0 then      UnhookWindowsHookEx(HHCallWndProc);    end; end; // &Iacute;&pound;&Ouml;&sup1; procedure stop;stdcall; begin    SetHook(False);    Application.Handle := OldApplication.Handle; end; //&iquest;&ordf;&Ecirc;&frac14; procedure run(AHandle:THandle);stdcall; begin    SetHook(true);    OldApplication := TApplication.Create(Application);    OldApplication.Handle := Application.Handle;    Application.Handle := AHandle; end; end. 调用dLL: nit Test; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; type    TRunDll = procedure(AHandle: THandle);stdcall;    TStopDLL= procedure();stdcall;   TForm1 = class(TForm)     Button1: TButton;     Button2: TButton;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }      CurDllHandle:THandle;     function RunDllFiles(DllName:String):Boolean;   end; var   Form1: TForm1; implementation {$R *.DFM} function TForm1.RunDllFiles(DllName:String):Boolean; var   DllWorkPath:String;   RunDLL:TRunDll; begin   result:=true;   DllWorkPath:='C:/Program Files/Borland/Delphi5/Projects/';   CurDllHandle:=LoadLibrary(pchar(DllWorkPath+DllName));   if CurDllHandle=0 then    begin      Application.MessageBox(pchar('&Icirc;&THORN;·¨×°&Egrave;&euml;&para;&macr;&Igrave;&not;&iquest;&acirc;'+DllName),'&frac34;&macr;&cedil;&aelig;',mb_ok+MB_ICONWARNING);      exit;    end;   try     @RunDLL:=GetProcAddress(CurDllHandle,'run');     if @RunDLL<>nil then       begin         try           RunDLL(Application.Handle);         except           result:=FALSE;         end;       end;    finally    end; end; procedure TForm1.Button1Click(Sender: TObject); var   DLLFileName:String; begin   DLLFileName:='www.dll';   if RunDllFiles(DLLFileName) then     begin       Application.MessageBox('&sup3;&Eacute;&sup1;&brvbar;','&Iuml;&micro;&Iacute;&sup3;&ETH;&Aring;&Iuml;&cent;',mb_ok+mb_iconinformation);     end   else     begin        Application.MessageBox('&Ecirc;§°&Uuml;','&Iuml;&micro;&Iacute;&sup3;&ETH;&Aring;&Iuml;&cent;',MB_ICONWARNING+mb_ok);     end; end; procedure TForm1.Button2Click(Sender: TObject); var   StopDLL:TStopDll; begin   try     @StopDLL:=GetProcAddress(CurDllHandle,'stop');     if @StopDLL<>nil then       begin         try           StopDLL;         except           //result:=FALSE;         end;       end;    finally      FreeLibrary(CurDllHandle);    end; end; 你的问题是:

cnaoszh · 2004-04-06

对不起： procedure HookProc(OldLparam:LPARAM;uMessage:integer;wParam:WPARAM;lParam:LPARAM);stdcall;应该删掉： 得到汉字： 用： if (pcs^.message=WM_IME_CHAR) then  begin      CurStr:=format('%s%s',[chr((pcs^.wParam shr 8) and $ff),chr(pcs^.wParam and $ff)]);      Application.MessageBox(pcahr(CurStr),'ss',mb_ok);  end;

holyknight · 2004-04-06

這個方法不適用於Microsoft Word和IE呀，請問在這兩個下面如何做呢?

hardware007 · 2004-04-06

关注

dgsj · 2004-04-06

关注     hook编程还没有接触过，呵呵呵

jingtao · 2004-04-15

http://www.138soft.com/KeyTest.zip

dpetll · 2004-04-15

to: jingtao 你的GetKey.dll是不错。在进程中看不到运行程序的名字。 可是不知道在WIN98可不可以运行。还有在play.txt会出现乱码。 能不能再改进一下。我个人非常敬佩你。 可不可以发一些代码，让我们这些大富翁学学。

刘麻子 · 2004-04-22

 word是没有WM_IME_CHAR消息的。。

如何通過hook,獲得輸入法輸入的文字.200分奉上！！！ (200分)

holyknight

Unregistered / Unconfirmed

cnaoszh

Unregistered / Unconfirmed

cnaoszh

Unregistered / Unconfirmed

holyknight

Unregistered / Unconfirmed

hardware007

Unregistered / Unconfirmed

dgsj

Unregistered / Unconfirmed

jingtao

Unregistered / Unconfirmed

dpetll

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

Similar threads