Code:
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 Const mcstrIniFile = "C:\test.ini"
Private Sub cmdSaveSettings_Click()
WritePrivateProfileString App.Title, "Command1", Command1.Caption, mcstrIniFile
WritePrivateProfileString App.Title, "Command2", Command2.Caption, mcstrIniFile
WritePrivateProfileString App.Title, "Command3", Command3.Caption, mcstrIniFile
End Sub
Private Sub Form_Load()
Command1.Caption = m_ReadSettingsValue("Command1", "Command1", mcstrIniFile)
Command2.Caption = m_ReadSettingsValue("Command2", "Command2", mcstrIniFile)
Command3.Caption = m_ReadSettingsValue("Command3", "Command3", mcstrIniFile)
End Sub
Private Function m_ReadSettingsValue(KeyName As String, _
DefaultValue As String, _
FileName As String _
) As String
Dim Ret As String
Dim NC As Long
Ret = String(255, 0)
NC = GetPrivateProfileString(App.Title, KeyName, DefaultValue, Ret, 255, FileName)
If NC <> 0 Then Ret = Left$(Ret, NC)
m_ReadSettingsValue = Ret
End Function