读写ini文件：
先在 uses 定义 Inifiles, 在 var 定义 myinifile：Tinifile；
实现部分写代码：
myinifile：=Tinifile.create('d:\1.ini')//打开D盘的 1.ini 文件。
myinifile.readstring('小节名','关键字','缺省值')；//读取字符型数据。
myinifile.redainteger（'小节名','关键字','缺省值')//读取整数型数据。
myinifile.readbool（'小节名','关键字','缺省值')//读取逻辑型数据。
写入INI文件：
myinifile.writestring('小节名','关键字',变量或字符串值)；//写入字符型数据。
myinifile.writeinteger（'小节名','关键字','变量或整型数值)//写入整数型数据。
myinifile.writebool（'小节名','关键字',变量或TRUE或FALSE)//写入逻辑型数
myinifile.Free；//释放INI文件。
如果对您有帮助，请记得采纳为满意答案，谢谢！祝您生活愉快！
vaela
写入.ini文件：BOOL WritePrivateProfileString(LPCTSTR lpAppName, // INI文件中的一个字段名[节名]可以有很多个节名 LPCTSTR lpKeyName, // lpAppName 下的一个键名，也就是里面具体的变量名 LPCTSTR lpString, // 键值,也就是数据 LPCTSTR lpFileName // INI文件的路径
)读取.ini文件：DWORD GetPrivateProfileString(
LPCTSTR lpAppName,// INI文件中的一个字段名[节名]可以有很多个节名 LPCTSTR lpKeyName,// lpAppName 下的一个键名，也就是里面具体的变量名 LPCTSTR lpDefault,// 如果lpReturnedString为空,则把个变量赋给lpReturnedString LPTSTR lpReturnedString, // 存放键值的指针变量,用于接收INI文件中键值(数据)的接收缓冲区 DWORD nSize,// lpReturnedString的缓冲区大小 LPCTSTR lpFileName// INI文件的路径
)读取整形值：(返回值为读到的整)UINT GetPrivateProfileInt(
LPCTSTR lpAppName, // INI文件中的一个字段名[节名]可以有很多个节名
LPCTSTR lpKeyName, // lpAppName 下的一个键名，也就是里面具体的变量名
INT nDefault, // 如果没有找到指定的数据返回,则把个变量值赋给返回值 LPCTSTR lpFileName // INI文件的路径)
读写INI文件时相对路径和绝对路径都可以,根据实际情况选择"..\\IniFileName.ini"// 这样的为相对路径"D:\\IniFileName.ini"// 这样的为绝对路径MAX_PATH:是微软最大路径占的字节所设的宏例子:写INI文件:LPTSTR lpPath = new char[MAX_PATH]
strcpy(lpPath, "D:\\IniFileName.ini")WritePrivateProfileString("LiMing", "Sex", "Man", lpPath)
WritePrivateProfileString("LiMing", "Age", "20", lpPath)
WritePrivateProfileString("Fangfang", "Sex", "Woman", lpPath)
WritePrivateProfileString("Fangfang", "Age", "21", lpPath)delete [] lpPathINI文件如下:[LiMing]
Sex=Man
Age=20
[Fangfang]
Sex=Woman
Age=21读INI文件:LPTSTR lpPath = new char[MAX_PATH]
LPTSTR LiMingSex = new char[6]
int LiMingAge
LPTSTR FangfangSex = new char[6]
int FangfangAge
strcpy(lpPath, "..\\IniFileName.ini")
GetPrivateProfileString("LiMing", "Sex", "", LiMingSex, 6, lpPath)
LiMingAge = GetPrivateProfileInt("LiMing", "Age", 0, lpPath)
GetPrivateProfileString("Fangfang", "Sex", "", FangfangSex, 6, lpPath)
FangfangAge = GetPrivateProfileInt("Fangfang", "Age", 0, lpPath)delete [] lpPath//以前mark别人Blog上的code,希望对你有帮助。
