如何删除.ini文件中某个项目下的所有键值.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 16 行

其 实 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也 没 有 了 。 
<END>