ini 文件的读写

Declare Function WritePrivateProfileSection Lib "kernel32" _
    Alias "WritePrivateProfileSectionA" ( _
    ByVal lpAppName As String, ByVal lpString As String, _
    ByVal lpFileName As String) As Long

Declare Function WritePrivateProfileString Lib "kernel32" _
    Alias "WritePrivateProfileStringA" ( _
    ByVal lpApplicationName As String, ByVal lpKeyName As Any, _
    ByVal lpString As Any, ByVal lpFileName As String) As Long

Declare Function GetPrivateProfileString Lib "kernel32" _
    Alias "GetPrivateProfileStringA" ( _
    ByVal lpApplicationName As String, ByVal lpKeyName As Any, _
    ByVal lpDefault As String, ByVal lpReturnedString As String, _
    ByVal nSize As Long, ByVal lpFileName As String) As Long

 

'strFileName=INI文件名
'strSection=[节名称]
'strKey=键名
'strValue=键值

Public Function iniWriteKey(strFileName As String, strSection As String, strKey As String, strValue As String) As Boolean
'    iniWriteKey = WritePrivateProfileSection(strSection, strKey, strFileName)
    iniWriteKey = WritePrivateProfileString(strSection, strKey, strValue, strFileName)
End Function

Public Function iniReadKey(strFileName As String, strSection As String, strKey As String) As String
    Dim key As String * 255 '返回的键值,失败时返回字符串 "False"
    Dim c As Integer
    c = GetPrivateProfileString(strSection, strKey, "False", key, Len(key), strFileName)
    iniReadKey = Replace(key, Chr(0), "")
End Function