JL35
Nombre de messages : 7095
Localisation : 77
Date d'inscription : 29/11/2007
 | | Sujet: Suppression de la fenêtre noire Jeu 27 Sep 2012 - 16:29 | |
| J'ai fini par trouver un truc assez simple pour supprimer l'apparition de la fenêtre noire inesthétique pendant l'exécution d'un programme externe appelé depuis panoramic. Il suffit de lancer l'exécution (Execute ou Execute_Wait) depuis un .bat, lui-même lancé depuis un script vbs. Le gros avantage (à mon avis): tout est en Panoramic, pas besoin de dll externe ! Le script vbs (par exemple Monscript.vbs, qui lance Monprog.bat) est de la forme: - Code:
-
CreateObject("Wscript.Shell").Run "Monprog.bat",0,True et il est lancé par la commande: - Code:
-
EXECUTE_WAIT "WSCRIPT.exe Monscript.vbs" Je l'ai mis sous forme de SUB facile à incorporer dans n'importe quel programme, avec comme argument le programme à lancer et ses paramètres éventuels. Un exemple: liste des fichiers du répertoire C:\UTIL, résultat dans un fichier txt - Code:
-
' Suppression de la fenêtre noire au lancement d'une commande
Exprog("Cmd.exe /c DIR C:\UTIL >C:\TEMP\Dir.txt")
TERMINATE
' ==============================================================================
SUB Exprog(prog$)
' Exécution d'un programme externe sans la fenêtre noire ms-dos
DIM_LOCAL scr$, bat$, axp$
scr$ = "C:\TEMP\Vbscript.vbs"
bat$ = "C:\TEMP\Bat.bat"
' ===== Création du fichier .bat
FILE_OPEN_WRITE 9, bat$: FILE_WRITELN 9, prog$: FILE_CLOSE 9
' ===== Création du script .vbs
axp$ = "CreateObject("+CHR$(34)+"Wscript.Shell"+CHR$(34)+").Run "
axp$ = axp$ + CHR$(34) + bat$ + CHR$(34) + ", 0, True"
FILE_OPEN_WRITE 9, scr$: FILE_WRITELN 9, axp$: FILE_CLOSE 9
' ===== Exécution du script
EXECUTE_WAIT "WSCRIPT.exe "+scr$
FILE_DELETE bat$: FILE_DELETE scr$
END_SUB
' =========================================================================================== | |
|
Klaus
Nombre de messages : 12293
Age : 74
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: Re: Suppression de la fenêtre noire Jeu 27 Sep 2012 - 21:50 | |
| | |
|
Nardo26
Nombre de messages : 2294
Age : 55
Localisation : Valence
Date d'inscription : 02/07/2010
| | Sujet: Re: Suppression de la fenêtre noire Jeu 27 Sep 2012 - 23:46 | |
| Astucieux!  | |
|
Yannick
Nombre de messages : 8610
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010
| | Sujet: re Ven 28 Sep 2012 - 10:34 | |
| | |
|
Contenu sponsorisé
| | Sujet: Re: Suppression de la fenêtre noire | |
| |
|
Calendrier
