虽然进入win95的後般读写ini文件被读写Registry所取代但我们还是可以透过

　　win31传统方式读写ini文件以存程式目前相关设定而於下次程式执行时再读回来目前建议使用GetSetting SaveSetting方式存於Registry中不用目前方式 储存程式设定

'请於form中放3个TextBox个CommandBox
Private Declare Function GetPrivateProfileString Lib "kernel32"　_
　 Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
　 ByVal lpKeyName As Any, ByVal lpDefault As String,　_
　 ByVal lpReturnedString As String, ByVal nSize As Long, _
　 ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32"　_
　 Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, _
　 ByVal lpKeyName As Any, ByVal lpString As Any, _
　 ByVal lpFileName As String) As Long
Private Sub Command1_Click
Dim success As Long
success = WritePrivateProfileString("MyApp", "text1", Text1.Text, "c:\aa.ini")
'叁数 Section Name
'叁数 2 於.ini中项目
'叁数 3 项目内容
'叁数 4 .ini文件名称
success = WritePrivateProfileString("MyApp", "text2", Text2.Text, "c:\aa.ini")
success = WritePrivateProfileString("MyApp2", "text3", Text3.Text, "c:\aa.ini")
End Sub
Private Sub Form_load
Dim ret As Long
Dim buff As String
buff = String(255, 0)
ret = GetPrivateProfileString("Myapp", "text1", "text1", buff, 256, "c:\aa.ini")
'若.ini MyApp中无text1则采用叁数 3值
Text1.Text = buff
buff = String(255, 0)
ret = GetPrivateProfileString("Myapp", "text2", "text2", buff, 256, "c:\aa.ini")
Text2.Text = buff
buff = String(255, 0)
ret = GetPrivateProfileString("Myapp2", "text3", "text3", buff, 256, "c:\aa.ini")
Text3.Text = buff
End Sub