LANCER UNE APPLICATION ET ATTENDRE SA FERMETURE
cs_Bestiol
Messages postés
833
Date d'inscription
dimanche 6 janvier 2002
Statut
Membre
Dernière intervention
3 novembre 2005
-
12 mai 2002 à 22:25
djmmix Messages postés 152 Date d'inscription lundi 28 juillet 2003 Statut Membre Dernière intervention 29 avril 2009 - 16 nov. 2009 à 21:18
djmmix Messages postés 152 Date d'inscription lundi 28 juillet 2003 Statut Membre Dernière intervention 29 avril 2009 - 16 nov. 2009 à 21:18
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/11919-lancer-une-application-et-attendre-sa-fermeture
https://codes-sources.commentcamarche.net/source/11919-lancer-une-application-et-attendre-sa-fermeture
16 nov. 2009 à 21:18
j'ai fait une petite modif a ta fonction pour les paramètre car j'avais essayer de lui transmettre mais j'avais un soucis :s
le code que je vais te poster le résoud :)
function LaunchAndWait(sFile,sParam: String; wShowWin: Word): Boolean;
var
cExe: array [0..255] of Char;
StartInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
begin
Result:=True;
FindExecutable(PChar(ExtractFileName(sFile)), PChar(ExtractFilePath(sFile)), cExe);
ZeroMemory(@StartInfo, SizeOf(StartInfo));
with StartInfo do begin
cb:=SizeOf(StartInfo);
dwFlags:=STARTF_USESHOWWINDOW;
wShowWindow:=wShowWin;
end;
if CreateProcess(cExe, pchar(sparam), nil, nil, True, 0, nil, nil, StartInfo, ProcessInfo)
then WaitForSingleObject(ProcessInfo.hProcess, INFINITE)
else Result:=False;
end;
un peut de code en moin mais les paramètres passe nickel la :p
22 juil. 2009 à 16:06
pourrait-on expliquer cette function ,??!!
26 mai 2005 à 02:54
16 mars 2005 à 13:10
Merci.
Juste une remarque c'est bien de dire que la source n'est pas de toi mais ca serait sympa de donner le nom ou le lien de l'auteur.
Note : 9/10
Bonne prog,
JMP77.
23 mars 2003 à 14:17
12 mai 2002 à 22:25
Je l'ai pas fait, donc je sais pas si c'est réalisable (??)