XProfan

Français

Beschreibung:

WritePrivateProfileString écrit une String sous qui angegebenen Rubrik et dem angegebenen Eintragsnamen dans un INI Dossier. cet API peux aussi ganze Rubriken et Einträge effacer et den Cache qui INI sur qui Festplatte écrivons.

Deklaration:

Def @WritePrivateProfileString(4) !KERNEL32,WritePrivateProfileStringA

paramètre:

1.paramètre: Adresse eines Cordes ou bien Bereichsvariable avec einem String, qui qui Rubrik pour den Eintrag contient. Ist cette Wert, paramètre 2 et paramètre 3 zéro, wird qui Cache qui INI sur qui Platte geschrieben.

2.paramètre: Adresse eines Cordes ou bien Bereichsvariable avec einem String, qui den Eintragsnamen contient. Ist cette wert 0, wird qui angegebene Rubrik gelöscht (es sei car, paramètre 1 ist zéro).

3.paramètre: Adresse eines Cordes ou bien Bereichsvariable avec einem String, qui den hinzuzufügenden Eintrag contient. Ist cette Wert 0, wird qui Eintrag gelöscht (es sei car, paramètre 1 et 2 ist zéro).

4.paramètre: Adresse eines Cordes ou bien Bereichsvariable avec einem String, qui Namen et Pfad qui INI contient. Existiert qui Dossier pas, wird vous erzeugt.

Rückgabewert:

1 si qui String erfolgreich eingetragen wurde, 0 chez Misserfolg ou bien si qui Cache sur qui Festplatte geschrieben wurde.

Beispiele:

Kompilieren Marque Séparation

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

function-references/XProfan/Wend/'>Wend