#N88BASIC
Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" _
( lpApplicationName As BytePtr, _
lpKeyName As BytePtr, _
nDefault As Long, _
lpFileName As BytePtr) As Long

Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _
( lpApplicationName As BytePtr, _
lpKeyName As VoidPtr, _
lpDefault As BytePtr, _
lpReturnedString As BytePtr, _
nSize As Long, _
lpFileName As BytePtr) As Long

Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _
( lpApplicationName As BytePtr, _
lpKeyName As VoidPtr, _
lpString As VoidPtr, _
lpFileName As BytePtr) As Long

'ファイル名だけだとWINDOUSフォルダにつくってしまう
Const IniFile = ".\平井公彦.ini"

Dim s[20] As Byte
Dim d As Long
WritePrivateProfileString("kuki-yuuki-aki", "Kimihiko", "( ̄ー+ ̄)キラリ", IniFile)

'Iniファイルは文字列にしないとカキコできない!
d=090-7777-7777
wsprintf(s, "%d", d)
WritePrivateProfileString("kuki-yuuki-aki", "Kimihiko2", s, IniFile)

GetPrivateProfileString("kuki-yuuki-aki", "Kimihiko", "?",s,20,IniFile)
Print MakeStr(s)
d = GetPrivateProfileInt("kuki-yuuki-aki", "Kimihiko2", 64,IniFile)
Print d

タグ:

+ タグ編集
  • タグ:

このサイトはreCAPTCHAによって保護されており、Googleの プライバシーポリシー利用規約 が適用されます。

最終更新:2010年01月27日 00:05