Anwendung im Form.Create Ereignis beenden

[DL3AD]

Hallo,

Ich prüfe im Form.Create Ereignis auf zum Ausführen der Anwendung notwendige Dateien.
Wenn sie fehlen dann soll eine SchowMessage kommen und die Anwendung beendet werden ohne dass das Form.Show Ereignis eintritt.
Wie kann man das realisieren ?

Gruß Frank

[m.fuchs]

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
begin
  if 1 = 1 then begin
    ShowMessage('Blafasel');
    Halt;
  end;
end;

Im Gegensatz zu Application.Terminate wird bei Halt das Programm sofort und nicht erst nach dem Show des Forms beendet.

[DL3AD]

Hallo m.fuchs,

DANKE für den Tipp ! - manche Dinge sind so simpel, dass man einfach nicht darauf kommt

[Warf]

Hallo m.fuchs,

DANKE für den Tipp ! - manche Dinge sind so simpel, dass man einfach nicht darauf kommt

Denk aber dran das Halt dir das Programm direkt killt. Soweit ich weiß werden dann keine Destruktoren aufgerufen. Ich bin mir nicht mal sicher of Finalize Code aufgerufen wird. Wenn du also Logs speichern willst solltest du das auf jeden fall vor dem Finalize machen

[m.fuchs]

Soweit ich weiß werden dann keine Destruktoren aufgerufen.

Aber sicher doch. Wenn das Halt im OnCreate des Forms passiert, wird sowohl OnDestroy als auch Destroy durchgeführt.
Was natürlich nicht passiert, sind die entsprechenden Aufrufe von Forms die erst später erzeugt werden. Wurden jedoch Forms vor dem erzeugt, welches im Create ein Halt aufruft, so werden auch deren OnDestroy und Destroy abgearbeitet.

Ich bin mir nicht mal sicher of Finalize Code aufgerufen wird. Wenn du also Logs speichern willst solltest du das auf jeden fall vor dem Finalize machen

Alle finalize-Blöcke von benutzten Units werden abgearbeitet.

[Mathias]

So wie es scheint, ist HALT nicht mehr so brutal wie früher. Ich habe ein wenig die Source von FPC angeguckt, da wird noch recht viel gemacht, bis endgültig das Ende kommt.