【正文】
me As String, ByVal strTopic As String, ByVal strINIfilename As String) As StringDim lngRet As LongDim buff As Stringbuff = String(255, 0)lngRet = GetPrivateProfileString(strSectionName, strTopic, , buff, 256, strINIfilename)If lngRet 0 Then MyReadINI = buffEnd IfExit FunctionEnd FunctionE-Mail: goj2000 ByVal lpFileName As String) As LongKey必選。Public Function GetSetting( _ ByVal AppName As String, _ ByVal Section As String, _ ByVal Key As String, _ Optional ByVal Default As String = _) As String 參數 AppName必選。 Private Declare Function WritePrivateProfileString Lib kernel32 Alias WritePrivateProfileStringA _許家國參數