注释：Public 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
注释：返回一个字符串
注释：调用举例：
注释：Dim strRun As String
注释：strRun = GetiniValue("Windows","Run", "C:\Windows\Win.ini")
Public Function GetiniValue(ByVal lpKeyName As String, ByVal strName As String, ByVal strIniFile As String) As String
Dim strTmp As String * 255
Call GetPrivateProfileString(lpKeyName, strName, "", _
strTmp, Len(strTmp), strIniFile)
GetiniValue = Left$(strTmp, InStr(strTmp, vbNullChar) - 1)
End Function
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
