XProfan

!
Autor: Michael Wodrich
Dieses kleine Testprogramm ist entstanden,
weil ein einfacher Aufruf des Explorers mit
Verzeichnis einfach nicht funktionieren wollte...
(der Verzeichnisbaum sollte unbedingt geöffnet sein)
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 werden 2 File unter C:\Programme\ angelegt"
    Locate 9, 5
    Print "Nach einem Tastendruck in diesem Fenster verschwinden sie wieder..."
    Locate 11, 5
    Print "!!! Bitte vor dem Beenden das NotePad-Fenster schliessen !!!"
    Color 15,12
    Locate 15, 3
    Print "Dieses Programm zeigt:"
    Locate 16, 5
    Print "- Environment-Variablen expandieren"
    Locate 17, 5
    Print "- Explorer mit Baumansicht in einem bestimmten Fenster starten"
    Locate 18, 5
    Print "- NotePad mit File aufrufen"

EndProc

Proc Dateien_erstellen

    Assign #1,"c:\programme\$$_test1_yxy_.txt"
    rewrite #1
    print #1,"$$$-ToDo-Liste-$$$"
    print #1,""
    print #1,"- Programm A7839 termingerecht am xx.xx.xx abliefern"
    print #1,"- Recherche nach ..."
    print #1,"- ..."
    print #1,""
    print #1,"######################################################"
    print #1,"Mit dem Explorer in ein Arbeitsverzeichnis verzweigen"
    print #1,"und schon mal eine der Hauptdateien öffnen..."
    print #1,"######################################################"
    print #1,""
    print #1,""
    Print #1,"Das Programm zeigt:"
    Print #1,"- Environment-Variablen expandieren"
    Print #1,"- Explorer mit Baumansicht in einem bestimmten Fenster starten"
    Print #1,"- NotePad mit File aufrufen"
    print #1,""
    Print #1,"Es werden 2 File unter C:\Programme\ angelegt"
    Print #1,"Nach einem Tastendruck in das Hauptfenster verschwinden sie wieder..."
    print #1,""
    Print #1,"!!! Bitte vor dem Programmende dieses NotePad-Fenster schliessen !!!"
    print #1,""
    print #1,"(Wenn Ihr vor dem Beenden den Explorer auf die Temp-File zeigen laßt,"
    print #1," dann seht Ihr wie sie wieder verschwinden.)"
    print #1,""
    print #1,""
    close #1
    Assign #1,"c:\programme\$$_test2_yxy_.txt"
    rewrite #1
    print #1,"dummy eintrag"
    close #1

EndProc

Proc Dateien_wieder_entfernen

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

EndProc

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