对当前焦点发送文字

iteye_4014

于 2012-07-02 07:46:42 发布

阅读量143

点赞数

分类专栏： Delphi 文章标签： Clipboard postmessage sendmessage

本文链接：https://blog.csdn.net/iteye_4014/article/details/82362969

版权

Delphi 专栏收录该内容

20 篇文章

订阅专栏

本文介绍了如何使用Delphi代码模拟键盘输入和鼠标点击操作。包括创建剪贴板内容并粘贴，以及通过发送消息的方式模拟点击计算器上的数字按钮。对于无法直接获取句柄的游戏对话框，则可以通过模拟鼠标或键盘操作来实现。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

var
clp: TClipboard;
begin

clp := TClipboard.Create;
try
clp.AsText := '模拟键盘输入的值';
PostMessage(GetFocus,WM_PASTE,0,0);
finally
clp.Free;
end;

procedure TForm1.FormCreate(Sender: TObject); var hCalc, h1: Cardinal; begin WinExec( ' calc ' , SW_SHOWNORMAL); // 运行计算器 hCalc : = FindWindow( ' SciCalc ' , nil ); // 查找计算器主窗口句柄，通过Spy ++ 可查看到类名等 h1 : = FindWindowEx(hCalc, 0 , ' Button ' , ' 1 ' ); // 查找按钮1的句柄，通过Spy ++ 可查看到各种控件及他们的父子、兄弟关系 SendMessage(hCalc, WM_COMMAND, MakeWParam(GetDlgCtrlID(h1), BN_CLICKED), h1) // 点击按钮1 end ;

要单击游戏弹出的对话框“确定”按钮，先用spy++看能不能获取按钮的句柄，如果连spy++都获取不到，那就只能模拟鼠标或键盘操作了（api分别是mouse_event和keybd_event）！