Ouvrir l'invite de commandes MS-DOS

Invité · 12/08/2008, 12h38

Bonjour

J'aimerais savoir comment faire pour ouvrir l'invite de commande MS-DOS, y copier une ligne de commande et l'exécuter le tout bien sûr sans avoir à taper la commande + ENTREE : je veux que tout s'exécute automatiquement.

**evarisnea** · 12/08/2008, 12h48

alors, un petit ShellExecute et une connaissance des options de ligne de commande de l'utilitaire de ligne de commande (excusez la totologie) donne ceci (pas testé) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ShellExecute(0, 'open', 'cmd.exe', '/C "ping www.developpez.com"',0,SW_SHOWDEFAULT);

note l'usage du paramètre /C suivi de la commande à exécuter entre doubles quotes

Invité · 12/08/2008, 12h58

Le shellexecute doit être déclaré auparavant en tant que procédure ?

A quoi sert le "SW_SHOWDEFAULT" ? Est-il nécessaire ?

**evarisnea** · 12/08/2008, 13h15

shellexecute est définie dans l'unité ShellApi je crois bien (à inclure dans les uses des ton unité donc).
pour la définition des paramètres, regarder l'aide de la fonction dans l'aide du SDK windows.

**buggen25** · 12/08/2008, 14h07

salut;
tu peux aussi utiliser SW_HIDE au lieu de SW_SHOWDEFAULT, ceci marche tres bien avec C++, ceci vas te permettre de ne pas afficher une fenetre la fenetre DOS

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ShellExecute(0, 'open', 'cmd.exe', '/C "ping www.developpez.com"',0,SW_HIDE);

**Droïde Système7** · 12/08/2008, 20h28

Bonsoir,

A noter que certains Pare-feu réagissent assez mal à cette manip.

Exemple KAV alertant en disant

que le fichier Ping.exe est modifié

De quoi déboussoler plus d'un utilisateur.

**Coussati** · 13/08/2008, 11h53

si tu as pleins de commandes, tu peux passer par un fichier .bat ?

Invité · 13/08/2008, 16h17

@evarisnea

Le seul souci c'est que ça ouvre l'invite de commande et que ça n'exécute aucune action.

La commande n'est même pas affichée.
Es-tu sûre de la syntaxe ?

PS : j'utilise delphi 7

Invité · 13/08/2008, 17h16

@evarisnea

ça y est : en fait le code qui marche est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ShellExecute(0, 'open', 'cmd.exe', PChar('/C "ping www.developpez.com"'),0,SW_SHOWDEFAULT);

2 dernières questions (et après je vous laisse (normalement) tranquilles lol) :

=> comment garder la commande ping visible lors de l'action ?

=> voici mon instruction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ShellExecute(0, 'open', 'cmd.exe', PChar('/C ExtractShortPathName(EncExe) +current_job.cmdenc+ " -o NUL "+JobData.Input'),0,SW_SHOWDEFAULT);

:
les trucs en rouges étant des variables, je ne sais pas si la syntaxe de tout ce bidule est correcte ?

Invité · 13/08/2008, 23h08

En gros la ligne de commande à copier donnerait ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

F:\x264-CLI_r928\x264.exe --progress --thread-input -B 1378 -p 1 --stats "statsfile.pass" -A "p8x8,b8x8" -b 2 --direct auto --subme 5 --me "hex" -o NUL 1.avs

avec

"ExtractShortPathName(EncExe)" qui est "F:\x264-CLI_r928\x264.exe"

"current_job.cmdenc" qui est "--progress --thread-input -B 1378 -p 1 --stats "statsfile.pass" -A "p8x8,b8x8" -b 2 --direct auto --subme 5 --me "hex""

"JobData.Input" qui est "1.avs"

**evarisnea** · 13/08/2008, 23h48

Envoyé par gizmo27

@evarisnea

ça y est : en fait le code qui marche est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ShellExecute(0, 'open', 'cmd.exe', PChar('/C "ping www.developpez.com"'),0,SW_SHOWDEFAULT);

je n'ai pas eu de problème avec le code précédemment posté (sans le transtypage explicite en PChar)

Envoyé par gizmo27

=> comment garder la commande ping visible lors de l'action ?

eh bien, quel type d'application utilises-tu ? à priori je ne voyais pas de souci, je n'ai même pas d'abord compris le pourquoi de ta question. c'est en testant le code dans une application console que je me suis rendu compte que rien ne s'affichait

pourtant dans une application GUI win32 pas de souci.

Envoyé par gizmo27

=> voici mon instruction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ShellExecute(0, 'open', 'cmd.exe', PChar('/C ExtractShortPathName(EncExe) +current_job.cmdenc+ " -o NUL "+JobData.Input'),0,SW_SHOWDEFAULT);

:
les trucs en rouges étant des variables, je ne sais pas si la syntaxe de tout ce bidule est correcte ? En gros la ligne de commande à copier donnerait ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

F:\x264-CLI_r928\x264.exe --progress --thread-input -B 1378 -p 1 --stats "statsfile.pass" -A "p8x8,b8x8" -b 2 --direct auto --subme 5 --me "hex" -o NUL 1.avs

