Mirage Source

Option Explicit

'ModINI.Bas
'INI reading/writing
Public Declare Function WritePrivateProfileString& Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal AppName$, ByVal KeyName$, ByVal keydefault$, ByVal FileName$)
Public Declare Function GetPrivateProfileString& Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal AppName$, ByVal KeyName$, ByVal keydefault$, ByVal ReturnedString$, ByVal RSSize&, ByVal FileName$)

Public Sub WriteINI(INISection As String, INIKey As String, INIValue As String, INIFile As String)

    Call WritePrivateProfileString(INISection, INIKey, INIValue, INIFile)

End Sub

Public Function ReadINI(INISection As String, INIKey As String, INIFile As String) As String

    Dim StringBuffer As String
    Dim StringBufferSize As Long
   
    StringBuffer = Space$(255)
    StringBufferSize = Len(StringBuffer)
   
    StringBufferSize = GetPrivateProfileString(INISection, INIKey, "", StringBuffer, StringBufferSize, INIFile)
   
    If StringBufferSize > 0 Then
        ReadINI = Left$(StringBuffer, StringBufferSize)
    Else
        ReadINI = ""
    End If

End Function