VB Code:
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
Public IniFile As String
Public Function GetCaption(AppName As String, KeyName As String, _
Default As String)
GetCaption = GetIniStr(AppName, KeyName, Default)
GetCaption = Trim(GetCaption)
End Function
Private Function GetIniStr(lpAppName As String, lpKeyName As String, _
lpDefault As String)
Dim ret As Long
Dim Temp As String * 200
Dim lpFileName As String
lpFileName = IniFile
ret = GetPrivateProfileString(lpAppName, lpKeyName, lpDefault, Temp, _
Len(Temp), lpFileName)
If ret <> 0 Then
GetIniStr = Trim0(Temp)
End If
End Function
Private Function Trim0(Word As String)
Dim i As Integer
For i = Len(Word) To 1 Step -1
If Asc(Mid$(Word, i, 1)) <> 0 Then Exit For
Next i
Trim0 = Left$(Word, i)
End Function
Usage