Delphi-Quellcode:
begin
if (not FileExists(ExtractFilePath(Application.ExeName) + 'Test.INI')) then
begin
//Einstellungen-Fenster öffnen, Daten selbst eintragen, Übernehmen -> Programm starten
ShowMessage('Ini-Datei nicht gefunden. Daten im nächsten Schritt selbst eintragen.');
TFormEinstellungen.Create(Application).Show;
end;
end;
Edit:
und
Action := caFree;
ins OnClose von TFormEinstellungen.
Es kracht immer wenn ich versuche die Einstellungen Form zu öffnen. Selbst wenn ich sie vorher "Create". Ich verstehs nicht.