４８．iniファイルから文字列を取得する




＜　使用用途　＞
データを読み込む時などに用いる

＜　説明　＞
ＡＰＩ関数のGetPrivateProfileStringを使用します。
GetPrivateProfileString ＝＞iniファイルから文字列を取得する
　　＜引数＞
　　　　　lpAppName：セクション名
　　　　　lpKeyName：ｷｰ名
　　　　　lpDefault：ｷｰが見つからなかった場合のﾃﾞﾌｫﾙﾄの文字列
　　　　　lpReturnedString：取得した文字列が入る
　　　　　nSize：同、文字数
　　　　　inifilename：ＩＮＩファイル名
　　＠戻り値＠　　
　　　　　取得した文字列

<　ＳＡＭＰＬＥ　＞
'ここではSystem.iniファイルからキーボードタイプを取得します
'標準モジュール
Public Declare Function GetPrivateProfileString Lib"kernel32" Alias "GetPrivateProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal inifilename As String) As Long

'ここからはフォームの処理
Private Sub Command1_Click()
　　Dim nFileName As String
　　Dim SubName As String
　　Dim MeinName As String
　　Dim Default As String
　　Dim Leng As Long
　　Dim nName As String
　　Dim Ret As Long

　　'バッファを確保
　　nName = String(256, Chr(0))
　　Leng = Len(nName)

　　MeinName = "boot.description"　　
　　SubName = "keyboard.typ"
　　nFileName = "C:\Windows\system.ini"

　　Ret = GetPrivateProfileString(MeinName, SubName, Default, nName, Leng, nFileName)
　　Text1.Text = nName

End Sub