БОЛЬШОЙ FAQ ПО DELPHI



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




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