一个操作Ini文件的类.txt

时间:2013-02-16 11:35:48
【文件属性】:

文件名称:一个操作Ini文件的类.txt

文件大小:3KB

文件格式:TXT

更新时间:2013-02-16 11:35:48

一个操作Ini文件的类ini文件全消灭

'--------cIniFile.cls 代码---------------- '这里定义了一个cIniFile类 Option Explicit '// Private member that holds a reference to '// the path of our ini file Private strInI As String '// Win API Declares 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 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 Function MakePath(ByVal strDrv As String, _


网友评论