attendre la fin d'execution d'une ligne de commande

Question

Bonjour à tous,
Je suis entrain de faire un petit projet avec delphi.
je dois executer une ligne de commande ou un fichier batch, mettre la resultat dans fichier texte.
puis manupiler le fichier texte pur afficher la resultat que je veux.
mais j'ai un petit probleme c'est que le programme continue l'execution avant la fin de l'execution de la commande et la creation du fichier.//avec shellExecute sous l'api shellApi
j'ai beacoup cherché  sur le net et j'ai trouvé seulement la solution pour executer et attendre la fin d'execution d'un programme sous windows. mais mon probleme est que je dois exectuer une commande ms-dos.
est ce que vous avez une solution pour attendre la fin d'execution de la commande.
merci

OcHre · Answer

Salut, si le traitement n'est pas trés long j'opterais pour un
sleep, ce n'est pas vraiment élégant mais ça à le mérite de marcher.
Rions un peu en attendant la mort.

ahmbr · Answer

Mais le temps de l'execution est variable il depend de l'ordinateur des arguments...
je ne sais pas combien de temps il me faut.
mais j'ai une autre idée : mettre l' execution de commande dans un autre programme.
mais comment je dois faire pour masquer l'application (le form et du barre de tache)
et aussi comment comment passer des argument entre deux programme en delphi.

BruNews · Answer

CreateProcess
WaitForSingleObject
CloseHandle

ciao...
BruNews, MVP VC++

f0xi · Answer

c'est encore pour copier ou effacer des fichiers ?

ce serait bien d'avoir des details pour pouvoir te repondre correctement!

ahmbr · Answer

non c'est pour chercher des fichier :)

Cirec · Answer

Salut, pourquoi faire appel à un fichier Batch alors tu peux le faire en interne avec "FindFirst & FindNext" ou plus simplement avec un TListBox ou TComboBox Avec un TListBox : Var aDir : String; Begin aDir := 'C:\*.*'; ListBox1.Perform(LB_DIR, DDL_ARCHIVE Or DDL_DIRECTORY Or DDL_DRIVES Or // En fonctions des besoins ... DDL_EXCLUSIVE Or DDL_HIDDEN Or // retirer une ou plusieurs DDL_READONLY Or // de ces options DDL_READWRITE Or DDL_SYSTEM, Integer(aDir)); End; Highlighted with Pas2HTML Avec un TComboBox : ComboBox1.Perform(CB_DIR, ... Integer(aDir)); @+ Cirec

ahmbr · Answer

Merci.
Je ne l'ai pas encore tester mais ça devra macher

atilaOne · Answer

Bonjour,

j'ai à peu de choses près le même problème.
Je veux exécuter depuis mon appli Delphi des scripts SQL lancés avec sqlplus d'Oracle.
Un série de script devant bien entendu s'exécuter dans l'ordre, et le second devant attendre la fin du premier pour commencer.

Merci pour vos idées,
Arne.

Attendre la fin d'execution d'une ligne de commande

8 réponses

Votre réponse

Discussions similaires