Работа с указателем (мышь)

Переместить курсор мыши в точку скоординатами 1000,700  — setcursorpos (1000,700);
Нажать программно левую кнопку мыши не отпуская ее — mouse_event(mouseeventf_leftdown,0,0,0,0);
Отпустить левую кнопку мыши — mouse_event(mouseeventf_leftup,0,0,0,0);
Нажать правую кнопку мыши не отпуская ее  — mouse_event(mouseeventf_rightdown,0,0,0,0);
Отпустить правую кнопку мыши  — mouse_event(mouseeventf_rightup,0,0,0,0);
Присвоить y координаты положения курсора по вертикали   — GetCursorPos(foo); y:= (foo.Y); // Не забудьте поставить после var foo: TPoint;  y: Integer;
Присвоить x координаты положения курсора по горизонтали — GetCursorPos(foo); x:= (foo.X); // Не забудьте поставить после var foo: TPoint;  x: Integer;
Скрыть курсор (на форме программы)  — ShowCursor(false);
Поменять кнопки мыши местами  — SwapMouseButton(true);
Поменять кнопки мыши обратно  — SwapMouseButton(false);
Присвоение х значения 1 или ноль в заисимости нажата клавиши мыши или нет — x:=(GetAsyncKeyState(VK_LBUTTON)); // x: Integer; Вкладка «система» объект Timer Внимание ! Очень глючная команда !
Загрузка курсора мыши из файла (на форме программы) — Screen.Cursors[crMyCursor] :=  LoadCursorFromFile(‘C:\321.ani’); Cursor := crMyCursor; // const crMyCursor = 1;
Прокрутить колёсико мышки программно вниз — mouse_event(MOUSEEVENTF_WHEEL,Mouse.CursorPos.X, Mouse.CursorPos.Y, DWORD(-120), 0);
Прокрутить колёсико мышки программно вверх — mouse_event(MOUSEEVENTF_WHEEL,Mouse.CursorPos.X, Mouse.CursorPos.Y, DWORD(120), 0);