這個是VB的代碼，自己建立一個ActiveX DLL，然後改變工程名稱和類名稱，然後在類中輸入如下內容即可。
'//////////////////////////////
'中文名稱：INI檔案操作類
'英文名稱：Blood_INI Class
'作者：Blood
'製作時間：2002.2.8
'版本：1.0
'著作權 Blood 2002-2003
'//////////////////////////////
'申明變數
Private strAppName As String 'INI小節名稱
Private strKeyName As String 'INI項目名
Private strValueStr As String 'INI的項目值
Private strFileName As String 'INI檔案名稱
'申明操作INI檔案的API
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 String, ByVal lpFileName As String) As Long
'////////////////////
'開始定義函數
'////////////////////
'定義寫INI檔案的函數
Public Function WriteINI() As Long
'通過API將值寫入INI檔案
WriteINI = WritePrivateProfileString(strAppName, strKeyName, strValueStr, strFileName)
End Function
'定義讀INI檔案的函數
Public Function GetINI() As String
Const STRING_SIZE = 255 '指定字串長度
Dim lngLength As Long '定義API函數返回的長度
Dim strDefault As String * STRING_SIZE '定義在沒有找到指定的項目時返回的預設值
Dim strReturn As String * STRING_SIZE '定義一個字串緩衝區
'通過API函數取得INI檔案的內容
lngLength = GetPrivateProfileString(strAppName, strKeyName, strDefault, strReturn, STRING_SIZE, strFileName)
'通過判斷API函數返回的長度來確定返回的值
If (lngLength = 0) Then
GetINI = strValueStr
Else
GetINI = Mid(strReturn, 1, lngLength)
End If
End Function
'////////////////////
'定義函數結束
'////////////////////
'////////////////////
'開始定義屬性
'////////////////////
'取得INI檔案的名稱
Public Property Let FileName(ByVal strFile As String)
strFileName = strFile
End Property
'取得項目值
Public Property Let ValueStr(ByVal strValue As String)
strValueStr = strValue
End Property
'取得項目名稱
Public Property Let KeyName(ByVal strKey As String)
strKeyName = strKey
End Property
'取得小節名稱
Public Property Let AppName(ByVal strApp As String)
strAppName = strApp
End Property
'////////////////////
'結束定義屬性
'////////////////////
