Option ExplicitPrivate Declare Function WritePrivateProfileString Lib "kernel32.dll" Alias "WritePrivateProfileStringA" ( _ ByVal lpApplicationName As String, _ ByVal lpKeyName As Any, _ ByVal lpString As Any, _ ByVal lpFileName As String) As LongSub Main() WritePrivateProfileString "Temp", "a002", vbNullString, "C:\temp\1.ini" End Sub
删除原来的ini文件
重新写一个ini文件,写的时候不写你要删除的那一个键
ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _
ByVal lpString As Any, _
ByVal lpFileName As String) As LongSub Main()
WritePrivateProfileString "Temp", "a002", vbNullString, "C:\temp\1.ini"
End Sub