Форум: "WinAPI";
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];
ВнизВопрос о Хуках! А именно о WH_JOURNALPLAYBACK!!! Найти похожие ветки
← →
nikkie (2001-12-28 10:06) [4]через GetMessage-hook у меня не получилось. ну и шут с ним, без него проще. вот VCL-вариант.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure OnAppMessage(var Msg: TMsg; var Handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
var
g_hJournalPlaybackHook : HHOOK;
function JournalPlaybackProc(code : integer;
wParam : WPARAM;
lParam : LPARAM) : LRESULT; stdcall;
begin
Result := CallNextHookEx(g_hJournalPlaybackHook, code, wParam, lParam);
end;
procedure TForm1.OnAppMessage(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.message = WM_CANCELJOURNAL then
MessageBox(0, "WM_CANCELJOURNAL", "", MB_OK);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := OnAppMessage;
g_hJournalPlaybackHook :=
SetWindowsHookEx(WH_JOURNALPLAYBACK, @JournalPlaybackProc, hInstance, 0);
end;
end.
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c