Как создать Ini-файл в директории программы

Автор: Павел

По умолчанию ini-файл создается в Windows-директории (например: TIniFile.Create('MFile.ini' )), что приводит к "захламлению" оной. Более (эко-)логично (за исключением случаев, когда программа делается для CD-ROM) если ini-файл создается в той же директории что и главная программа. Вот пример чтения и записи ini файла из директории программы:

function ReadIni(ASection, AString : String) : String;
var
  sIniFile: TIniFile;
  sPath: String[60];
begin
  GetDir(0,sPath);
  sIniFile := TIniFile.Create(sPath + '\Name.INI');
  Result := sIniFile.ReadString(ASection, AString, S); sIniFile.Free;
end;

procedure WriteIni(ASection, AString, AValue : String);
var
  sIniFile: TIniFile;
  sPath: String[60];
begin
  GetDir(0,sPath);
  sIniFile := TIniFile.Create(sPath + '\Name.INI');
  sIniFile.WriteString(ASection, AString, AValue);
  sIniFile.Free;
end;

Еще один более легкий способ:

uses
    IniFiles,  SysUtils,  System;
...
var
    sIniFile: TIniFile;
begin
...
    sIniFile := TIniFile,Create(ChangeFileExt(ParamStr(0),'.ini'));
...
    sIniFile.Free;