Discussion :

[cincap]

Bonjour à toutes et à tous,

Pour m'occuper, je teste pas mal de procédures et je me demandais si c'était possible d'afficher directement dans un Tmemo le résultat d'une commande Dos sans passer par la création du fichier Texte dans la commande.

Soit par un TStingList ou.....

Exemple :

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
var

Commande : string;
begin

  Memo1.Clear;

  commande := 'dir c:\ *.*';

  ShellExecute(Handle, 0, 'cmd', PChar('/c ' + commande + ' > "OUTPUT.txt"'), nil, SW_HIDE);

  sleep(1000);

  Memo1.Lines.LoadFromFile( chappli + 'OUTPUT.txt' ) ; //Affiche le résultat dans Memo

end;

En vous remerciant d'avance.

Cordialement,

@+,

cincap

[Paul TOTH]

oui, et si ce n'est pas dans la FAQ c'est déjà quelque part dans le forum

il faut passer par CreateProcess et utiliser des Pipes

[cincap]

@ Paul TOTH, merci de ta réponse,

il faut passer par CreateProcess et utiliser des Pipes

Je savais car j'avais suivi toute la discussion de ShaiLeTroll concernant la procédure (procedure GetDosOutput(CommandLine, WorkDir: string;aMemo : TMemo) et je l'utilise souvent avec FFMPEG;

Mais dans ce cas pour afficher uniquement le contenu d'un directory ou les renseignements de ma carte WiFi (vitesses, canal, connecté/déconnecté etc.) ma commande est nettement suffisante.

Et fonctionne très bien mais avec un fichier texte créé.

Je teste aussi de mon côté.

@+,

cincap