Как отловить сообщение WM_DESTROY правильно?

[Johnson]

Здравствуйте, уважаемые!
Проблема такая: есть приложение без формы. Нужно отловить системное сообщение о убийстве процесса и исполнить нужный код перед убийством...

Подскажите, как это правильнее сделать?
Заранее благодарен!

[Alex Cones]

Вы не делали обработчик событий (в смысле в данном проекте)?
Если делали, то припишите к нужным событиям WM_DESTROY.
Если пишете на API - только дописать в Case
Если нет - попробуйте хук

[Johnson]

про хук можно подробнее (желательно с простейшим примером)... Библиотека в проекте есть, в принципе хук туда можно запихать, не помешает
UPD:
я правильно считаю, что хук, который WM_DESTROY отлавливает так устанавливается?

SetWindowsHookEx( WH_SHELL, @HookProc, Hinstance, 0 );

только я вот не знаю как правильно обработать этот хук в библиотеке и отослать-принять в основном потоке... научите, если не трудно)

[Alex Cones]

Вот здесь я ставил хук на клик мыши (Чтобы посмотреть, что делает прога, поставьте разрешение экрана 1152 * 864 и запустите её)

[Johnson]

Покурил тут инет немного... вот такой обработчик грамотно описан для обработки дестроя?

function WindowProc (Hwn,msg,wpr,lpr: longint): longint; stdcall;
begin
result:=defwindowproc(hwn,msg,wpr,lpr);
	if msg=wm_destroy then begin
		{Что-то}
	end;
end;

begin
instance :=GetModuleHandle(nil);
WindowClass.style:=CS_HRedraw or CS_VRedraw;
WindowClass.Lpfnwndproc:=@windowproc;
WindowClass.Hinstance:=Instance;
WindowClass.HbrBackground:= color_btnface;
WindowClass.LpszClassName:='DX';
WindowClass.Hcursor:=LoadCursor(0,IDC_ARROW);
RegisterClass (WindowClass);
//Цикл обработки сообщений
	while (GetMessage(msg, 0, 0, 0)) do begin
		translatemessage(msg);
		dispatchmessage (msg);
	end;
end.

[raxp]

дык...

function WindowProc(hnd, wmsg, wparam, lparam: integer): integer; stdcall;
begin
 case wmsg of

  WM_DESTROY: begin
                        //ваши дii
                        ...
                        //
                        PostQuitMessage(0)               
                       end;
  else Result:= DefWindowProc(hnd, wmsg, wparam, lparam)
 end
end;

[Johnson]

Так-с... что-то я не так делаю...

function WindowProc(hnd, wmsg, wparam, lparam: integer): integer; stdcall;
begin
 case wmsg of
  WM_DESTROY: begin
              //что-то
              PostQuitMessage(0)
              end;
  else Result:= DefWindowProc(hnd, wmsg, wparam, lparam)
 end;
end;

begin
instance :=GetModuleHandle(nil);
WindowClass.style:=CS_HRedraw or CS_VRedraw;
WindowClass.Lpfnwndproc:=@windowproc;
WindowClass.Hinstance:=Instance;
WindowClass.HbrBackground:= color_btnface;
WindowClass.LpszClassName:='DX';
WindowClass.Hcursor:=LoadCursor(0,IDC_ARROW);
RegisterClass (WindowClass);

//Сказали, что без окна прога не отловит дестрой, надо создавать:
Handle:=CreateWindowEx (0,'DX','',WS_POPUP, 1,1,
GetSystemMetrics (SM_CXSCREEN),
GetSystemMetrics (SM_CYSCREEN),0,0,instance, nil);
UpdateWindow (Handle);

//Цикл обработки сообщений
	while (GetMessage(msg, 0, 0, 0)) do begin
		translatemessage(msg);
		dispatchmessage (msg);
	end;
end.

ругается на RegisterClass (WindowClass); вот так:

[DCC Error] prog.dpr(39): E2010 Incompatible types: 'TPersistentClass' and 'tagWNDCLASSA'

Переменные обьявлял как в примере:

var
Instance: HWnd;
WindowClass: TWndClass;
Handle: HWnd;
msg: TMsg;

[Johnson]

Извиняюсь...

Windows.RegisterClass (WindowClass);

спасло...

[Johnson]

Извиниюсь, что вопрос не по теме слегка... Но всё же: как проверить, отцепился ли хук после получения и обработки дестроя?

[raxp]

покажите где вы его ставите