Получить строку из файла .INI
вар
стрРезультат: pchar;
начинать
GetPrivateProfileString(
´windows´, //Имя заголовка в []
´NullPort´,//=Имя перед номером
´NIL´,//Если строка не найдена, возвращается значение по умолчанию
strResult,//Сохраняем полученные символы
100, //Получаем максимально допустимую длину символов
´c:/forwin95/win.ini´//Имя вызываемого файла
);
edit1.text:=strResult;//Отображение полученной строки
Получить целое число из файла .INI
edit1.text:=inttostr(GetPrivateProfileInt(
´intl´,//Название заголовка в []
´iCountry´,//=имя перед номером
0, //Если целое число не найдено, возвращается значение по умолчанию
´c:/forwin95/win.ini´//Имя вызываемого файла
));
Записать строку в файл .INI
WritePrivateProfileString(
´windows´, //Имя заголовка в []
´load´,//Чтобы записать строку перед знаком "="
´accca´,//Данные для записи
´c:/forwin95/win.ini´//Имя вызываемого файла
);
Запись целых чисел в файл .INI
WritePrivateProfileSection(
´windows´, //Имя заголовка в []
´read=100´,//Данные для записи
´c:/forwin95/win.ini´//Имя вызываемого файла
);
Вышеупомянутый метод заключается в вызове функции API. Вот еще один метод получения символов из файла .INI без использования API.
varMyIni:TIniFile;
начинать
MyIni:=TIniFile.Create(´WIN.INI´);//Имя вызываемого файла
edit1.text:=MyIni.ReadString(´Рабочий стол´,´Обои´,´´);//Получить символы
конец;
Как записать символы в файл .INI
varMyIni:TIniFile;
начинать
MyIni:=TIniFile.Create(´WIN.INI´);//Имя вызываемого файла
DelphiIni.WriteString('Рабочий стол','Обои','c:/a.bmp');
конец;