1
2
3
4
5
6
7
8
9
10
|
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
|