По умолчанию 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;
|