XProfan

Español

Descripción:

GetEnvironmentStrings liefert una Zeiger en una Array con el Umgebungsvariablen des aktuellen Prozesses zurück. El Umgebungsvariablen son en el Form ‚Variable=Wert’ gelistet y por Nullbytes voneinander getrennt. Der Block se por una doppeltes Nullbyte abgeschlossen. Der Zona muss mach el Nutzung con FreeEnvironmentStrings otra vez freigegeben voluntad..

Deklaration:

Def @GetEnvironmentStrings(0) !kernel32,GetEnvironmentStringsA

Parámetro:

Diese Función ha no Parámetro.

Rückgabewert:

Ein Pointer (Adresse) en el Umgebungsvariablen uno Prozesses.

Beispiele:

Kompilieren Marca Separación

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