模拟键盘输入

  SetForegroundWindow(HApp);
  keybd_event(VK_MENU, MapVirtualKey(VK_MENU, 
0 ),  0 0 );
  keybd_event(ORD(
' B ' ), MapVirtualKey(Byte( ' t ' ),  0 ),  0 0 );
  keybd_event(Byte(
' B ' ), MapVirtualKey(Byte( ' t ' ),  0 ), KEYEVENTF_KEYUP,  0 );
  keybd_event(VK_MENU, MapVirtualKey(VK_MENU, 
0 ), KEYEVENTF_KEYUP,  0 );


// Ctrl: VK_CONTROL
// SHIFT:VK_SHIFT
// TAB:  VK_TAB
// ALT:  VK_MENU
// 'A':  byte('A')

功能说明,
通过目标程序的句柄将该程序激活;
模拟鼠标按下
模拟鼠标抬起

你可能感兴趣的:(Win32,Delphi)