[v1s2222]

Сообщение от ***

v1s2222, а не мог бы ты воложить готовую программку , исходник ???

Ну тут все и так должно быть понятно:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetCursorPos(50,50); // ставим мышку в положение 50, 50
  mouse_event(MOUSEEVENTF_LEFTDOWN,50,50,0,0); // нажимаем левую кнопку мыши по координатам 50, 50
  mouse_event(MOUSEEVENTF_LEFTUP,50,50,0,0); // отпускаем левую кнопку мыши...
end;