Сергей Талипов: Иcпользование API на Delphi 7

Ini-файл – это текстовый файл, в котором информация сгруппирована по секциям, ключам. Данные файлы широко применяются во многих приложениях и в операционной системе Windows для хранения различных программных данных и настроек пользователя. В таком файле можно хранить, например, положение окон программы, дату, время и продолжительность работы программы, пути к разным данным и данным, выбранные в программе настройки пользователя Ниже приведена структура и пример Ini-файла:

Для работы с Ini-файлами применяется дополнительный модуль Delhi «inifiles». Ссылку на данный модуль необходимо прописать в разделе «uses» работающей с Ini-файлами форме программы. Вся работа с Ini-файлами осуществляется через тип «TiniFile» модуля «inifiles». Основные методы данного типа следующие:

Рассмотрим на подробном примере процедуру записи информации в Ini-файл:

procedure TForm1.Button3Click(Sender: TObject);

var t_Ini: TIniFile;

k: integer; s, path_pr, nfile: string; td: tdatetime;

begin

k:=736; s:='Okey'; td:=now;

path_pr:=ExtractFilePath(application.exename) +'tsn.ini';

t_Ini := TIniFile.Create(nfile);

try

with t_Ini do begin

WriteInteger('TSN', 'str1', k);

WriteFloat('TSN', 'str2', 736.123);

WriteString('TSN', 'str3', s);

WriteDate('TSN', 'str4', strtodate('01.02.2012'));

WriteTime('TSN', 'str5', td);

Writebool('TSN', 'str6', true);

end;

except

showmessage('Нет доступа к Ini-файлу !');

end;

t_Ini.Updatefile; t_Ini.Free;

end;

Рассмотрим на примере процедуру считывания ранее сохраненной информации из Ini-файла:

procedure TForm1.Button4Click(Sender: TObject);

var t_Ini: TIniFile;

k: integer; s, path_pr, nfile: string; td: tdatetime;

begin

path_pr:=ExtractFilePath(application.exename) +'tsn.ini';

t_Ini := TIniFile.Create(nfile);

try

with t_Ini do begin

k:=ReadInteger('TSN', 'str1', -1); showmessage(inttostr(k));

s:=ReadString('TSN', 'str3', '-1'); showmessage(s);

td:=ReadDate('TSN', 'str4', strtodate('1.1.2000'));

showmessage(datetostr(td));

showmessage(floattostr(ReadFloat('TSN', 'str2', -1.123)));

showmessage(timetostr(ReadTime('TSN2', 'str5', now)));

showmessage(inttostr(byte(ReadBool('TSN2', 'str6', false))));

end;

except

showmessage('Нет доступа к Ini-файлу !');

end;

t_Ini.Free;

end;

Реестр Windows – это база данных, в которой операционная система Windows и внешние программы сохраняют нужные им данные. Логическая структура реестра напоминает строение Ini-файла, отличие состоит в том, что Ini-файл состоит из разделов (секций) и ключей раздела со значениями, а реестр состоит из разделов, вложенных подразделов (неограниченное число) и ключей (параметров) разделов/подразделов со значениями.

Реестр Windows имеет древовидную структуру, подобную файловой системе, где разделы и подразделы соответствуют каталогам и подкаталогам, а ключи со значениями – именам файлов: