WIN.INIへの書き込みと読み込み          <TOP>

WIN.INIファイルの指定したセクションおよびキーに文字列を書き込みます。

WriteProfileString WIN.INIの指定のセクションの内容を変更

GetProfileInt WIN.INIから指定のキーの整数値を取得

　

※参照

■iniファイルからキーやセクションを削除
■iniファイルから文字列を取得
　

'================================================================
'= WIN.INIへの書き込みと読み出し
'=    (WriteProfileString.bas)
'================================================================

' WIN.INIの指定のセクションの内容を変更
Declare Function Api_WriteProfileString& Lib "kernel32" Alias "WriteProfileStringA" (ByVal lpszSection$, ByVal lpszKeyName$, ByVal lpszString$)

' WIN.INIから指定のキーの整数値を取得
Declare Function Api_GetProfileInt& Lib "kernel32" Alias "GetProfileIntA" (ByVal lpAppName$, ByVal lpKeyName$, ByVal nDefault&)

var lSec As String
var lKey As String
var lStr As String
var Ret As Long

lSec = "Tokovalue"
lKey = "Year"
lStr = "2005"

'WIN.INIのセクション「Tokovalue」、キー「Year」に「2005」を書き込む
Ret = Api_WriteProfileString(lSec, lKey, lStr)
Print "Win.iniの" & "セクション[" & lSec & "]のキー[" & lKey & "]に 2005 を書き込みました！"

'WIN.INIのセクション「Tokovalue」、キー「Year」の値を読み込む
Ret = Api_GetProfileInt(lSec, lKey, 0)
Print "Win.iniの" & "セクション[" & lSec & "]のキー[" & lKey & "]から " & Trim$(Str$(Ret)) & " を読み込みました！"

Stop
End