Главная » Delphi » Win API » Keybd_event

Keybd_event

13:30
procedure TForm1.Button1Click(Sender: TObject);
begin
Keybd_event(VK_LWIN, 0, 0, 0);
Keybd_event(Byte('R'), 0, 0, 0);
Keybd_event(Byte('R'), 0, KEYEVENTF_KEYUP, 0);
Keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0);
end;