47.iniファイルから数値を取得する



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


< 説明 >
API関数のGetPrivateProfileInt を使用します。
GetPrivateProfileInt =>iniファイルから数値を取得する
  <引数>
     lpApplicationName:セクション名
     lpKeyName:キー名
     nDefault:デフォルト(なかった場合に入る)
     lpFileName:INIファイル名
  @戻り値@  
     取得した数値が入る


< SAMPLE >
'ここではWin.iniファイルの[intl]の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





API 技術関連のページへ戻る

ホーム PV ランキング