XProfan

Italia

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
INI-Dateien: Sektion oder einzelnen Schlüssel komplett aus INI-Datei löschen
PRFellow- Vorlage
Autor: Thomas Hölzer
Lösch-Routinen für Ini-Dateien (nicht Registry!)
(Ganze Sektion oder einzelnen Schlüssel komplett löschen)
Def WriteToIni(4) !KERNEL32,WritePrivateProfileStringA
Declare section#,ininame#,ident#

Proc EraseIniSection

    Parameters ini$,section$
    Case Equ$(ini$,):  Return
    Case Equ$(section$, ) : Return
    Dim section#,Add(Len(section$),1)
    Dim ininame#,Add(Len(ini$),1)
    String section#,0=section$
    String ininame#,0=ini$
    WriteToIni(section#,0,0,ininame#)
    WriteToIni(0,0,0,ininame#)  Cache auf Platte schreiben
    Dispose section#
    Dispose ininame#

EndProc

Proc DeleteIniKey

    Parameters ini$,section$,ident$
    Case Equ$(ini$,):  Return
    Case Equ$(section$, ) : Return
    Case Equ$(ident$,): Return
    Dim section#,Add(Len(section$),1)
    Dim ininame#,Add(Len(ini$),1)
    Dim ident#,Add(Len(ident$),1)
    String section#,0=section$
    String ininame#,0=ini$
    String ident#,0=ident$
    WriteToIni(section#,ident#,0,ininame#)
    WriteToIni(0,0,0,ininame#)  Cache auf Platte schreiben
    Dispose section#
    Dispose ininame#
    Dispose ident#

ENDPROC

Beispiele:
EraseIniSection D:WINTEST.INI,windows
DeleteIniKey D:WINTEST.INI,Winfax, Resolution