Главная » 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;