请教delphi编写自动点键盘程序

来源：百度知道 编辑：UC知道 时间：2024/05/29 01:23:25
我想让自动点1键 再自动点2 再点3键 怎么可以这个功能
1 先执行 CTRL+V
2 再执行 enter
3 再执行 Ait+F4

具体就是这样的

可以通过发消息实现
System.Windows.Forms.SendKeys.Send("y");//发送y键
System.Windows.Forms.SendKeys.Send("%{F4}");发送alt+F4；
楼主请参看SendKeys类。

你要做的应该是像某个程序发送CTRL+v或ENTER或ALT+F4吧
你通过findwindow找到那个软件的句柄，然后sendmessage也可以

你看看下面这段代码我用的是Delphi7 windowsxp操作系统测试通过
procedure TForm1.Button1Click(Sender: TObject);
var
h:THandle;
begin
h:=FindWindow(nil,'dddd');
if h>0 then
SendMessage(h,WM_KEYDOWN,Ord('q'),0)
end;

我另一个窗体的keydown事件中受到消息，模拟键盘成功
给分吧嘿嘿