Форум: "Основная";
Текущий архив: 2003.06.09;
Скачать: [xml.tar.bz2];
ВнизКак отловить появление 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c