问一下delphi模拟的有关问题

问一下delphi模拟的问题。
var
 Gameh:HWND;
begin

begin
     Gameh:=FindWindow(nil,'泡泡堂');
     //模拟鼠标单击
     SendMessage(Gameh,Messages.WM_LBUTTONDOWN,0,$);//按下
     SendMessage(Gameh,Messages.WM_LBUTTONUP, 0,$);//抬起
end;

这个上面是模拟鼠标点击按下。



var
 Gameh2:HWND;
begin
   Gameh2:=FindWindow(nil,'泡泡堂');
   // postmessage(Gameh2,WM_KEYDOWN,74,0);
    //模拟键盘F5按下
    // PostMessage(Gameh2,Messages.WM_KEYDOWN,VK_F5,0 );//按下
     //PostMessage(Gameh2,Messages.WM_KEYUP, VK_F5,0);//抬起


我想问下 怎么实现模拟键盘按下？
参数不知道写





------解决方案--------------------
上网搜下 键盘伪码，以及用法

例如

  //模拟键盘Ctrl+C复制

  Keybd_Event(VK_CONTROL,MapVirtualKey(VK_CONTROL,0),0,0);

  Keybd_Event(Ord('C'),MapVirtualKey(Ord('C'),0),0,0);

  Keybd_Event(Ord('C'),MapVirtualKey(Ord('C'),0),KEYEVENTF_KEYUP,0);

  Keybd_Event(VK_CONTROL,MapVirtualKey(VK_CONTROL,0),KEYEVENTF_KEYUP,0);

------解决方案--------------------
没玩这个,帮你顶顶>>>>>>>>>>>>