４７．iniファイルから数値を取得する



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

＜　説明　＞
ＡＰＩ関数のGetPrivateProfileInt を使用します。
GetPrivateProfileInt ＝＞iniファイルから数値を取得する
　　＜引数＞
　　　　　lpApplicationName：セクション名
　　　　　lpKeyName：キー名
　　　　　nDefault：デフォルト（なかった場合に入る）
　　　　　lpFileName：ＩＮＩファイル名
　　＠戻り値＠　　
　　　　　取得した数値が入る

<　ＳＡＭＰＬＥ　＞
'ここではWin.iniファイルの[intｌ]のiCountryの数値を取得します
'標準モジュール
Public Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As 　String, ByVal lpKeyName As　String, ByVal nDefault As Long, ByVal lpFileName As String) As Long

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

　　nFileName = "C:\Windows\Win.ini"
　　Meinname = "intl"
　　SubName = "iCountry"

　　Ret = GetPrivateProfileInt(Meinname, SubName, Default, nFileName)
　　Text1.Text = Ret
End Sub