Discussion :

[Chyokyka]

Salut,
je souhaite récupérer les lignes de commande DOS mais comment ?

Code :

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

1
2
3
4
begin
ShellExecute(0,'open','cmd',PChar('cd C:\'),nil,SW_HIDE);
Memo1.Text:=//Le contenu de DOS :-D
end;

Merci !

[philnext]

Je ne vois pas ce que tu veux (peux) récupérer avec une commande 'CD' par contre si tu veux ton résultat de commande, par exemple pour une commande 'DIR' tu redirige ta commande dans un fichier exemple (sous dos) :
>dir *.* >res.txt

[Chyokyka]

Ouais, je veux voir toutes les commandes, le contenu du DOS.
Comment ça, dans un fichier DOS ?

[defluc]

Help en ligne de commande liste toutes les commandes du DOS.

Après avoir fait un Shell sur

Code :

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

Help > DosCmd.Txt

il suffira de copier une à une les lignes du fichier DosCmd.Txt dans Memo1.

[sat83]

]il suffira de copier une à une les lignes du fichier DosCmd.Txt dans Memo1.

Ou de faire :

Code :

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

Memo1.Lines.LoadFromFile( 'DosCmd.Txt' ) ;

[sat83]

Un exemple pour récupérer le résultat d'une commande DOS :

Code :

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

1
2
3
4
5
6
7
 
var commande : string ;
//[...]
 
  commande := 'ipconfig' ;
  ShellExecute( Handle,nil, 'cmd', PChar( '/c ' + commande + ' > "D:\OUTPUT.txt"'), nil, SW_HIDE ) ;
  Memo1.Lines.LoadFromFile( 'D:\OUTPUT.txt' ) ;

Histoire d'améliorer la chose, tu peux créer le fichier dans le répértoire temporaire de windows, puis éventuellement le détruire quand tu n'en a plus besoin. Il vaut mieux également tester l'existence du fichier avant de le charger dans ton Memo (au cas où la commande foire, aucun fichier ne sera créée).

.

[Chyokyka]

Salut,
Pour ton code j'ai une erreure

Code :

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

[Erreur] Unit1.pas(31): Types incompatibles : 'Variant' et 'PChar'

Après la ',' je 'NULL'.
Que dois-je faire ?
Merci.

[Chyokyka]

C'est bon,

Code :

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

1
2
3
4
5
6
var commande : string ;
begin
  commande := 'ipconfig' ;
  ShellExecute(Handle, 0, 'cmd', PChar('/c ' + commande + ' > "C:\OUTPUT.txt"'), nil, SW_HIDE);
  Memo1.Lines.LoadFromFile( 'C:\OUTPUT.txt' ) ;
end;

Merci !