[ras122]

задача: отследить текущие координаты мыши, записать в переменные, переместить курсор в заданное место, нажатие правой (левой) кнопки мыши, дабл-нажатие обеих кнопок

синтаксис этих дел напишите пожалуйста)
заранее спасибо)

[twix47]

var
p: TPoint;
....
....
GetCursorPos(p); {определить местоположение курсора}
SetCursorPos(p.X+5,p.Y+20); {сдвигает курсор на 20 вверх и на 5 вправо}
...



// Симуляцыя левой кнопочьки
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);

// Двойной счелчёк
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
GetDoubleClickTime;
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);