Application beenden vor erstem Erzeugen von Form

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

[jaenicke]

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.

[Popov]

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

[jaenicke]

Zitat von Popov:

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

Naja, bei den potentiellen schwerwiegenden Nebenwirkungen für Programm und System fällt mir da in der Tat wenig ein, außer zum Debuggen bei der Entwicklung.

[Popov]

Zum Beispiel.

[jaenicke]

Offene Handles und von der Anwendung genutzter Speicher wird seit Windows NT/Windows 2000 von Windows automatisch freigegeben.
Vorher, bei Windows 9x, gab es das so nicht, da führte Halt ggf. auch dort zu Problemen.

Bei geladenen DLLs und Systemobjekten klappt die automatische Freigabe aber offenbar leider nicht immer, zumindest bis XP (bei Vista/7/8 habe ich noch keine solchen Probleme mehr gehabt), wenn das Programm abgeschossen wird. Das führt meistens nicht zu größeren Problemen, aber es kann auch passieren, dass man Windows irgendwann neustarten muss. Was da genau schief geht, weiß ich nicht, weil ich es mir nie genauer angeschaut habe.

[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 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:

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.