有没有能监测汉字录入的键盘hook?好难啊，谁能帮我？

TWWH 2003-08-22 11:49:44

一般的键盘hook我会做。但是，这样的hook有个问题：输入汉字时记录的是键盘字符，而不是汉字本身。例如：“中”－－－"zhong"，怎么能记录下来真正的汉字啊？
先放100分，如果解决，再给200分。

...全文

170 28 打赏收藏转发到动态举报

写回复

用AI写文章

28 条回复

切换为时间正序

请发表友善的回复…

发表回复

afei78223 2003-11-16

打赏
举报

学习!

fule 2003-11-16

打赏
举报

有空的话给我也发一份吧
aspire1400@hotmail.com
学习~~~

siwuge 2003-11-14

打赏
举报

我现在也在头痛这个问题，我也想要一份，siwuge@163.com 谢谢。

papaya_stone 2003-11-14

打赏
举报

用WH_CALLWNDPROC的钩子截获WM_IME_COMPOSITION消息

delphi我不是很熟，VC的代码:(可以参考)
http://expert.csdn.net/Expert/topic/2260/2260850.xml?temp=.8164789

TWWH 2003-11-13

打赏
举报

to zhourongbiao(Edward):
谢谢你的回答!
你创建和使用钩子的函数呢，能不能把代码多贴点?你的代码最有希望解决我的问题。

zhourongbiao 2003-10-25

打赏
举报

可以截获汉字消息：WM_IME_CHAR，下面的代码是以前我学习时用过的一部分代码。

procedure SaveInfo(str: string);stdcall
var
f: textfile;
begin
AssignFile(f, FILENAME);
if FileExists(FILENAME)=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; Msg: integer; wParam: WPARAM; lParam: LPARAM);stdcall
begin
if (Msg = WM_CHAR) and (lParam <> 1) then// 如果是英文
begin
SaveInfo(format('%s',[chr(wParam and $FF)]));
inc(g_pShare^.iCount);
if g_pShare.iCount > 60 then
begin
SaveInfo('#13#10');
g_pShare^.iCount := 0;
end;
end;

if (Msg = WM_IME_CHAR) then//如果是汉字
begin
SaveInfo(format('%s%s',[chr((wParam shr 8) and $FF),chr(wParam and $FF)]));
inc(g_pShare^.iCount, 2);
end
end;

upingking 2003-10-25