XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Umgebungsvariablen auflisten
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:,2)