Текущий архив: 2003.06.09;
Скачать: CL | DM;

Вниз

Как отловить появление 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;

---

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

Сорри, еще

var
hHook : THandle = 0;

...

---

Страницы: 1 вся ветка

Текущий архив: 2003.06.09;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.023 c