Управление курсором мыши

← →
Proxytel © (2006-01-25 14:40) [0]

Подскажите простейшие способы управления координатами курсора мыши.
Как при этом сэмулировать нажатие левой клавиши мыши?

← →
Rentgen © (2006-01-25 15:42) [1]

Нажатие левой кнопки:
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0); Application.ProcessMessages; mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);

Двигаем курсор:
procedure TForm1.Button1Click(Sender: TObject); var S : TPoint; begin Application.ProcessMessages; Screen.Cursor := CrHourglass; GetCursorPos(S); SetCursorPos(S.x + 1, S.y + 1); Application.ProcessMessages; SetCursorPos(S.x - 1, S.y - 1); end;

← →
Proxytel © (2006-01-25 16:30) [2]

Почему при нажатии Button1 курсор меняется на песочные часы?

как теперь взять координаты мыши в данный момент на экране?

Управление курсором мыши Найти похожие ветки