Симулируем нажатие клавиш на клавиатуре 2

Оформил: DeeCo

 {With keybd_event API}

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   {or you can also try this simple example to send any 
   amount of keystrokes at the same time. }

   {Pressing the A Key and showing it in the Edit1.Text}

   Edit1.SetFocus;
   keybd_event(VK_SHIFT, 0, 0, 0);
   keybd_event(Ord('A'), 0, 0, 0);
   keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);

   {Presses the Left Window Key and starts the Run}
   keybd_event(VK_LWIN, 0, 0, 0);
   keybd_event(Ord('R'), 0, 0, 0);
   keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0);
 end;