Option Explicit
 
'******************************************************************************
' *********************
'   Form            :   modAPIFunktionen
'   Sub/Funktion    :   GetPrivateProfileString
'   Beschreibung    :   Auslesen eines Strings aus einer Konfigurationsdatei 
' mit der Endung ini
'******************************************************************************
' *********************
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
 
'******************************************************************************
' *********************
'   Form            :   modAPIFunktionen
'   Sub/Funktion    :   WritePrivateProfileString
'   Beschreibung    :   Schreiben von Daten in eine Konfigurationsdatei mit der 
' Endung ini
'******************************************************************************
' *********************
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

Public Sub Anwender_Save(ByVal sINI As String)
Dim ret As Long
    ret = WritePrivateProfileString("Adresse", "Firma", sAnwenderFirma, sINI)
    ret = WritePrivateProfileString("Adresse", "Name", sAnwenderName, sINI)
    ret = WritePrivateProfileString("Adresse", "Vorname", sAnwenderVorname, _
      sINI)
    ret = WritePrivateProfileString("Adresse", "Straße", sAnwenderStr, sINI)
    ret = WritePrivateProfileString("Adresse", "Plz", sAnwenderPlz, sINI)
    ret = WritePrivateProfileString("Adresse", "Ort", sAnwenderOrt, sINI)
End Sub