erzeugen einer TInifile

[marabu]

Hallo Haegar,

ein Programm braucht eigentlich immer zwei INI-Dateien. Die erste liegt bei meinem Programm im Installationsverzeichnis. Sie wird nur gelesen und dient der Konfiguration durch den Administrator.

ini := TIniFile.Create(ChangeFileExt(ParamStr(0), '.ini')); Die zweite ist benutzerbezogen und enthält die impliziten (Fenstergrößen und -positionen, etc.) und expliziten Einstellungen (Hauptmenü: Optionen, Ansicht, etc.) des Benutzers.

Delphi-Quellcode:

resourcestring
  ENV_APPDATA = 'APPDATA';

function AppDataDir: string;
begin
  Result := GetEnvironmentVariable(ENV_APPDATA);
end;

begin
  ini := TIniFile.Create(AppDataDir + ChangeFileExt(ExtractFileName(ParamStr(0)), '.ini');
  ...
end;

Leichte Variationen je nach den Betriebsrichtlinien der Kunden existieren - das Konzept bleibt immer gleich.

Grüße vom marabu