Shutdown verhindern ohne Taskdialog

[Relicted]

das problem ist dass die message erst nach ende der prozedur "verändert" wird.

Delphi-Quellcode:

const
  UM_Blubb = WM_User + 1;

procedure TForm1.WMQueryEndSession;
begin
  // Abbrechen des herunterfahrens
  Msg.Result := 0;
  // Sich selber ne nachricht schicken
  PostMessage( self.handle, UM_Blubb,0,0 );
end;

procedure TForm1.UMBlubb;
begin
  ChangeResolution(640, 480, 32);
  Show;
  sleep(5000);
  ChangeResolution(1280, 1024, 32);
  Hide;

//    Msg.Result := 1;
// Windows herunterfahren... hab ich grad ned da wie genau
end;

sollte funktionieren...

gruß
reli

// Edit: nen "M" vergessen .. pardon