DLL rubrique Divers

Bonjour,

J'ai rajouté 2 nouvelles fonctions pour le lancement d'un fichier batch dans la DLL Utils...
Voir ICI pour la description... Very Happy

Attention : ces fonctions n'acceptent pas de lancement de batch avec passage de paramètres.

On a trouvé le fils spirituel de Klaus Smile

Merci Nardo

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

Pas mal Nardo ta dll d'exécution silencieuse de commandes, ça ouvre la voie à l'exécution discrète des quelque 80 commandes ms-dos, super.

Par contre, je ne comprends pas ta réserve:

Citation :: Attention : ces fonctions n'acceptent pas de lancement de batch avec passage de paramètres.

il me semble que je le fais et que ça marche très bien, à moins que tu veuilles parler de récupération de paramètres en retour ?

Un exemple: liste simplifiée des fichiers .bas de mon répertoire Panoramic:

Code:: DIM i%, fm$, rep$, exec$
fm$ = "C:\Temp\Dir.tmp": ' ************************ A VOIR
rep$ = "C:\Langages\Panoramic": ' ***************** A VOIR
DLL_ON "C:\Langages\Panoramic\Nardo\Utils.dll": ' * A VOIR
HEIGHT 0, SCREEN_Y-50: WIDTH 0, 200
LIST 1: HEIGHT 1, HEIGHT(0)-50: WIDTH 1, 180: FONT_NAME 1, "Fixedsys"
exec$ = "Cmd.exe /c DIR " + rep$ + "\*.bas /B >" + fm$
i% = DLL_CALL1("ExecuteAndWait", ADR(exec$))
FILE_LOAD 1, fm$: FILE_DELETE fm$
DLL_OFF
END

Bonne nouvelle alors ?!!!! Wink

Chez moi cela ne fonctionnait pas... et maintenant oui...
bizarre tout de même.... scratch

Je suis sûr que c'est encore un problème lié au keylogger de cosmos...

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

C'est probable, avec lui il faut s'attendre à tout santa

.
De même, pour connaître les volumes montés sans que ça parte en erreur, avec la commande VOL (et ta dll évidemment):

Code:: LABEL Dir, Volumes
DIM i%, j%, a$, fm$, rep$, exec$
fm$ = "C:\Temp\Dir.tmp": ' ************************ A VOIR
rep$ = "C:\Langages\Panoramic": ' ***************** A VOIR
DLL_ON "C:\Langages\Panoramic\Nardo\Utils.dll": ' * A VOIR
HEIGHT 0, SCREEN_Y-50: WIDTH 0, 600
LIST 1: HEIGHT 1, HEIGHT(0)-50: WIDTH 1, 580: FONT_NAME 1, "Fixedsys"
' GOSUB Dir
GOSUB Volumes
DLL_OFF
END

Dir:
exec$ = "Cmd.exe /c DIR " + rep$ + "\*.bas /B >" + fm$
i% = DLL_CALL1("ExecuteAndWait", ADR(exec$))
CLEAR 1: FILE_LOAD 1, fm$: FILE_DELETE fm$
RETURN

Volumes:
FOR j% = ASC("C") TO ASC("Z")
exec$ = "Cmd.exe /c VOL " + CHR$(j%) + ": >" + fm$
i% = DLL_CALL1("ExecuteAndWait", ADR(exec$))
FILE_OPEN_READ 1, fm$
WHILE FILE_EOF(1) = 0
FILE_READLN 1, a$
IF LEFT$(a$, 10) = " Le volume"
ITEM_ADD 1, CHR$(j%)+": " + MID$(a$, 40, 50)
END_IF
END_WHILE
FILE_CLOSE 1: FILE_DELETE fm$
NEXT j%
ITEM_ADD 1, "Fin"
RETURN

Bon rassure-toi, je ne vais pas te faire toutes les commandes Dos Smile

En plus c'est pas le tout, mais ça va être l'heure de l'apéro...

J'ai déjà commencé !! Wink

Bonne idée, tiens, je vais en faire autant en plus ça tuera peut-être les derniers microbes qui me restent Smile

A la votre Smile

Nombre de messages : 57 Date d'inscription : 21/11/2011

merci nardo je m'en sert dans mon programme de gestion de service c plus propre que louverture de fenetre et ca me permet de passer tranquillement du batch a panoramic .....

» IDE et Divers
» Rubrique Astuces
» Rubrique jeux
» Rubrique "à l'aide!"
» Pourquoi cette rubrique?