avec

"ExtractShortPathName(EncExe)" qui est "F:\x264-CLI_r928\x264.exe"

"current_job.cmdenc" qui est "--progress --thread-input -B 1378 -p 1 --stats "statsfile.pass" -A "p8x8,b8x8" -b 2 --direct auto --subme 5 --me "hex""

"JobData.Input" qui est "1.avs"

a priori, j'écrirais ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
ShellExecute(
  0, 
  'open', 
  'cmd.exe', 
  PChar(
    '/C ' + 
    ExtractShortPathName(EncExe) + ' ' +
    current_job.cmdenc + ' -o NUL ' +
    JobData.Input), 
  0, 
  SW_SHOWDEFAULT );

ou alors en passant par une variable que je testerais en chaque fois en mode déboguage pour vérifier son contenu :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
parametre :=     '/C ' + 
    ExtractShortPathName(EncExe) + ' ' +
    current_job.cmdenc + ' -o NUL ' +
    JobData.Input);
ShellExecute(
  0, 
  'open', 
  'cmd.exe', 
  PChar(parametre), 
  0, 
  SW_SHOWDEFAULT );

Invité · 16/08/2008, 19h40

Ok ça fonctionne parfaitement maintenant.

Dernière chose :

comment attendre que le programme soit terminé pour passer à autre chose ?

Je sais qu'il y a la fonction ExecuteandWait

J'ai pensé à un truc du genre ExecuteandWait(shellexecute.................

Mais je ne sais pas trop.

**evarisnea** · 16/08/2008, 20h05

en s'inspirant de la faq peut être un code comme ceci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
procedure TForm1.Button2Click(Sender: TObject);
Var  StartInfo   : TStartupInfo;
     ProcessInfo : TProcessInformation;
     Fin         : Boolean;
     EncExe :string;
begin
  { Mise à zéro de la structure StartInfo }
  FillChar(StartInfo,SizeOf(StartInfo),#0);
  { Seule la taille est renseignée, toutes les autres options }
  { laissées à zéro prendront les valeurs par défaut }
  StartInfo.cb     := SizeOf(StartInfo);
 
  { Lancement de la ligne de commande }
  If CreateProcess(
      Nil, 
      '"cmd.exe" ' + PChar(
        '/C ' +       
        ExtractShortPathName(EncExe) + ' ' +
        current_job.cmdenc + ' -o NUL ' +
        JobData.Input), 
      Nil, 
      Nil, 
      False,
      0, 
      Nil, 
      Nil, 
      StartInfo,
      ProcessInfo) Then
  Begin
    { L'application est bien lancée, on va en attendre la fin }
    { ProcessInfo.hProcess contient le handle du process principal de l'application }
    Fin:=False;
    Repeat
      { On attend la fin de l'application }
      Case WaitForSingleObject(ProcessInfo.hProcess, 200)Of
        WAIT_OBJECT_0 :Fin:=True; { L'application est terminée, on sort }
        WAIT_TIMEOUT  :;          { elle n'est pas terminée, on continue d'attendre }
      End;
      { Mise à jour de la fenêtre pour que l'application ne paraisse pas bloquée. }
      Application.ProcessMessages;
    Until Fin;
    { C'est fini }
    ShowMessage('Terminé');
  End
  Else RaiseLastOSError;
End;

cette fois la fonction utilisée est CreateProcess

Invité · 17/08/2008, 12h53

Cela implique que je garde mon instru shellexecute non ?
En appelant cette procédure juste la ligne après ça devrait marcher non ?

**evarisnea** · 17/08/2008, 13h04

Envoyé par gizmo27

Cela implique que je garde mon instru shellexecute non ?

non

Envoyé par gizmo27

En appelant cette procédure juste la ligne après ça devrait marcher non ?

non
il faut remplacer l'appel à ShellExecute par le code de cette procédure.
plus d'explications dans les commentaires du code.

Invité · 18/08/2008, 12h54

Merci beaucoup.

Dernier truc : j'ai vu que tu avais mis le paramètre /C avant la ligne de commande : à quoi correspond-il ? Y'en-a-t-il d'autres ?

**Aka Guymelef** · 18/08/2008, 12h58

/C est un paramètre pour l'application cmd.exe qui indique au programme qu'il doit exécuter la chaîne qui suit le paramètre puis terminer l'application.

Fait un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cmd.exe /?

Pour plus d'infos sur les paramètres possibles pour cmd.exe

**masala** · 02/08/2016, 02h19

Envoyé par Coussati

si tu as pleins de commandes, tu peux passer par un fichier .bat ?

Salut,

J'ai beaucoup lu des articles sur la création de ces types de fichiers mais je ne comprend toujours pas comment réaliser de choses plus intéressantes. Alors, aidez-moi donc à créer ces types de fichiers avec des instructions un peu plus complexes telles que:
1- Utiliser la commande DISKPART
2- Formater un lecteur amovible (flash)
3- En gros, utiliser les commandes les plus usuelles de l'invite de commande de windows

Merci, je compte sur vous.