Ich weiss jetzt nicht, ob Deine Zeilen funktionierten, habe aber mal eine Änderung für den Namen der ini vorzuschlagen. So hast Du immer automatisch eine Ini passend zum Anwendungsnamen. Das geht natürlich so nicht, wenn mehrere Echsen auf die gleiche Ini zugreifen sollen. Das mit der Funktion hat aber den Vorteil, dass Du an jeder Stelle im Programm den richtigen Ini-Namen zurückbekommst.
Delphi-Quellcode:
function AppIniName:String;
begin
result := ChangeFileExt(ParamStr(0), '.ini');
// alternativ
// result := IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0)))
// + 'settings.ini';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ini := TIniFile.create(AppIniName);
try
...
finally
free;
end;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
ini := TIniFile.create(AppIniName);
with ini do
try
...
finally
ini.free;
end;
end;