如何模拟键盘的按键操作!!!!!!!!急,高分!!!!

[redlegend_126_com]

我想给QQ的发送窗口发送一个发送消息!如何调用函数发送ctrl+enter的操作!!!!!
谢谢了!!!!!!

[PowerVR]

我也在搞这个问题，就是组合键比较麻烦，关注！

[Billy_Chen28]

public
procedure WMHotKey(var Message: TWMHOTKEY); message WM_HOTKEY;
-----------------
procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(handle,GlobalAddAtom('hotkey'),Mod_Control,vK_space);
end;

procedure TForm1.WMHotKey(var message: TWMHotKey);
begin
application.MessageBox('内容','标题',MB_OK);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnregisterHotKey(Handle, GlobalAddAtom('hotkey'));
end;

[纯冰糖]

key_event

[redlegend_126_com]

哦能不能给点例子牙!

[UranusVan]

是啊!能不能实际点啊!?

比如想向串口上发送一个组合按键ctrl-z如何发!?

enter大家都知道发#13就可以了!就是类似这样的方法,如何发送组合键呢!?

[redlegend_126_com]

我的意思是说,如何将QQ的发送消息的对话框先聚焦,然后在我的程序中模拟键盘的Ctrl+Enter的消息,使QQ的消息自动发送出去!!!
谢谢了,

[jiangshi99]

我现在也在做类似的程序,也很想知道这一点,关注!
有兴趣的朋友请看http://expert.csdn.net/Expert/topic/1397/1397250.xml?temp=.7378351

[bluenightsky]

你也可以不用这样！
可以先得到发送消息那个按钮的句柄，然后用sendmessage函数发送BN_CLICKED消息即可

[bluenightsky]

不好意思，纠正一下，是发送CN_COMMAND

[ly_liuyang]

上面的方法都可以的

模拟按键，可以使用组件的，网上下载就OK了，
有Delphi CD的朋友，记得CD上的附加工具上有的，没就Down了

/ by LY http://www.99898.com/www/lysoft

[bluenightsky]

现写了个例子，可实现点击
procedure TForm1.Timer1Timer(Sender: TObject);
var
h:integer;
begin
h:=FindWindow(nil,'发送消息');
h:=FindWindowEX(h,0,0,'送讯息(&S)');
if h<>0 then
sendmessage(h,BM_CLICK,0,0);
end;

[Eastunfail]

使用key_event啊，可以模拟键盘案件

[yczyk]

PostMessage或者SendMessage发送一个模拟按钮消息啦！

[yczyk]

例如：
PostMessage(0,0,WM_NEXTDLGCTL)是模拟按Tab键！