Feedback

INI Sektion löschen

Sprache: VB

Eine komplette INI Sektion mit allen Einträgen löschen
Private Declare Ansi Function DeletePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileStringA" ( _
    ByVal Section As String, _
    ByVal NoKey As Integer, _
    ByVal NoSetting As Integer, _
    ByVal FileName As String) _
As Integer

Public Sub EraseINISection(ByVal INIFile As String, ByVal Section As String)
    DeletePrivateProfileSection(Section, 0, 0, INIFile)
End Sub
Private Declare Ansi Function DeletePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileStringA" ( _
    ByVal Section As String, _
    ByVal NoKey As Integer, _
    ByVal NoSetting As Integer, _
    ByVal FileName As String) _
As Integer

Public Sub EraseINISection(ByVal INIFile As String, ByVal Section As String)
    DeletePrivateProfileSection(Section, 0, 0, INIFile)
End Sub