var   
      hwnd   :   Integer;   
  
begin   
      hwnd   :
=   FindWindow('Notepad',   nil);   
      SetForegroundWindow(hwnd);   
      keybd_event(VK_CONTROL,   MapVirtualKey(VK_CONTROL,   
0),   0,   0);   
      keybd_event(Ord(
'A'),   MapVirtualKey(Ord('A'),   0),   0,   0);   
      keybd_event(Ord(
'A'),   MapVirtualKey(Ord('A'),   0),   KEYEVENTF_KEYUP,   0);   
      keybd_event(VK_CONTROL,   MapVirtualKey(VK_CONTROL,   
0),   KEYEVENTF_KEYUP,   0)   
  
end;

相关文章:

  • 2021-05-19
  • 2022-01-22
  • 2021-12-10
  • 2022-12-23
  • 2022-12-23
  • 2022-12-23
  • 2021-07-04
  • 2022-12-23
猜你喜欢
  • 2021-11-11
  • 2021-09-18
  • 2022-12-23
  • 2021-05-22
相关资源
相似解决方案