Управление МЫШКОЙ!!!

[Рустам]

Как программно нажимать клавиши мыши!!!

[_Dmitry]

Можно по подробнее, что сделать надо?

[Рустам]

Надо программно нажать кнопки мыши!!! (Левую,правую или среднюю);
Есть какие нибудь процедурки или функции для программного Click'а???

[Virtson]

куда нажать ?
посылается соответсвующее сообщение в это окно (компоненты - тоже окна) ..

[_Dmitry]

Например, щелкнуть средней кнопкой на форме и закрыть программу
Создаешь отклик на событие:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Button = mbMiddle then Close;
end;

Вызываешь процедуру
FormMouseDown(Sender,mbMiddle,[],0,0,);

[Рустам]

Прошу прощения ребят!!!
Программа кликает мышью вися в трее, у неё нет формы!!!
Это так же как и функция SetCursorPos(x,y) - тупо перемещает курсор, в независимости есть ли форма или нет...
Вот и мне надо тупо кликнуть, так же как и Вы кликаете сейчас...

[mihali4]

Программа кликает мышью вися в трее, у неё нет формы!!!

Да нет, форма у нее есть, но она в данный момент невидима. В предложенном вам обработчике это совершенно неважно.

[Рустам]

Mihali4, формы нет, есть ехе-шник и все... Я все Unit'ы удалил из проекта
Они Мне не нужны...
Чтобы было понятнее:
Я хочу запустить какую-либо программу путем двойного клика по Иконке На DeskTop'е!!! Ну или Запустить NotePad путем выбора его из меню пуск... Указатель мыши я туда перемещу, а вот как кликнуть???

[Рустам]

Ну подскажите хто нибудь!!!!

[Alex21]

Сообщение от Рустам

Я хочу запустить какую-либо программу путем двойного клика по Иконке На DeskTop'е!!! Ну или Запустить NotePad путем выбора его из меню пуск... Указатель мыши я туда перемещу, а вот как кликнуть???

А если ярлыки упорядочат иначе?
Может стоит копать в сторону WinExec, Shellexecute?