delphi模拟键盘按键

 tab键

方法一：消息

 
          postmessage(Application.ActiveFormHandle, wm_keydown, vk_tab, 0);
          postmessage(Application.ActiveFormHandle, wm_keyup, vk_tab, 0);

方法二： 

  keybd_event(VK_TAB, 0, 0, 0);
  keybd_event(VK_TAB, 0, KEYEVENTF_KEYUP, 0);

例子1：模拟按下'A'键
　　 keybd_event(65,0,0,0);
　　 keybd_event(65,0,KEYEVENTF_KEYUP,0);

　　例子2：模拟按下'ALT+F4'键
　　 keybd_event(18,0,0,0);
　　 keybd_event(115,0,0,0);
　　 keybd_event(115,0,KEYEVENTF_KEYUP,0);
　　 keybd_event(18,0,KEYEVENTF_KEYUP,0);

示鼠标的双击

setcursorpos(20,132);

mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);

mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);

mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);

mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);

参照

http://blog.sina.com.cn/s/blog_53013a8c01012nwa.html