XProfan

Italia

Beschreibung:

GetEnvironmentStrings liefert einen Zeiger auf ein Array mit den Umgebungsvariablen des aktuellen Prozesses zurück. Die Umgebungsvariablen sind in der Form ‚Variable=Wert’ gelistet und durch Nullbytes voneinander getrennt. Der Block wird durch ein doppeltes Nullbyte abgeschlossen. Der Bereich muss mach der Nutzung mit FreeEnvironmentStrings wieder freigegeben werden..

Deklaration:

Def @GetEnvironmentStrings(0) !kernel32,GetEnvironmentStringsA

Parameter:

Diese Funktion hat keine Parameter.

Rückgabewert:

Ein Pointer (Adresse) auf die Umgebungsvariablen eines Prozesses.

Beispiele:

Kompilieren Markieren Separieren

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>)