XProfan

!
Author: Michael Wodrich
this small Testprogramm is emerged,
because one plainer appeal the Explorers with
directory simply not functions wished...
(the Verzeichnisbaum ought to absolutely opened his)
Def @ExpandEnvironmentStrings(3) !"kernel32","ExpandEnvironmentStringsA"

Proc ExpandEnv

    Parameters s$
    Declare Buffer#, erg$, fehler&
    Dim Buffer#,4096
    fehler& = @ExpandEnvironmentStrings( Addr(s$), Buffer#, 4096 )
    erg$ = String $(Buffer#,0)
    Dispose Buffer#
    Return erg$

ENDPROC

Proc Erklaerung_zeigen

    Set("TrueColor",1)
    Cls rgb($FF,0,0)
    Color 14,12
    Locate 7, 5
    Print "Es go 2 Files under C:\programs\ angelegt"
    Locate 9, 5
    Print "Nach one Tastendruck in this Window vanish tappt im dunkeln again..."
    Locate 11, 5
    Print "!!! Please to the terminate the NotePad-Window close !!!"
    Color 15,12
    Locate 15, 3
    Print "Dieses Program shows:"
    Locate 16, 5
    Print "- Environment-variables expandieren"
    Locate 17, 5
    Print "- Explorer with Baumansicht in a given Window starten"
    Locate 18, 5
    Print "- NotePad with File aufrufen"

ENDPROC

Proc Dateien_erstellen

    Assign #1,"c:\programs\$$_test1_yxy_.txt"
    rewrite #1
    print #1,"$$$-ToDo-list-$$$"
    print #1,""
    print #1,"- Program A7839 termingerecht on the xx.xx.xx abliefern"
    print #1,"- investigation to ..."
    print #1,"- ..."
    print #1,""
    print #1,"######################################################"
    print #1,"Mit the Explorer into Arbeitsverzeichnis verzweigen"
    print #1,"und already time a the Hauptdateien open..."
    print #1,"######################################################"
    print #1,""
    print #1,""
    Print #1,"Das Program shows:"
    Print #1,"- Environment-variables expandieren"
    Print #1,"- Explorer with Baumansicht in a given Window starten"
    Print #1,"- NotePad with File aufrufen"
    print #1,""
    Print #1,"Es go 2 Files under C:\programs\ angelegt"
    Print #1,"Nach one Tastendruck into Mainwindow vanish tappt im dunkeln again..."
    print #1,""
    Print #1,"!!! Please to the End of program this NotePad-Window close !!!"
    print #1,""
    print #1,"(If your to the terminate whom Explorer on The Temp-Files show red,"
    print #1," then see your How tappt im dunkeln again vanish.)"
    print #1,""
    print #1,""
    close #1
    Assign #1,"c:\programs\$$_test2_yxy_.txt"
    rewrite #1
    print #1,"dummy eintrag"
    close #1

ENDPROC

Proc Dateien_wieder_entfernen

    Erase "c:\programs\$$_test2_yxy_.txt"
    Erase "c:\programs\$$_test1_yxy_.txt"

ENDPROC

Erklaerung_zeigen
Dateien_erstellen
WinExec(ExpandEnv("%SystemRoot%\explorer.exe /e,c:\programme"),1)
WinExec(ExpandEnv("%SystemRoot%\notepad.exe c:\programs\$$_test1_yxy_.txt"),1)
waitkey
Dateien_wieder_entfernen
end