[Ololonlo]

Нужно написать простеньку програмку которая нажимает клавишу 2 потом пауза пару мл секунд и одновременно нажимает клавишу мышки и цифру 1,но мышка должна быть не координатов.

Код:

procedure TForm1.Button1Click(Sender: TObject);

procedure TForm1.Button1Click(Sender: TObject);
var
  X, Y: Integer;
begin
keybd_event(Ord('2'), MapVirtualKey(Ord('2'), 0), 0, 0);
keybd_event(Ord('2'), MapVirtualKey(Ord('2'), 0), KEYEVENTF_KEYUP, 0);
 
sleep(500) //


keybd_event(Ord('1'), MapVirtualKey(Ord('1'), 0), 0, 0);
keybd_event(Ord('1'), MapVirtualKey(Ord('1'), 0), KEYEVENTF_KEYUP, 0);

  mouse_event(MOUSEEVENTF_LEFTDOWN);
  mouse_event(MOUSEEVENTF_LEFTUP); 

sleep(5) //


end;

Админ: Пользуемся тегами для формления кода!

Что то не так (