发送快捷键

最新推荐文章于 2024-07-06 14:21:48 发布

转载最新推荐文章于 2024-07-06 14:21:48 发布 · 536 阅读

DELPHI开发专栏收录该内容

194 篇文章

订阅专栏

本文提供了一个使用Delphi实现键盘模拟的示例代码。该示例通过获取目标窗口的句柄并模拟按下Ctrl+C组合键来演示如何进行键盘操作。这对于理解如何在Delphi中控制键盘输入非常有用。

var
  hwnd   :   Integer;
begin
  hwnd   :=   FindWindow('Form1',   nil);                         // 关键要获得获取信息的控件的句柄
  SetForegroundWindow(hwnd);
  keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), 0, 0);    // 按下Ctrl键
  keybd_event(ord('C'), MapVirtualKey(ord('C'), 0), 0, 0);        // 按下C键
  keybd_event(ord('C'), MapVirtualKey(ord('C'), 0), KEYEVENTF_KEYUP, 0);     // 放开C键
  keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), KEYEVENTF_KEYUP, 0); // 放开Ctrl
end;