'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'完成 d:\123.ini 内容如下-------写INI
'
'[main]
'Caption = 石陆软件屋
'例句  SaveINI "main", "Caption", "石陆软件屋", "D:\123.ini"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'd:\123.ini 内容如下-------读取INI
'
'[main]
'Caption = 石陆软件屋
'例句  GetINI("main", "Caption", "'http://baidu.bzzo.net", "D:\123.ini")
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit

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

'Const pa As String = "C:\Users\BAIDU-ZCY\Desktop\ccc.ini"
Public Function WriteINI(ByVal Genus As String, ByVal Item As String, ByVal Value As String, ByVal InIname As String) As Long
    WriteINI = WritePrivateProfileString(Genus, Item, Value, InIname)
End Function

Public Function ReadINI(ByVal Genus As String, ByVal Item As String, ByVal Default As String, ByVal InIname As String) As String
    ReadINI = String$(255, 0)
    GetPrivateProfileString Genus, Item, Default, ReadINI, 256, InIname
    ReadINI = Replace(ReadINI, Chr(0), "")
End Function

Sub DelItem(ByVal Genus As String, ByVal Item As String, ByVal InIname As String)
    WritePrivateProfileString Genus, Item, 0&, InIname
End Sub

Sub DelItemAll(ByVal Genus As String, ByVal InIname As String)
    WritePrivateProfileSection Genus, "", InIname
End Sub

Sub DelSec(ByVal Genus As String, ByVal InIname As String)
    WritePrivateProfileSection Genus, 0&, InIname
End Sub

Private strINI As String

Private 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
Private 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

Public Sub WriteIniKey(strSection As String, strKey As String, strValue As String)
    WritePrivateProfileString strSection, strKey, strValue, strINI
End Sub

Public Function GetIniKey(strSection As String, strKey As String, ByVal Default As String) As String
    GetIniKey = String$(255, 0)
    GetPrivateProfileString strSection, strKey, Default, GetIniKey, 256, strINI
    GetIniKey = Replace(GetIniKey, Chr(0), "")
End Function

'***********************************************************
'**属性过程         INIFileName
'**作    用         设置INI文件名字
'**作    者         石陆
'**制作日期         2007年12月8日9:51:59
'**修    改
'**修改日期
'**石陆软件屋       http://baidu.bzzo.net
'***********************************************************
Public Property Let INIFileName(ByVal New_IniPath As String)
    strINI = New_IniPath
End Property

'***********************************************************
'**属性过程         INIFileName
'**作    用         返回INI文件名字
'**作    者         石陆
'**制作日期         2007年12月8日9:53:06
'**修    改
'**修改日期
'**石陆软件屋       http://baidu.bzzo.net
'***********************************************************
Public Property Get INIFileName() As String
    INIFileName = strINI
End Property

Public Function DelIniKey(ByVal SectionName As String, ByVal KeyWord As String)
     WritePrivateProfileString SectionName, KeyWord, 0&, strINI
End Function

Public Function DelIniSec(ByVal SectionName As String)      '清除section
    WritePrivateProfileString SectionName, 0&, "", strINI
End Function