XProfan

!
Autor: Michael Wodrich
Dieses kleine Testprogramm es entstanden,
porque una einfacher Aufruf des Explorers con
Directorio simplemente no trabajo quería...
(el Verzeichnisbaum debería necesariamente geöffnet ser)
Def @ExpandEnvironmentStrings(3) !"kernel32","ExpandEnvironmentStringsA"

Proc ExpandEnv

    Parámetros s$
    Declarar Buffer#, erg$, fehler&
    Dim Buffer#,4096
    fehler& = @ExpandEnvironmentStrings( Addr(s$), Buffer#, 4096 )
    erg$ = String$(Buffer#,0)
    Disponer Buffer#
    Volver erg$

ENDPROC

Proc Erklaerung_zeigen

    Conjunto("TrueColor",1)
    Cls rgb($FF,0,0)
    Color 14,12
    Localizar 7, 5
    Imprimir "Es voluntad 2 Archivos bajo C:\Programas\ angelegt"
    Localizar 9, 5
    Imprimir "Nach una Tastendruck en diesem Ventana verschwinden ellos otra vez..."
    Localizar 11, 5
    Imprimir "!!! Bitte antes el Beenden el NotePad-Ventana schliessen !!!"
    Color 15,12
    Localizar 15, 3
    Imprimir "Dieses Programa zeigt:"
    Localizar 16, 5
    Imprimir "- Environment-Variables expandieren"
    Localizar 17, 5
    Imprimir "- Explorer con Baumansicht en un determinado Ventana starten"
    Localizar 18, 5
    Imprimir "- NotePad con Expediente aufrufen"

ENDPROC

Proc Dateien_erstellen

    Asignar #1,"c:\programme\$$_test1_yxy_.txt"
    rewrite #1
    imprimir #1,"$$$-ToDo-Liste-$$$"
    imprimir #1,""
    imprimir #1,"- Programa A7839 termingerecht al xx.xx.xx abliefern"
    imprimir #1,"- Recherche después de ..."
    imprimir #1,"- ..."
    imprimir #1,""
    imprimir #1,"######################################################"
    imprimir #1,"Mit el Explorer en una Arbeitsverzeichnis verzweigen"
    imprimir #1,"und ya veces una el Hauptdateien abierto..."
    imprimir #1,"######################################################"
    imprimir #1,""
    imprimir #1,""
    Imprimir #1,"Das Programa zeigt:"
    Imprimir #1,"- Environment-Variables expandieren"
    Imprimir #1,"- Explorer con Baumansicht en un determinado Ventana starten"
    Imprimir #1,"- NotePad con Expediente aufrufen"
    imprimir #1,""
    Imprimir #1,"Es voluntad 2 Archivos bajo C:\Programas\ angelegt"
    Imprimir #1,"Nach una Tastendruck en la ventana principal verschwinden ellos otra vez..."
    imprimir #1,""
    Imprimir #1,"!!! Bitte antes el Programmende dieses NotePad-Ventana schliessen !!!"
    imprimir #1,""
    imprimir #1,"(Wenn Ihr antes el Beenden el Explorer en el Temp-Archivos zeigen laßt,"
    imprimir #1," entonces seht Ihr como ellos otra vez verschwinden.)"
    imprimir #1,""
    imprimir #1,""
    close #1
    Asignar #1,"c:\programme\$$_test2_yxy_.txt"
    rewrite #1
    imprimir #1,"dummy eintrag"
    close #1

ENDPROC

Proc Dateien_wieder_entfernen

    Borrar "c:\programme\$$_test2_yxy_.txt"
    Borrar "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