如何发送一个（或是一串）键盘消息到系统中(100分)

bbdog · 2001-04-06

我想写一个键盘监听程序。每当检查到按下了n键时，发送一个（或是一串） 新的键盘消息到系统中（比如发送一个按下了a键后产生的消息）。     实际的运行效果为：启动程序后便开始监听键盘消息，在此以后又启动了某 字处理程序（如记事本）并在其中输入字符，如果输入的字符为n，则应在字处理 程序中显示为a（或是abc）     不知该如何做才能实现，请各位大虾帮助解决，谢了。     注：只用给出keyboardproc回调函数中，在检测条件成立后，发送一个（或 一串）新的键盘消息给系统的代码即可（所发送的键盘消息最好是系统级的，即 不是发送到指定的程序中，而是所有的当前应用程序都可以接收到，并加以处理。 如果只能发送到指定的程序也还是行的）。

sonie · 2001-04-06

也听一下

tinytao · 2001-04-06

在Tform1中的Private段中加入如下代码   private     { Private declarations }     hotkeyid :integer;     procedure WMhotkeyhandle(var msg:Tmessage); message wm_hotkey; //响应敏感键按键消息 然后： procedure TForm1.FormCreate(Sender: TObject); //创建时 begin   hotkeyid:=GlobalAddAtom(pchar('UserDefineHotKey'))-$C000;//减去$C000是为了保证取值范围的限制   registerhotkey(handle,hotkeyid,0,$41);  //‘A’键 end; procedure TForm1.FormDestroy(Sender: TObject); //关闭时 begin  unregisterhotkey(handle,hotkeyid);  DeleteAtom(HotKeyID); end; procedure TForm1.WMhotkeyhandle(var msg: Tmessage); var   S:string;   I:integer; begin  if (msg.LParamHi=$41) then  begin   msg.Result:=1; //该消息已经处理   S:='ABC';   for i:=1 to length(s) do     SendMessage(GetFocus, WM_CHAR, Ord(s), 0);   end; end; 这代码只能对本程序的输入起作用，但其它程序按下A键时它也有反应， 但就是不发出字符。如果知道也告诉我。

doxpix · 2001-04-06

to tinytao：    GetFocus得到的只是当前激活的窗口句柄，应该进一步得到edit类控件的句柄 才行吧。

kucio · 2001-04-06

应该是SendMessage(GetFocus, WM_CHAR, Ord(s), 0);中GetFocus用的不对。

sluger · 2001-04-06

听！

tinytao · 2001-04-09

GetFocus如何用？我只认为它是返回输入焦点的句柄。 谁有好方法。

bbdog · 2001-04-16

希望大家继续讨论，我本人也在进行和种测试。     我想应该是编写一个键盘挂钩程序，在该程序中截 获键盘消息后，再发送新的键盘消息给系统。     还有几天要参加自学考试了，没有更多的时间进行 下一步的测试。过几天再来和大家交流。     大家请畅所欲言。

creation-zy · 2001-04-16

一定要用SendMessage吗? 好像用keybroad_event可以直接发出按键信息,不用管焦点在哪里.

liuxiaouo · 2001-04-16

<h3>listen</h3>

冰封 · 2001-04-18

tinytao，先用EnumWindowproc和EnumWindow来找到输入字符的窗口的句柄 再sendmessage(handle, WM_CHAR, Ord(s), 0)，这样或许就可以了吧？

tinytao · 2001-04-19

冰封：能详细点吗？

冰封 · 2001-04-20

具体我也不是很清楚啦，因为我对SendMessage、EnumWindows和EnumWindowsProc不熟悉， 我的想法是EnumWindowS和EnumWndowsProc两个函数是用来寻找窗口句柄的嘛，先找到输入 字符的窗口句柄，然后GetFocus换成窗口句柄，不知道这样行不行？

mimisu29 · 2001-04-21

用EnumWindows和EnumWindowsProc办法很笨，我四年就前用过。 必须针对特定的窗口才能使用。不能对任意的窗口使用。请注意 问题是对系统发键盘消息，然后再由系统分配到应该得到的窗口。 大家帮帮忙，给看一下 &nbsp; <a href="http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=506445"> “寻找简单的方法，filter消息”</a> 如有违反论坛规则，还请版主砍掉并批评指出

creation-zy · 2001-05-08

强力推荐——在Delphi的安装盘中有一个sndkey32.pas文件，专门发送键盘事件，很爽！ 所在路径：Info/Extras/SendKeys 例子：SendKeys('123 A a !?',false); 根本不用管什么Handle——它用的是KeyboardEvent——直接被“当前应用程序”处理。

mywyn · 2001-05-11

我已经成功了，只要注意以下2点： 1.在DLL中钩挂“WH_KEYBOARD”。 2.一定要用SendMessage发送特定字符。 已下是把“B“转换成”abc“的HOOK回调函数: function MyHook(iCode: Integer;   wParam: WPARAM;   lParam: LPARAM): LRESULT; stdcall; export; const   MyKeyMask = $80000000; begin  result:=0;   If iCode < 0 Then   begin     Result := CallNextHookEx(hNextHookProc, iCode, wParam, lParam);     Exit;   end;       if ((lParam and MyKeyMask) = 0) and       (wParam = Ord('B')) then   begin     Result := 1;    sendmessage(getfocus,wm_char, Ord('a'), 0);   sendmessage(getfocus,wm_char, Ord('b'), 0);   sendmessage(getfocus,wm_char, Ord('c'), 0);    end; end;

sanming · 2001-05-14

关注！

晨风 · 2001-05-14

关注

bbdog · 2001-05-15

谢谢各位的回答，非常感谢。 to mywyn:     不知能否在某个格斗游戏中实现‘一击必杀’呢？就是在按下某键后 改成发送一串必杀技的键盘消息（最好能在侍魂2 中试一下霸王丸的绝技 ‘天霸封神斩’)，谢谢。

leebons · 2001-05-20

  请问如何发送汉字？

如何发送一个（或是一串）键盘消息到系统中(100分)

bbdog

Unregistered / Unconfirmed

sonie

Unregistered / Unconfirmed

tinytao

Unregistered / Unconfirmed

doxpix

Unregistered / Unconfirmed

kucio

Unregistered / Unconfirmed

sluger

Unregistered / Unconfirmed

tinytao

Unregistered / Unconfirmed

bbdog

Unregistered / Unconfirmed

creation-zy

Unregistered / Unconfirmed

liuxiaouo

Unregistered / Unconfirmed

冰封

Unregistered / Unconfirmed

tinytao

Unregistered / Unconfirmed

冰封

Unregistered / Unconfirmed

mimisu29

Unregistered / Unconfirmed

creation-zy

Unregistered / Unconfirmed

mywyn

Unregistered / Unconfirmed

sanming

Unregistered / Unconfirmed

晨风

Unregistered / Unconfirmed

bbdog

Unregistered / Unconfirmed

leebons

Unregistered / Unconfirmed

Similar threads