Как узнать нажата ли кнопка(Button) в чужом приложении?

[progan]

Есть хэндл этой кнопки из чужого приложения и нужно отследить все нажатия этой кнопки. подскажите как?

[Stilet]

Ставить хук на сообщения

[progan]

Сообщение от Stilet

Ставить хук на сообщения

А как его ставить? где можно об этом прочитать?

[Stilet]

На Delphi World например.
ДА и поиском по форуму тож много нарыть можно

Вот пример хука на клаву http://delphiworld.narod.ru/base/glo...oard_hook.html
По нему можно сделать хук на сообщение

[progan]

делаю хук так:
SetWindowsHookEx(WH_CALLWNDPROC, @SysMsgProc, HInstance, 0);

function SysMsgProc(code : integer; wParam : word; lParam : longint) : longint; stdcall;
var app: HWND;
     c: longint;
begin
  if code = HC_ACTION then
  begin
  if TMsg(Pointer(lParam)^).message = WM_COMMAND then
    begin
    app := GetForegroundWindow();

    c := GetWindowLong(app, GWL_ID);
    if c = ID_OK then
       MessageBox(0, 'OK', 'MESS', 0);

    end;

  end;
  Result:= CallNextHookEx(GlobalData^.SysHook, Code, wParam, lParam);
end;

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

[Stilet]

Во-первых Хук должен быть в ДЛЛ
Во-вторых код хука - WH_GETMESSAGE

[progan]

хук итак в DLL, пробывал WH_GETMESSAGE - тоже не получалось!

[paralvic]

GetWindowLong(hButton, GWL_ID);