XProfan

!
Autor: Michael Wodrich
cet kleine Testprogramm ist entstanden,
weil un einfacher Aufruf des Explorers avec
Verzeichnis simple pas marcher voulais...
(qui Verzeichnisbaum sollte absolument ouvert son)
Def @ExpandEnvironmentStrings(3) !"kernel32","ExpandEnvironmentStringsA"

Proc ExpandEnv

    Paramètres s$
    Déclarer Buffer#, erg$, fehler&
    Faible Buffer#,4096
    fehler& = @ExpandEnvironmentStrings( Addr($ S), Buffer#, 4096 )
    erg$ = String$(Buffer#,0)
    Dispose Buffer#
    Retour erg$

ENDPROC

Proc Erklaerung_zeigen

    Set("TrueColor",1)
    Cls rgb($FF,0,0)
    Color 14,12
    Localiser 7, 5
    Imprimer "Es volonté 2 Fichiers sous C:\Programme\ angelegt"
    Localiser 9, 5
    Imprimer "Nach einem Tastendruck dans diesem la fenêtre verschwinden vous wieder..."
    Localiser 11, 5
    Imprimer "!!! s'il te plaît avant dem finissons cela NotePad-la fenêtre schliessen !!!"
    Color 15,12
    Localiser 15, 3
    Imprimer "Dieses Programme zeigt:"
    Localiser 16, 5
    Imprimer "- Environment-Variablen expandieren"
    Localiser 17, 5
    Imprimer "- Explorer avec Baumansicht dans einem certain la fenêtre starten"
    Localiser 18, 5
    Imprimer "- NotePad avec Dossier aufrufen"

ENDPROC

Proc Dateien_erstellen

    Assign #1,"c:\programme\$$_test1_yxy_.txt"
    rewrite #1
    imprimer #1,"$$$-ToDo-liste-$$$"
    imprimer #1,»
    imprimer #1,"- Programme A7839 termingerecht am xx.xx.xx abliefern"
    imprimer #1,"- Recherche pour ..."
    imprimer #1,"- ..."
    imprimer #1,»
    imprimer #1,"######################################################"
    imprimer #1,"Mit dem Explorer dans un Arbeitsverzeichnis verzweigen"
    imprimer #1,"und déjà la fois une qui Hauptdateien ouvrir..."
    imprimer #1,"######################################################"
    imprimer #1,»
    imprimer #1,»
    Imprimer #1,"Das Programme zeigt:"
    Imprimer #1,"- Environment-Variablen expandieren"
    Imprimer #1,"- Explorer avec Baumansicht dans einem certain la fenêtre starten"
    Imprimer #1,"- NotePad avec Dossier aufrufen"
    imprimer #1,»
    Imprimer #1,"Es volonté 2 Fichiers sous C:\Programme\ angelegt"
    Imprimer #1,"Nach einem Tastendruck dans cela Hauptfenster verschwinden vous wieder..."
    imprimer #1,»
    Imprimer #1,"!!! s'il te plaît avant dem Programmende cet NotePad-la fenêtre schliessen !!!"
    imprimer #1,»
    imprimer #1,"(si son avant dem finissons den Explorer sur qui Temp-Fichiers montrer laßt,"
    imprimer #1," ensuite voyez son comment vous wieder verschwinden.)"
    imprimer #1,»
    imprimer #1,»
    close #1
    Assign #1,"c:\programme\$$_test2_yxy_.txt"
    rewrite #1
    imprimer #1,"dummy eintrag"
    close #1

ENDPROC

Proc Dateien_wieder_entfernen

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