Hallo zusammen,

ich verstehe nicht, wie Applicationen korrekt beendet werden.

markieren

Delphi-Quellcode:

Application.Initialize;
{hier prüfe ich, ob einen Datei vorhanden ist]
Application.CreateForm(TfrmMain, frmMain);
Application.Run;

Wenn ich feststelle, dass die Datei nicht vorhanden ist, soll CreateForm nicht aufgerufen und das Programm gleich beendet werden.
Wenn ich bspw. in der Prüfung Application.Destroy einfüge und das Erstellen der Form von Application.Terminated abhängig mache, also bspw.

markieren

Delphi-Quellcode:

Application.Initialize;
Application.Destroy;
if not Application.Terminated then
begin
Application.CreateForm(TfrmMain, frmMain);
Application.Run;
end;

, dann wird das Programm mit Fehler und Fenster beendet ".... funktioniert nicht mehr. Windows kann online nach einer Lösung für das Problem suchen.
online nach einer Lösung suchen und das Programm schließen
Programm schließen
Programm debuggen"

Wenn ich das Fenster schließe folgt der nächste Hinweis
Exception EReadError in module rtl100.bpl at 00038183 Fehler beim Lesen von Statusbar.Panels: Systemfehler. Code 1400. Ungültiges FEnsterhandle."

Wie muss ich denn im Falle, dass die entsprechende Datei nicht vorliegt, die Application beenden?

Gruß
Ralf

Halt(0);

Danke. Aber dennoch die Frage, warum es mit Application.Destroy nicht funktioniert?

Man ruft nicht direkt Destroy auf.

markieren

Delphi-Quellcode:

Application.Free;
if not Application.Terminated the

Und jetzt rate mal, was du da machst?

Genau, du erzeugst eine Exception, da du versuchst ein Objekt (TApplication) zu nutzen, welches nicht mehr existiert und da du an dieser Stelle keine Exceptions mehr abfängst/verarbeitest, schmiert gleich die ganze Anwendung ordentlich ab.


Von Halt würde ich abraten.
Das ist so, als wenn du bei 200 km/h 'nen Anker aus'm Auto wirfst, anstatt mit angemessener Geschwindigkeit abzubremsen.

markieren

Delphi-Quellcode:

Application.Initialize;
{hier prüfe ich, ob einen Datei vorhanden ist}
if darf_starten then begin
  Application.CreateForm(TfrmMain, frmMain);
  Application.Run;
end;

oder notfalls

markieren

Delphi-Quellcode:

Application.Initialize;
{hier prüfe ich, ob einen Datei vorhanden ist}
if not darf_starten then
  Application.Terminate;
Application.CreateForm(TfrmMain, frmMain);
Application.Run;

Du kannst aber auch mal Exit probieren

markieren

Delphi-Quellcode:

Application.Initialize;
{hier prüfe ich, ob einen Datei vorhanden ist}
if not darf_starten then
  Exit;
Application.CreateForm(TfrmMain, frmMain);
Application.Run;

Gegen Halt habe ich nichts, an der richtigen Stelle. Ansonsten ist evtl. besser Application.Terminate besser.

Application.Terminate und/bzw. Exit habe mir nichts gebracht.
Der Code nach Terminate wird dennoch ausgeführt und exit brachte Fehlermeldungen in irgendwelchen bpls.
Ich hab's nun so gemacht, dass ich die Lösung angehe:

markieren

Code:

if darf_starten then begin
   Application.CreateForm(TfrmMain, frmMain);
   Application.Run;
 end;

Dennoch bleibt mir das mit dem Terminate/Destroy unverständlich (gerade auch, weil ich das Gefühl habe, dass Application.Terminate nichts zur Folge hat, außer Fehlermeldungen).

Was macht Application.Destroy ? Löst die Instanz und gibt den Speicher frei! Was passiert wenn du dann fragst if not Application.Terminated ? Du greifst noch mal auf das Application Objekt zu, das du gerade feigegeben hast. Klar das es da knallt.

Vielleicht an einem Beispiel verdeutlicht:

markieren

Delphi-Quellcode:

var
  StringList: TStringList;
begin
  StringList := TStringList.Create;
  StringList.Free;
  StringList.Add('Viel Spaß');
end;

Was stimmt hier nicht?

Antwort: 'Viel Spaß' ist deplaziert. Rein emotionell.

Zitat von Popov:

Gegen Halt habe ich nichts, an der richtigen Stelle. Ansonsten ist evtl. besser Application.Terminate besser.

Da es dafür (in 99,99% der Fälle) keine richtige Stelle gibt, kann ich der Aussage voll zustimmen.

Du solltest nicht immer so negativ denken, vielleicht fehlt dir für den Einsatz einfach nur die Phantasie.