Форум: "WinAPI";
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];
ВнизВопрос о Хуках! А именно о WH_JOURNALPLAYBACK!!! Найти похожие ветки
← →
nikkie (2001-12-28 09:41) [3]раньше не делал, но за 10 минут сделал :)
program JournalHook;
uses Windows;
const
WM_CANCELJOURNAL = $004B;
var
g_hJournalPlaybackHook : HHOOK;
function JournalPlaybackProc(code : integer;
wParam : WPARAM;
lParam : LPARAM) : LRESULT; stdcall;
begin
Result := CallNextHookEx(g_hJournalPlaybackHook, code, wParam, lParam);
end;
var
message : MSG;
begin
g_hJournalPlaybackHook :=
SetWindowsHookEx(WH_JOURNALPLAYBACK, @JournalPlaybackProc, hInstance, 0);
while (GetMessage(message, 0, 0, 0)) do begin
if message.message = WM_CANCELJOURNAL then begin
MessageBox(0, "WM_CANCELJOURNAL", "", MB_OK);
PostQuitMessage(0);
end; TranslateMessage(message);
DispatchMessage(message);
end;
end.
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c