Application beenden vor erstem Erzeugen von Form

[RalfSi]

Hallo zusammen,

ich verstehe nicht, wie Applicationen korrekt beendet werden.

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.

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

[dominikkv]

Delphi-Quellcode:

Halt(0);

[RalfSi]

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

[himitsu]

Man ruft nicht direkt Destroy auf.

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.

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

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

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;

[Popov]

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

[RalfSi]

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:

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).

[Popov]

Was macht

Delphi-Quellcode:

Application.Destroy

? Löst die Instanz und gibt den Speicher frei! Was passiert wenn du dann fragst

Delphi-Quellcode:

if not Application.Terminated

? Du greifst noch mal auf das

Delphi-Quellcode:

Application

Objekt zu, das du gerade feigegeben hast. Klar das es da knallt.

Vielleicht an einem Beispiel verdeutlicht:

Delphi-Quellcode:

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

Was stimmt hier nicht?

[Furtbichler]

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

[jaenicke]

Zitat:

Zitat von Popov (Beitrag 1169729)

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. :mrgreen:

[Popov]

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