第三方提供一个软件,需要按下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;