1. Verlege die Prüfung aus dem Create in eine eigene Methode des Formulars (z. B. TForm1.CheckIni)
2. Füge vor der Zeile Application.Run die Prüfung in die
dpr ein.
Z. B.:
if Form1.CheckIni then Application.Run;
Ist der Rückgabewert von CheckIni <> true, wird das Programm nicht gestartet.
CheckIni könnte so in der Art aussehen:
Delphi-Quellcode:
function TForm1.CheckIni : Boolean;
begin
if not FileExists(ChangeFileExt(Application.ExeName,'.ini')) then
begin
// Du musst hier dafür sorgen, dass das Einstellungsformular auch einen passenden Rückgabewert hat.
// Buttons haben dafür z. B. die Eigenschaft ModalResult.
Result := FormEinstellungen.ShowModal = mrOK;
end;
end;