XProfan

Español

Descripción:

ExpandEnvironmentStrings ersetzt en un Textausdruck todos Umgebungsvariablen por ihre expandierten Werte. Wenn de el Registry Pfade ausgelesen voluntad, debería esta zuerst antes Weiterverarbeitung por esta Función geschickt voluntad.

Deklaration:

DEF @ExpandEnvironmentStrings(3)!kernel32,ExpandEnvironmentStringsA

Parámetro:

1.Parámetro: Adresse uno Cuerdas oder Bereichsvariable con un String, el Umgebungsvariablen enthält.

2.Parámetro: Bereichsvariable, el el expandierten String aufnimmt.

3.Parámetro: Größe el Bereichsvariable de Parámetro 2 en Bytes como LongInt.

Rückgabewert:

0 en Misserfolg. Ansonsten el número el Buchstaben en el Rückgabestring. Ist Parámetro 2 a klein dimensioniert, puede ser así encima esta Función auch el benötigte Größe de Parámetro 2 herausfinden.

Beispiele:

Kompilieren Marca Separación

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

wend