XProfan

Français

Beschreibung:

GetEnvironmentStrings liefert une aiguille sur un Array avec den Umgebungsvariablen des aktuellen Prozesses zurück. qui Umgebungsvariablen sommes dans qui forme ‚Variable=Wert’ gelistet et par Nullbytes voneinander getrennt. qui Block wird par un doppeltes Nullbyte abgeschlossen. qui Bereich muss mach qui Nutzung avec FreeEnvironmentStrings wieder freigegeben volonté..

Deklaration:

Def @GetEnvironmentStrings(0) !kernel32,GetEnvironmentStringsA

paramètre:

cet Funktion hat aucun paramètre.

Rückgabewert:

un Pointer (Adresse) sur qui Umgebungsvariablen eines Prozesses.

Beispiele:

Kompilieren Marque Séparation

Def @GetEnvironmentStrings(0) !"kernel32","GetEnvironmentStringsA"
DEF @FreeEnvironmentStrings(1) !"kernel32","FreeEnvironmentStringsA"
Declare INV#,INV_POINTER&,INV$,Zähler%,INV_BUF_Länge&
LET INV_BUF_Länge&=1024*16
DIM inv#,INV_BUF_Länge&
Clear INV#
LET INV_POINTER&=@GetEnvironmentStrings()
LET inv#=INV_POINTER&
Let Zähler%=0

WHILE @String$(INV#,Zähler%)<>""

    LET INV$=@String$(INV#,Zähler%)
    ADDSTRING INV$
    LET Zähler%=Zähler%+@LEN(INV$)+1

WEND

ADDSTRING ""
ADDSTRING ""
Let Zähler%=0

WHILE @String$(INV#,Zähler%)<>""

    LET INV$=@String$(INV#,Zähler%)
    LET Zähler%=Zähler%+@LEN(INV$)+1
    LET INV$=@SubStr$(INV$,1,"=")
    ADDSTRING INV$

WEND

@FreeEnvironmentStrings(INV_POINTER&)
Dispose inv#
@LISTBOX$("Liste aller Umgebungsvariablen des Prozesses:",pan>)