用DELPHI如何发送按键给其他程序? 如:打开记事本,编写程序在程序中给记事本发送按键,就象在记事本中按键一样在如:打开小游戏,比如自带的弹珠台.编写程序,在程序中发送按键给弹珠台,呵呵这样的程序如何编写啊,详细解释 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 向弹珠游戏发送一个Z按键:var h:HWND;begin h:=FindWindow(nil,'Windows 三维弹球 - 太空军校生'); if h>0 then begin SetForegroundWindow(h); keybd_event(Ord('Z'),0,0,0); sleep(300); keybd_event(Ord('Z'),0,KEYEVENTF_KEYUP,0); end;end; 有个方法叫shellexcute吧,要搜一下 liangqingzhi(老之) 正解 ============================================VB有个sendkeys lz知道吧其实delphi也有个sendkeys 只是一个单元,Delphi光盘上有Sendkeys.pas放到相应目录下,引用即可比键盘事件好不用一个一个传 ,功能同VB比如sendkeys{"tab"}---vb procedure TForm1.Button1Click(Sender: TObject);beginShellExecute(Handle, nil,'notepad.exe',nil,'C:\winnt', SW_SHOW);end; 线程类中使用Txmldocument组件错误 san fen 100分!____________恼人的组件问题!个为前辈帮帮忙!急啊! Ellipse?? 有关D7的问题? dbgrid的多选的问题 请问如何将字符串转换成自定义类型呢?急????? 一个控件只有dcu,dcr,res文件,如何用? 如何将一个工程生成主程序调用bpl及dll的程序 求教!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 请高手们帮我看看这段代码,在线等,谢谢! 新手问路
begin
h:=FindWindow(nil,'Windows 三维弹球 - 太空军校生');
if h>0 then
begin
SetForegroundWindow(h);
keybd_event(Ord('Z'),0,0,0);
sleep(300);
keybd_event(Ord('Z'),0,KEYEVENTF_KEYUP,0);
end;
end;
======================
VB有个sendkeys lz知道吧
其实delphi也有个sendkeys 只是一个单元,Delphi光盘上有Sendkeys.pas放到相应目录下,引用即可比键盘事件好
不用一个一个传 ,功能同VB
比如sendkeys{"tab"}---vb
begin
ShellExecute(Handle, nil,'notepad.exe',nil,'C:\winnt', SW_SHOW);
end;