以前结束淂太快了,如果非要模拟按键可以这么实现:<br><br>procedure TForm1.Button2Click(Sender: TObject);<br>var h:Thandle;<br>begin<br> h:=findWindow('PP9FrameClass',nil);<br> SetForegroundWindow(h);<br> keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), 0, 0);<br> keybd_event(ord('K'), MapVirtualKey(ord('K'), 0), 0, 0);<br> keybd_event(ord('K'), MapVirtualKey(ord('K'), 0), KEYEVENTF_KEYUP, 0);<br> keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), KEYEVENTF_KEYUP, 0);<br>end;