Überprüfung bei Programmstart

[DeddyH]

Heißt Dein Hauptformular Application? Das ist sehr ungünstig.

[a.def]

Außerdem würde ich das CheckIni nicht in TForm1 legen sondern diese Funktion direkt in die DPR-Datei schreiben und noch VOR Application.Initialize; aufrufen.

Delphi-Quellcode:

function CheckIni : Boolean;
begin
  Result := FileExists(ChangeFileExt(Application.ExeName,'.ini'));
end;

begin
  if not CheckIni then
   begin  
    showmessage('Ini-Datei nicht vorhanden ...'); 
    Halt(1);
   end; 

  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.Title := 'Application';
  Application.CreateForm(TApplication, Application);
  Application.Create;
  Application.Run;
end.

[Freyr77]

Zitat von DeddyH:

Heißt Dein Hauptformular Application? Das ist sehr ungünstig.

Nein. Ich ändere nur eindeutige Namen ab bevor ich den Code hier poste

[DeddyH]

Was soll den die Zeile "Application.Create" bewirken?

[a.def]

Mach es doch einfach so wie beschrieben.

- prüfe in der Ini-Datei FRÜH GENUG, ob die Ini-Datei vorhanden ist.
-- wenn nicht, dann merke dir das in einer Variablen oder beende das Programm

- wenn Ini nicht vorhanden und du es dir merkst, dann behandle diese Variable im WMFormVisible nachdem die Anwendung komplett geladen wurde (habe ich oben ja bereits geschrieben)

[haentschman]

Hallöle...
TFormSettings.ShowModal müßte es nicht FormSettings.ShowModal heißen?

Wenn es so wäre dann empfehle ich dir den OOP Crashkurs... https://www.delphi-treff.de/tutorial...phi-crashkurs/