VB Code:
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public 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
Function ReadInI(strSectionHeader As String, strVariableName As String, strFileName As String) As String
Dim strReturn As String
'// reads INI file
strReturn = String(255, Chr(0))
ReadInI = Left$(strReturn, _
GetPrivateProfileString(strSectionHeader, ByVal strVariableName, "=", strReturn, Len(strReturn), strFileName))
End Function
Function WriteINI(strSectionHeader As String, strVariableName As String, strValue As String, strFileName As String) As String
'// writes to the INI file
WriteINI = WritePrivateProfileString(strSectionHeader, strVariableName, strValue, strFileName)
End Function
VB Code:
Private Sub Command1_Click()
ReadInI "AnyKey", "AnyString", App.Path & "\settings.ini"
End Sub
Private Sub Command2_Click()
WriteINI App.EXEName, "AnyKey", "AnyString", App.Path & "\settings.ini"
End Sub