'================================================================
'= iniファイルから文字列を取得

'=    (GetPrivateProfileString.bas)
'================================================================

' iniファイルから文字列を取得
Declare Function Api_GetPrivateProfileString& Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName$, ByVal lpKeyName As Any, ByVal lpDefault$, ByVal lpBuffurnedString$, ByVal nSize&, ByVal lpFileName$)

' iniファイルに文字列を書き込む
Declare Function Api_WritePrivateProfileString& Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName$, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName$)

Var AppName As String
Var KeyName As String
Var Default As String
Var BuffString As String
Var FileName As String
Var Leng As Long
Var Ret As Long

AppName = "ODBC 32 bit Data Sources"
KeyName = "Excel Files"
FileName = "c:\windows\odbc.ini"

BuffString = String$(256, Chr$(0))
Leng = Len(BuffString)

Ret = Api_GetPrivateProfileString(AppName, KeyName, Default, BuffString, Leng, FileName)

If Ret <> 0 Then BuffString = Left$(BuffString, Ret)

Print BuffString

Stop
End