Commande dos avec Delphi

Bonjour à toutes et à tous,

Malgré la discussion pour une commande "Dos", je n'arrive pas a exécuter cette commande avec "Shellexecute".

Manuellement en tapant dans "Executer" cette commande : cmd /k ipconfig

cela fonctionne.

Code:

---

1 2 3

ShellExecute(0,'OPEN','cmd /k ipconfig',nil,nil,SW_SHOWMAXIMIZED);

---

Quelqu'un a une idée, merci d'avance.

@+,

Cincap

Désolé, j'ai trouvé.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

const CmdSwitchs : array [0..1] of String = ('/c ', '/k ');   procedure TFServer.BipconfigClick(Sender: TObject); Var aCmdLine : PChar; begin aCmdLine := PChar(cmdSwitch + ' /k ipconfig');   ShellExecute(Handle, nil, 'CMD', aCmdLine, nil, sw_ShowNormal);   end;

---

@+,

Cincap

Bonjour,

cela fonctionne avec :

Code:

---

1 2 3 4 5 6

procedure TFServer.BipconfigClick(Sender: TObject);Var aCmdLine : PChar; Begin aCmdLine := PChar(' /k ipconfig'); ShellExecute(Handle, nil, 'CMD', aCmdLine, nil, sw_ShowNormal); End;

---

dans ton code cmdSwitch n'est pas défini et ne sert pas ?

A+ Charly

@ Charly910,

Bien vu, j'ai testé mais le problème c'est que je voulais faire un print screen de la fenêtre "Dos" et puis la fermer et la problème même en utilisant :

Code:

---

1 2 3

aCmdLine := PChar(' /k "start /wait ipconfig&&Exit"'); ShellExecute(Handle, nil, 'CMD', aCmdLine, nil, sw_ShowNormal);

---

En effet la fenêtre se ferme trop vite avant le printscreen. de celle ci

As tu une idée si c'est faisable.

@+,

Cincap

Bonsoir,

Ok, ce topic est bien terminé.

Je récupère le handle de la fenêtre dos avant le printscreen puis je le termine par la récupération du message (WM_Close).

@+,

Cincap