XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Umgebungsvariablen ersetzen
ExpandEnvironmentStringsA ersetzt in einem Textausdruck alle Umgebungsvariablen
durch ihre expandierten Werte. Wenn aus der Registry Pfade ausgelesen werden,
sollten diese zuerst vor der Weiterverarbeitung durch diese Funktion geschickt werden.
Def @Expandenvironmentstrings(3) !kernel32,ExpandEnvironmentStringsA
Declare Fehler&, Envergebnis#, Button&
Declare Envergebnis$

Proc Variableersetzeninstring

    Parameters Zuvalidierendertext$
    der interne Puffer muß das gesamte Environment abdecken können
    sonst gibt es einen Fehler bezüglich der Bereichsgrenze
    Dim Envergebnis#,261
    Let Envergebnis$ =
    Let Fehler& = @Expandenvironmentstrings( @Addr(Zuvalidierendertext$), Envergebnis#, 261)
    Let Envergebnis$ = @String$(Envergebnis#,0)
    Dispose Envergebnis#
    Return Envergebnis$

Endproc

Windowstyle 31
Windowtitle Umgebungsvariablen ersetzen
Window 0,0 - 640,440
Let Button& = @Createbutton(%Hwnd, Variable eingeben, 20,300, 200,30)

While 0 = 0

    Waitinput

    If @Getfocus(Button&)

        Variableersetzeninstring @Input$(Umgebungsvariable eingeben:, Ersetzen, %WINDIR%)
        Print @$(0)

    Endif

Endwhile