Private Declare Ansi Function GetPrivateProfileString Lib "kernel32.dll" Alias _
  "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal _
  lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As _
  String, ByVal nSize As Int32, ByVal lpFileName As String) As Int32
 
Private Declare Ansi Function WritePrivateProfileString Lib "kernel32.dll" _
  Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal _
  lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As _
  Int32
 
'Funktion zum Lesen
'strSection = Sektion in der INI-Datei
'strKey = Name des Schlüssels
'strDefault = Standardwert, wird zurückgegeben, wenn der Wert in der INI-Datei 
' nicht gefunden wurde
'strFile = Vollständiger Pfad zur INI-Datei
Public Function INI_ReadValueFromFile(ByVal strSection As String, ByVal strKey _
  As String, ByVal strDefault As String, ByVal strFile As String) As String
Dim strTemp As String = Space(1024), lLength As Integer
lLength = GetPrivateProfileString(strSection, strKey, strDefault, strTemp, _
  strTemp.Length, strFile)
Return (strTemp.Substring(0, lLength))
End Function
 
'Funktion zum Schreiben
'strSection = Sektion in der INI-Datei
'strKey = Name des Schlüssels
'strValue = Wert, der geschrieben werden soll
'strFile = Vollständiger Pfad zur INI-Datei
Public Function INI_WriteValueToFile(ByVal strSection As String, ByVal strKey _
  As String, ByVal strValue As String, ByVal strFile As String) As Boolean
Return (Not (WritePrivateProfileString(strSection, strKey, strValue, strFile) = _
0))
End Function

wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passw?rten
wintoolz.Filmdatenbank - Verwaltungssoftware f?r Filme
wintoolz.CodeGallery - Programm zum speichern von Codeschnipseln