Schließen eines fremden Programms verhindern

[Boombuler]

Sorry war kein Hook...
aber ich denke mit abfangen folgender Message solltest du erfolg haben:
SendMessage(Handle, WM_SYSCOMMAND, SC_CLOSE, 0); ich hab auch mal n CloseHook geschrieben hab allerdings den QT verlegt! Ich meine aber ich hab eben jene Message abgehookt!

Greetz
Boombuler

[edit]
hab das dingen gerad wieder gefunden!

Delphi-Quellcode:

type
  PTMsg = ^TMsg;

function CloseHookProc(nCode: Integer; wParam: WPARAM; lParam:Integer):
 LRESULT; stdcall;
var aCopy:TCopyDataStruct;
begin
  case nCode < 0 of
    FALSE:
      begin
       if (PTMsg(lparam).message = WM_Close) then
        begin
           //Hier springt der rein wenn ein programm geschlossen wurde
        end;
      end;
  end;
Result := CallNextHookEx(HookHandle, nCode, wParam, lParam);
end;