XProfan

Deutsch

Beschreibung:

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.

Deklaration:

Def @WritePrivateProfileString(4) !KERNEL32,WritePrivateProfileStringA

Parameter:

1.Parameter: 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.

2.Parameter: 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).

3.Parameter: 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).

4.Parameter: Adresse eines Strings oder Bereichsvariable mit einem String, der Namen und Pfad der INI enthält. Existiert die Datei nicht, wird sie erzeugt.

Rückgabewert:

1 Wenn der String erfolgreich eingetragen wurde, 0 bei Misserfolg oder wenn der Cache auf die Festplatte geschrieben wurde.

Beispiele:

Kompilieren Markieren Separieren

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

Wend