1
2
3
4
5
6
7
8
9
10
|
Private Declare Ansi Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" ( _
ByVal lpApplicationName As String, _
ByVal lpKeyName As String, _
ByVal lpString As String, _
ByVal lpFileName As String) _
As Integer
Public Sub DeleteKey(ByVal INIFile As String, ByVal Section As String, ByVal Key As String)
WritePrivateProfileString(Section, Key, Nothing, INIFile)
End Sub
|