Отслеживание программного нажатия клавиш.

[Andrew)]

Всем привет !! У меня такой вопрос:
Известно, что можно нажимать клавиши и кликать мышкой программно.
Но можно ли отследить ЭТО программное нажатие клавиш ????

[ArtGrek]

у формы в событях есть такое своиство OnKeyPress
оно есть и у других компонент
Google -> OnKeyPress

[Andrew)]

Как делать действия программно, я знаю.
У меня вопрос: можно ли отследить, что нажатие произошло ПРОГРАММНО, а не человек щелкнул по клавиатуре....

[Slippy]

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

если же нажатие происходит программно - всё зависит от реализации. прежде всего стоит определить, рассылается ли в этом случае такое-же системное событие. если да - то нет проблемы. если нет - можно, например, зарегестрировать своё событие и отсылать вручную.

[Sibedir]

Нажатие из самой программы происходит или из другого приложения?

Если из самой программы

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Sender = Button1 then
    ShowMessage ('Пользователь')
  else
    ShowMessage ('Программа');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Button1Click (Sender);
end;

Если из другого приложения
то все немного сложнее. Можно попробовать следить за мышкой и при срабатывании события проверять ее позицию и состояние. Но 100% гарантии в таком случае всеравно нет.

[mss]

Ставь хук WH_LL_MOUSE - он дает доступ к этой информации.

[Sibedir]

Спасибо mss.

Подробности тута и тута

[Andrew)]

Спасибо)
Буду разбираться.