在Windows中利用.INI文件做程序有关数据的存储工作是很常见的，其中涉及了读和写.INI文件问题，下面就介绍几种不同的方法给大家参考：

　　从.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 // 调用的文件名
);