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

Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...

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