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

Советы » INI файлы » Как создать 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
;

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

Другое по теме:

Категории

Статьи

Советы