如何向另外一个程序发送一组按键？(200分)

ronaldowyl · 2006-04-27

我在我的程序pro1向另外一个程序exe1(不是我做的，没有源码)发送一组按键alt+a+f 最好是不选中exe1的情况下完成， 跪求源码！！！

happycyp · 2006-04-27

找到句柄，发送消息不行吗

ronaldowyl · 2006-04-27

给源码，我就给分！

xianguo · 2006-04-27

http://www.delphibbs.com/keylife/iblog_show.asp?xid=13774

happycyp · 2006-04-27

SendMessage之前加一句 SetForegroundWindow(Wnd); 举例： //在记事本中输入TAB键 procedure TForm1.Button1Click(Sender: TObject); var  Wnd: HWND; begin  Wnd := FindWindow('notepad',nil);  if Wnd <> 0 then  begin    SetForegroundWindow(Wnd);    keybd_event(VK_TAB, MapVirtualKey(VK_TAB, 0), 0, 0);    keybd_event(VK_TAB, MapVirtualKey(VK_TAB, 0), KEYEVENTF_KEYUP, 0);  end; end;

ronaldowyl · 2006-04-27

如果我另外一个程序当中有一个隐性编辑框，即对某个对象右键属性弹出对话框，里面有一个编辑框，假设该编辑框的值是“aaa”，我如何在我的程序里面修改它的值？

sbzldlb · 2006-04-27

发送按件       Sendmessage(aHandle,WM_KEYDOWN,VK_SPACE,0);      Sendmessage(aHandle,WM_KEYUP,VK_SPACE,0); 发送文本 sendmessage(ahandle,WM_settext,0,pchar('123123'))

ronaldowyl · 2006-04-28

如果我传入的按键是alt不放，然后依次按a+f呢？ 请问happycyp，执行这段代码的时候会不会打开选中另外一个程序？

sducn · 2006-04-29

不会 先找到窗口句柄 在在窗口句柄里面找你要发送值得控件名 给他发消息就可以了

ronaldowyl · 2006-04-30

找窗口句柄用什么语句？？

ronaldowyl · 2006-05-22

多人接受答案了。

如何向另外一个程序发送一组按键？(200分)

ronaldowyl

Unregistered / Unconfirmed

happycyp

Unregistered / Unconfirmed

ronaldowyl

Unregistered / Unconfirmed

xianguo

Unregistered / Unconfirmed

happycyp

Unregistered / Unconfirmed

ronaldowyl

Unregistered / Unconfirmed

sbzldlb

Unregistered / Unconfirmed

ronaldowyl

Unregistered / Unconfirmed

sducn

Unregistered / Unconfirmed

ronaldowyl

Unregistered / Unconfirmed

ronaldowyl

Unregistered / Unconfirmed

Similar threads