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
