模擬按鍵

第三方提供一个软件，需要按下F8健。下面的例子是模拟通过用户点击按钮实现F8健的按下。

下面是模擬F8按鍵，按下功能
 
procedure TForm1.Button1Click(Sender: TObject);
var key:byte;
    h:HWnd;
    Input : TInput;
begin
   Input.Itype:=INPUT_KEYBOARD;
    with Input.ki do
    begin
        wVk:=VK_F8;
        wScan:=0;
        dwFlags:=WM_KEYDOWN;//KEYEVENTF_KEYUP;
        time:=GetTickCount;
        dwExtraInfo:=GetMessageExtraInfo;
    end;
SendInput(1,Input,SizeOf(TInput));

end;