写ini.txt

来自「读写INI」· 文本 代码 · 共 28 行

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, lpKeyName As Any, ByVal lpDefault As String, ByVal lpRetunedString 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 lplFileName As String) As Long

Private r As Long
Private entry As String
Private iniPath As String

Function GetFromINI(AppName As String, KeyName As String, FileName As String) As String
   Dim RetStr As String
   RetStr = String(255, Chr(0))
   GetFromINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", RetStr, Len(RetStr), FileName))
End Function

Private Sub Command4_Click()
    entry$ = Text1.Text
    r = WritePrivateProfileString("注册信息", "序列号", entry, iniPath)
    If r <> 1 Then MsgBox "写序列号出错！"
End Sub

Private Sub Form_Load()  
    iniPath$ = App.Path + "\rwini32.ini"
    Command7_Click
End Sub
读ini文件
    Text1.Text = GetFromINI("注册信息", "序列号", iniPath)
    Text2.Text = GetFromINI("用户信息", "姓名", iniPath)