如何删除ini文件中指定区段和指定项

Question

[Startup]
AppName=MyTool
Appver=
[setting]
username=要删除整个[setting]区段和[startup]中的appver项，
如何操作？谢谢

Answer 1

'''删除项目或区,可删除一个键项目
'''WritePrivateProfileString section, Key, vbNullString, inifile
'''可删除一个区
'''WritePrivateProfileString section, vbNullString, vbNullString, inifile
'''

Answer 2

注意先申明：
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _
                                (ByVal lpApplicationName As String, _
                                 ByVal lpKeyName As Any, _
                                 ByVal lpString As Any, _
                                 ByVal lpFileName As String) As Long

Answer 3

[abc1] 
    a=123 
    b=456 
     
    [abc2] | 
    a=111 |删除此三行 
    b=222 | 
     
    [abc3] 
    a=888 
    b=999 其实WritePrivateProfileSection函数就可以完成这个工作。这函数的第二个参数如果为空就可以删除掉所有键。 
    如果你这样调用该API： 
    Private Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String, ByVal lpFileName As String) As Long 
     
    Private Sub Command1_Click() 
     WritePrivateProfileSection "abc2", "", "my.INI" 
    End Sub 
    则运行后，.ini文件中abc2下将没有任何值，但[abc2]仍然有。 
    而如果这样调用该函数（请注意声明不同） 
    Private Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As Any, ByVal lpFileName As String) As Long 
     
    Private Sub Command1_Click() 
     WritePrivateProfileSection "PanelSetup", 0&, "myCADX2.INI" 
    End Sub 
    则运行后，.ini文件中连abc2也没有了。