windows之家1.如何新建ini文件
1、以win7系统为例，首先打开电脑左下角的开始按钮，在菜单中找到“附件”中的“记事本”。
2、点击打开“记事本”，点击左上角的“文件”，在打开的菜单中选择“保存”按钮。
3、即可弹出保存的对话框，将“保存类型”改为“所有文件”；将文件名后面加上“.ini”作为扩展名，点击保存。
4、即可在保存的路径中看到已经新建了一个ini格式的文件。
2.建立与读取.ini文件
虽然进入win95之后，一般读写ini文件被读写Registry所取代，但我们还是可以透过
win31的传统方式读写ini文件，以存程式目前的相关设定，而於下一次程式执行时再
读回来。目前建议使用GetSetting SaveSetting的方式存於Registry中，不用目前
的方式。 储存程式的设定
'请於form中放3个TextBox，一个CommandBox
Private Declare Function Lib "kernel32" _
Alias "" (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 Lib "kernel32" _
Alias "" (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 = ("MyApp", "text1", Text1.Text, "c:\\aa.ini")
'叁数一 Section Name
'叁数二 於.ini中的项目
'叁数三 项目的内容
'叁数四 .ini文件的名称
success = ("MyApp", "text2", Text2.Text, "c:\\aa.ini")
success = ("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 = ("Myapp", "text1", "text1", buff, 256, "c:\\aa.ini")
'若.ini MyApp中无text1，则采用叁数三的值
Text1.Text = buff
buff = String(255, 0)
ret = ("Myapp", "text2", "text2", buff, 256, "c:\\aa.ini")
Text2.Text = buff
buff = String(255, 0)
ret = ("Myapp2", "text3", "text3", buff, 256, "c:\\aa.ini")
Text3.Text = buff
End Sub
操作INI文件可以参考本站源码：
转载请注明出处windows之家 » win10怎么创ini文件