Private Declare Function GetPrivateProfileString Lib "kernel32" Alias _
  "GetPrivateProfileStringA" (ByVal lpApplicationname As String, ByVal _
  lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As _
  String, ByVal nSize As Long, ByVal lpFileName As String) As Long
 
Function GetINISetting(ByVal Filename As String, ByVal Key As String, ByVal _
  Setting As String, ByVal Default As Variant) As Variant
   Dim Temp As String * 1024
 
   Call GetPrivateProfileString(Key, Setting, Default, Temp, Len(Temp), _
     Filename)
   GetINISetting = Mid(Temp, 1, InStr(1, Temp, Chr(0)) - 1)
End Function
 
DVD_text = INI.GetINISetting(dvd_datei, dvd_section, "text", "")