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
Alte URL:
/snippet/ini-sektion-loeschen/90