Как создать 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;

Далее: Как сохранить и получить строку из INI-файла »»