读写ini_writeprivateprofilestring linux-优快云博客

本文介绍了如何使用INI文件来保存程序设置，通过声明GetPrivateProfileString和WritePrivateProfileString两个函数，实现读取和写入INI文件的功能。并提供了一个简单的示例说明。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

  很多时候我们编一个程序不一定要用到注册表来保存设置（如果说一个程序没有设置就不算好程序了）。INI是一个很好的选择。有人说，Savesetting是一个不错的选择，但是我了解到，不能永久的保存（起码在系统重装的时候会丢失）。于是Ini作为一个Windows配置文件，可以放在本地路径，优势就呈现出来。下面讨论一下这个问题。

1,模块：
Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, lpKeyName As Any, ByVal lpDefault As String, ByVal lpRetunedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Declare Function SaveINI Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lplFileName As String) As Long
Function GetINI(AppName As String, KeyName As String, filename As String) As String
   Dim RetStr As String
   RetStr = String(10000, Chr(0))
   GetINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", RetStr, Len(RetStr), filename))
End Function

2,调用：
读：Rtn=GetINI(appname, keyname, filename)
写：SaveINI appname,keyname,string,filename

3,解释：例如INI文件中有这么一块：

[main]     .........这就是appname，不包括[]号
FontColor=801085   ............FontColor就是KeyName,801085就是String

而你的INI的绝对路径就是Filename

怎么，是不是现在可以用INI文件保存你的设置啦。