Изменение положения курсора мыши

Nomadic советует:

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

Чтобы установить курсор мыши в какое-либо место экрана необходимо воспользоваться функцией SetCursorPos(x,y); Например: Чтобы установить курсор в верхний левый угол монитора нужно написать следующий код: SetCursorPos(0,0);

Получение координат курсора

Для начала необходимо определить переменную pos типа TPoint.

Сначала:

//Вне процедуры!
Type Tpoint = record
x:integer;
y:integer;
end;

Потом объявляете саму переменную :

Var
Pos: TPoint;

И собcтвенно получение координат:

begin;
GetCursorPos(pos);
x:=pos.x;
y:=pos.y;
end;

[001768]

Содержание раздела