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

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

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

Сначала:

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

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

Var
Pos: TPoint;

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

face="Courier New" size="2"> begin;
GetCursorPos(pos);
x:=pos.x;
y:=pos.y;
end;