'
'  IniFile.lss
'
'  Time-stamp: <2002-01-04 15:47:16 daniel.eriksson>
'
'  Date        Author           Changes
'  ----------  ---------------  ------------------------------------
'  2001-07-18  Daniel Eriksson  Created
'
' TODO: Implement reading of values: GetPrivateProfileString.

Option Explicit

Declare Private Function WritePrivateProfileString Lib "kernel32" Alias _
"WritePrivateProfileStringA" (Byval lpApplicationName As String, Byval _
lpKeyName As Any, Byval lpString As Any, Byval lpFileName As String) As Long

Public Class IniFile
'
' Example: 
' Dim file As String
' file = "C:\WINDOWS\SYSTEM\Pdfwritr.ini"
' Dim app As String
' app = "Acrobat PDFWriter"
' Dim ini As New IniFile(app, file)
' Call ini.set("PDFFileName", "c:\temp\initest.pdf")  
'
  Private m_app As String
  Private m_file As String
  
  Public Sub New(application As String, file As String)
    m_app = application
    m_file = file
  End Sub
  
  Public Sub set(key As String, value As String)
    'Flush
    Call WritePrivateProfileString(0, 0, 0, m_file)
    Call WritePrivateProfileString(m_app, key, value, m_file)
  End Sub
End Class