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.