Shutdown verhindern ohne Taskdialog

[Andreas L.]

Hi,
ich fange die Nachricht WMQueryEndSession ab um noch ein paar Aufgaben vor dem Herunterfahren zu erledigen. In diesem Test nur um die Bildschirmauflösung zu ändern um ein schönes Bildchen anzuzeigen

Delphi-Quellcode:

procedure TForm1.WMQueryEndSession;
  begin
    Msg.Result := 0;

    ChangeResolution(640, 480, 32);

    Show;

    sleep(5000);

    ChangeResolution(1280, 1024, 32);

    Hide;

    Msg.Result := 1;
  end;

Leider wird meine Form von einem Taskdialog, ihr wisst schon, diese "programm lässt sich nicht beenden" dialoge. Wie kann ich verhindern das so ein Dialog angezeigt wird?

Nächtliche Grüße,
Andy

[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

[Andreas L.]

Habs jetzt so gelöst:

Delphi-Quellcode:

var
 Done: Boolean;

 ...
 ...

procedure TForm1.WMQueryEndSession;
  begin

  if not Done then
   begin

    Msg.Result := 0;

   end
  else
   begin

    Msg.Result := 1;

   end; 

  end;

procedure TForm1.FormPaint(Sender: TObject);
begin

 Hide;
 Done := False;

end;

procedure TForm1.WMEndSession;
begin

 ChangeResolution(640, 480, 32);
 Show;
 sleep(5000);
 ChangeResolution(1280, 1024, 32);
 Hide;
 Done := True;
 ExitWin(EWX_REBOOT);
 
end;

Da beim Aufruf von ExitWin(EWX_REBOOT) die Message WMQueryEndSession erneut gesendet wird, verwende ich eine globale Variable vom Typ Boolean um festzustellen ob die Aktion bereits durchgeführt wurde.

[Relicted]

jo klar hatte ich vergessen.. sonst hängst in ner endlosschleife...

[Andreas L.]

Nachdem Aufruf von ExitWin(...) sollte auch noch ein Application.Terminate; folgen da sonst der "Anwendung lässt sich nicht beenden"-Dialog trotzdem für ein paar Milisekunden erscheint. Jedoch kommt dieser Dialog diesmal erst nachdem die Aktionen durchgeführt wurden.