Как отловить появление MessageBox а?

← →
KA-87 © (2003-05-29 20:30) [0]

Может кто знает, как отловить его появление?

← →
Ученик © (2003-05-29 21:15) [1]

function CenterProc(nCode : Integer;
wParam : WPARAM;
lParam : LPARAM) : LRESULT; stdcall;
begin
Result := CallNextHookEx(hHook, nCode, wParam, lParam);
if nCode = HCBT_ACTIVATE then begin
// CenterDialog(wParam);
UnhookWindowsHookEx(hHook)
end
end;

function MessageBoxCenter(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer;
begin
hHook := SetWindowsHookEx(WH_CBT, @CenterProc, hInstance, GetCurrentThreadID);
Result := MessageBox(hWnd, lpText, lpCaption, uType);
end;

Сорри, еще

var
hHook : THandle = 0;

...

Как отловить появление MessageBox а? Найти похожие ветки