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