XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
INI-Datei (per API) schreiben, löschen, Rubrik / Sektion entfernen
Def @Writeprivateprofilestring(4) !KERNEL32,WritePrivateProfileStringA
WritePrivateProfileString schreibt einen String unter der angegebenen Rubrik und dem angegebenen Eintragsnamen
in eine INI Datei. Diese API kann auch ganze Rubriken und Einträge löschen und den Cache der INI
auf die Festplatte schreiben.
L1(Param.1 Longint ) oder B1(Param.1 Bereich ): Adresse eines Strings oder Bereichsvariable mit einem String,
der die Rubrik für den Eintrag enthält. Ist dieser Wert, Parameter 2 und Parameter 3 null,
wird der Cache der INI auf die Platte geschrieben.
L2(Param.2 Longint ) oder B2(Param.2 Bereich ): Adresse eines Strings oder Bereichsvariable mit einem String,
der den Eintragsnamen enthält. Ist dieser wert 0, wird die angegebene Rubrik gelöscht
(es sei denn, Parameter 1 ist null).
L3(Param.3 Longint ) oder B3(Param.3 Bereich ): Adresse eines Strings oder Bereichsvariable mit einem String,
der den hinzuzufügenden Eintrag enthält. Ist dieser Wert 0, wird der Eintrag gelöscht
(es sei denn, Parameter 1 und 2 ist null).
L4(Param.4 Longint ) oder B4(Param.4 Bereich ): Adresse eines Strings oder Bereichsvariable mit einem String,
der Namen und Pfad der INI enthält. Existiert die Datei nicht, wird sie erzeugt.
Def @Writeprivateprofilestring(4) !KERNEL32,WritePrivateProfileStringA
Declare Section$,Key$,Wert$,File$,Filelöschen&,Sectiondel&,Keylesen&,Keydel&,Flush&
Windowstyle 31+512
Windowtitle Die API WritePrivateProfileString
Window 0,0-640,440
Let Section$=Eigene Daten
Let Key$=Mein Eintrag
Let Wert$=Mein Wert
Let File$=C:TEST.INI
Let Filelöschen&=@Createbutton(%Hwnd,INI Löschen,20,200,150,30)
Let Keylesen&=@Createbutton(%Hwnd,Key +Key$+ lesen,200,200,200,30)
Let Flush&=@Createbutton(%Hwnd,INI flushen,450,200,150,30)
Let Sectiondel&=@Createbutton(%Hwnd,Sektion +Section$+ Löschen,20,250,230,30)
Let Keydel&=@Createbutton(%Hwnd,Key +Key$+ Löschen,280,250,230,30)
@Writeprivateprofilestring(@Addr(Section$),@Addr(Key$),@Addr(Wert$),@Addr(File$))

While %Menuitem<>-2

    Waitinput

    If @Getfocus(Keylesen&)

        Set(Errorlevel,-1)
        Print @Readini$(File$,Section$,Key$)
        Set(Errorlevel,0)

    Elseif @Getfocus(Sectiondel&)

        @Writeprivateprofilestring(@Addr(Section$),0,0,@Addr(File$))
        Beep 1

    Elseif @Getfocus(Keydel&)

        @Writeprivateprofilestring(@Addr(Section$),@Addr(Key$),0,@Addr(File$))
        Beep 1

    Elseif @Getfocus(Filelöschen&)

        Assign #1,File$
        Erase #1
        Beep 1

    Elseif @Getfocus(Flush&)

        @Writeprivateprofilestring(0,0,0,@Addr(File$))
        Beep 1

    Endif

s4 href='./../../function-references/XProfan/Wend/'>Wend