delphi编程控制INI文件

var

strResult:pchar;

begin

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' // 调用的文件名

);