URGENT !!! : Attendre l'achèvement d'un programme avant de lancer d'autres instrRésolu

Question

;)  Le plus simple écolier sait maintenant des vérités pour lesquelles Archimède eut sacrifié sa vie...  :) 

Bonjour, voilà mon problème :

A partir d'un programme delphi, je lance un fichier BAT qui permet de copier un dossier dans un répertoire demandé à l'utilisateur dans le bat (j'utilise un bat pour pouvoir copier un dossier plus simplement... En effet, il n'existe pas de commande delphi "pratique" et "simple" pour copier un répertoire...) Ce fichier BAT définit une variable d'environnement pour le répertoire de destination, afin que le programme delphi la récupère et crée un raccourci sur le bureau pour ce dossier.

Le problème est que la variable d'environnement n'a pas eue le temps d'être créée car delphi a continué d'exécuter les instructions qui suivent le lancement du programme BAT, et l'appel de la variable (qui n'est pas encore définie) ne donne aucun résultat...

Existe-t-il une procédure pour savoir si le programme lancé est terminé avant d'exécuter de nouvelles instructions ? (une sorte d'instruction qui "mette en veille" le programme Delphi jusqu'à ce que le programme appellé soit terminé...)

Cordialement,
Nicolas

jmp77 · Accepted Answer

salut,

Essaye avec cette fonction et dis moi si ca fonctionne :

function LanceAppliAttenteFin(NomFichier:string):boolean;
{permet de lancer un exécutable. NomFichier est le nom avec chemin     }
{de cet exécutable ou d'un raccourci qui pointe vers cet exécutable.   }
{ notre programme est arrété tant que l'exécutable n'est pas fini      }
{tout est arrété on ne peut donc même plus déplacer sa fenêtre.        }
{ il est donc préférable de la rendre invisible avant le lancement     }
{de cette fonction.                                                    }
{ LanceAppliAttenteFin renvoie true si le lancement s'est bien passé   }
var
  StartInfo : TStartupInfo;
  ProcessInformation : TProcessInformation;
begin
  result:=true;
  ZeroMemory(@StartInfo, sizeof(StartInfo)); // remplie de 0 StartInfo
  StartInfo.cb:=sizeof(StartInfo);
  if CreateProcess(nil,PChar(NomFichier),nil,nil,true,0,nil,nil,StartInfo,ProcessInformation)
  then WaitForSingleObject(ProcessInformation.hProcess, INFINITE)// attend que l'application désignée par le handle ProcessInformation.hProcess soit terminée
  else result:=false;
end;

Bonne prog,
JMP.

ni69 · Answer

;)  Le plus simple écolier sait maintenant des vérités pour lesquelles Archimède eut sacrifié sa vie...  :) 

Merci ça marche super bien !
 :)  :)  :)  :)  :)  :)  :)  :)  :)  :)  :)  :) 
Bonne prog !

Nico

JulioDelphi · Answer

salut

il existe le composant DosCommand, tu peux recuperer les lignes en sortie, et savoir si l'exe est fini ou pas

++

ni69 · Answer

gv >> 
L'important, c'est que jmp77 m'ai donn&#233; la solution.  
C'est un forum d'entraide non ? Donc tout va bien jusque l&#224;...
Va-t-on mettre des copyright sur les sources du site 

Si une astuce est connue de plusieurs personnes, est-ce-que la premi&#232;re &#224; la d&#233;poser comme source sur ce site en devient propri&#233;taire 


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

cs_grandvizir · Answer

Le num&#233;ro ID du code source est plus vieux que jmp presque. Qui dit qui a pomp&#233; sur qui ? (tiens je l'aime bien cette question)

===========
ViewVite : HTML

ni69 · Answer

tu sais, on s'en fout un peu....


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

jmp77 · Answer

Hello tout le monde,



Effectivement grandvizir ce code n'est pas de moi et d'ailleurs je n'ai
jamais pr&#233;tendu le contraire. Tu sais j'ai beaucoup de morceau de code
que je r&#233;cup&#232;re a droite et &#224; gauche et je ne me souviens pas de tous
les liens. 

Mais comme le dit ni69 on s'en fiche un petit peu de savoir si c'est le gars qui te depanne qui a ecit ou non la fonction.



Apr&#232;s recherche la fonction que j'ai donn&#233; proviens de ce lien :

http://www.phidels.com/php/index.php3?page=../php/pagetelechargementzip.php3&id=66


Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

cs_grandvizir · Answer

&#171;tu sais, on s'en fout un peu&#187; 

Si je donne un lien, c'est uniquement qu'il y a plus de chances pour qu'il &#233;volue, pas ce message. jmp a ici raison de fournir un autre lien. Arr&#234;tons donc, &#231;a risquerait de vous donner des points... 

Sinon, je comprend pas pourquoi les liens de jmp sont toujours sans liens. Qu'on clique dessus quand m&#234;me ! 

===========
ViewVite : HTML

jmp77 · Answer

Hello,



Ouais d&#233;sol&#233; pour les liens qui fonctionne pas. Cela vient du fait que
j'utilise firefox et il y a un probl&#232;me de compatibilit&#233; entre firefox
et le nouvel editeur de delphifr.

Je pense que le probl&#232;me sera r&#233;solu un jour prochain par les admins.

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

URGENT !!! : Attendre l'achèvement d'un programme avant de lancer d'autres instr

9 réponses

Votre réponse