'API für INI Datein
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 Declare Function ReadIni 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 WriteIni Lib "kernel32" Alias _
"WritePrivateProfileStringA" (ByVal lpApplicationName As _
String, ByVal lpKeyName As Any, ByVal lpString As Any, _
ByVal lpFileName As String) As Long
 
Public Enum liste
  iBoolean = 0
  iString = 1
End Enum
 
'Damit wird das auslesen von ini's erheblich erleichtert .... 
Public Function ReadSetting(ByVal Abschnitt As String, _
ByVal Key As String, FileName As String, Optional Typ As liste) As String
 
Dim RetStr As String
        RetStr = Space(256)
        ReadIni Abschnitt, Key, RetStr, RetStr, Len(RetStr), FileName
 
    If Typ = iString Then
err:
        ReadSetting = RetStr
    ElseIf Typ = iBoolean Then
        On Local Error GoTo err:
        ReadSetting = CBool(RetStr)
    End If
 
End Function

ReadSetting("Abschnitt", "Key", App.Path & "\Config.ini", iString)

Text1.Text = ReadSetting("Abschnitt", "Key", App.Path & "\Config.ini", iString)

WriteIni "Abschnitt", "Key", "Wert", App.Path & "\Config.ini"

-----------------------------------------------
?ber einen GB eintrag freue ich mich immer
http://www.Cabcom13.de =)