Как в делфи дать команду контролеру мыши?

[delfi1979]

Как в делфи дать команду контролеру мыши?
Если можно пример.
Для чего это нужна: есть прога, в которой есть 3 кнопки, которые надо нажимать каждые 30 минут, переместить в точку X.Y сделать клик, что может проще взять любой эмулятор мыши или из под делфи написать. Я тоже так думал, но есть большое НО.
Прога устроена таким способом, что не это все не срабатывает
Когда я вручную вожу мышкой, когда курсор попадает в область кнопки она начинает подсвечиваться,
Если же я использую эмулятор мыши и перемещаюсь в точку области кнопки, кнопка не светиться и клик не срабатывает.
Думал устроена прога, что она отлавливает курсор мыши, и когда я пересекаю границу кнопки, начинает светиться и потом уже обрабатывается мой клик мыши
Написал из делфи, типа чтобы мышь плавна переместилась вверх и пересекла область кнопки,
пример
var
pt : TPoint;
begin

GetCursorPos(pt);

SetCursorPos(pt.x, pt.y - 1);

end;

при попадании курсора в область кнопки снова кнопка не подсвечивается, а значит клик и не сработает.

Кто подскажет идеи, как устроена может эта кнопка, получиться ли если эмулировать движение мыши путем записи в порт или контролер, помогите плиз

[raxp]

...не нужно давать команду контроллеру почитайте про протокол обмена мышки, к примеру в нашем журнале ...попробуйте посылать нажатия кнопке через сообщения, отлавливая ее хэндл ...а вообще нужно бы для начала убедиться, что это за элемент на самом деле.

[delfi1979]

А пример можно, проще и быстрее будет
Например сместиться в точку 100 100, нажать левую кнопку мыши и отпустить
А то чуть чуть не понимаю
Var
h :THandle;
Begin

h:= FindWindow(nil,'Form1');
sendMessage(h , WM_MOUSEMOVE , 0, 100 + 100 shl 16);
не перемещает курсов мыши(
кстати ты прав это не кнопка, нет хэндл, но обработчик есть