Herunterfahren verhindern, Programm nicht beenden

[THY4243]

Nachtrag - natürlich zum Schluss noch:

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
{Abfolge: 1. X -> Form.CloseQuery -> Form.Close -> Form.Hide}
begin
  ....

  ShutdownBlockReasonDestroy(Application.Handle);

  ....

end;

[Sir Rufo]

Wenn ich doch von vornherein weiß - als Entwickler der Software sollte ich das wissen - dass die Anwendung beim Beenden noch etwas speichern muss (was auch länger dauert), dann kann man ShutdownBlockReasonCreate direkt beim Öffnen der Datei, Datenbank, whatever absetzen und wenn alles fertig ist, dann ein ShutdownBlockReasonDestroy .

Das ist auch wesentlich einfacher abzubilden als dieses Rumgefrickel wenn denn dann ein Herunterfahren ansteht.

Kann man so auch in der Doku lesen:

Zitat:

Applications should call this function as they begin an operation that cannot be interrupted, such as burning a CD or DVD. When the operation has completed, call the ShutdownBlockReasonDestroy function to indicate that the system can be shut down.

[BlueStarHH]

Zitat von Sir Rufo:

Wenn ich doch von vornherein weiß - als Entwickler der Software sollte ich das wissen - dass die Anwendung beim Beenden noch etwas speichern muss (was auch länger dauert), dann kann man ShutdownBlockReasonCreate direkt beim Öffnen der Datei, Datenbank, whatever absetzen und wenn alles fertig ist, dann ein ShutdownBlockReasonDestroy .

Genau so ist es. Siehe mein Post #6. Der Punkt wo genau ShutdownBlockReasonCreate aufgerrufen werden soll, ist hier wohl aber nicht das Problem. Windows zeigt wie gesagt, den Text der BlockReason an, (hat die BlockReason also erkannt) beendet das Programm aber trotzdem...