Lancer deux shellexecute [Résolu]
cs_jmonnier
Membre Dernière intervention
16 septembre 2009
- - Dernière réponse :
L_art_ment
Membre Dernière intervention
6 février 2013
- 6 oct. 2008 à 21:48
- Messages postés
- 3
- Date d'inscription
- vendredi 21 mai 2004
- Statut
- Messages postés
- 316
- Date d'inscription
- vendredi 21 septembre 2007
- Statut
A voir également:
- Shellexecute delphi
- Delphi shellexecuteex - Meilleures réponses
- Delphi shellexecute - Meilleures réponses
- Delphi / Pascal : Faire un lien vers une url avec shellexecute - CodeS SourceS - Guide
- [Delphi XE2] Contrôle des fuites mémoires avec FastMM4 - Conseils pratiques - Delphi
- [delphi] déclarer et utiliser les types - Conseils pratiques - Delphi
- [delphi] compatibilité et directives - Conseils pratiques - Delphi
- [delphi] installer des composants - Conseils pratiques - Delphi
7 réponses
Meilleure réponse
- Messages postés
- 2354
- Date d'inscription
- dimanche 5 octobre 2003
- Statut
Salut
Sais tu combien de temps le 1er shell mets à s'executer/se fermer ?
si c'est fixe, tu peux faire un sleep(2000); par exmple (2000 = 2 secondes)
Si ce n'est pas fixe, est ce que ça ouvre, puis ferme une fenetre ?
Dans ce cas, tu peux "choper" la fenetre qui s'ouvre puis si elle se ferme (son handle est détruit) alors le 2eme se lance !
Sais tu combien de temps le 1er shell mets à s'executer/se fermer ?
si c'est fixe, tu peux faire un sleep(2000); par exmple (2000 = 2 secondes)
Si ce n'est pas fixe, est ce que ça ouvre, puis ferme une fenetre ?
Dans ce cas, tu peux "choper" la fenetre qui s'ouvre puis si elle se ferme (son handle est détruit) alors le 2eme se lance !
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
154 internautes nous ont dit merci ce mois-ci
- Messages postés
- 316
- Date d'inscription
- vendredi 21 septembre 2007
- Statut
Bonjour,
Si les deux ShellExecute executent des lignes de commandes, j'ai une procedure qui lance la ligne de commande et attend qu'elle se finisse.
Si les deux ShellExecute font autre chose qu'executer des lignes de commandes alors je suis à côté de la plaque et je n'ai pas de meilleure réponse à t'apporter
<hr />
L'Armand joue, l'arme en joug... Mon site
Si les deux ShellExecute executent des lignes de commandes, j'ai une procedure qui lance la ligne de commande et attend qu'elle se finisse.
Si les deux ShellExecute font autre chose qu'executer des lignes de commandes alors je suis à côté de la plaque et je n'ai pas de meilleure réponse à t'apporter
<hr />
L'Armand joue, l'arme en joug... Mon site
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
154 internautes nous ont dit merci ce mois-ci
Salut, Essaye ca :
procedure TForm1.Button1Click(Sender: TObject);
begin
If ShellExecute(GetActiveWindow,nil,PChar('notepad.exe'),Nil,nil,sW_SHOWMINIMIZED)>=32 Then
ShellExecute(GetActiveWindow,nil,PChar('C:\Program Files\VideoLAN\VLC\vlc.exe'),Nil,nil,sW_SHOWMINIMIZED);
end;
Chez moi NotePad s'ouvre et ensuite c'est VLC. Le laps de temps n'est pas énorme par contre.
procedure TForm1.Button1Click(Sender: TObject);
begin
If ShellExecute(GetActiveWindow,nil,PChar('notepad.exe'),Nil,nil,sW_SHOWMINIMIZED)>=32 Then
ShellExecute(GetActiveWindow,nil,PChar('C:\Program Files\VideoLAN\VLC\vlc.exe'),Nil,nil,sW_SHOWMINIMIZED);
end;
Chez moi NotePad s'ouvre et ensuite c'est VLC. Le laps de temps n'est pas énorme par contre.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
154 internautes nous ont dit merci ce mois-ci
- Messages postés
- 76
- Date d'inscription
- dimanche 9 février 2003
- Statut
Bonjour,
Cette fonction n'est pas de moi (j'aurais bien aimé ), que son auteur me pardonne de ne pas le cité (je ne sais plus qui c'est) mais elle fonctionne parfaitement en remplacement de ShellExecute quand on veux attendre la fin de l'exécution d'un programme.
Le paramètre "voir" permet d'afficher ou non le programme lancé (c'est pratique), les autres paramètres se passe d'explication .
Déclaration :
Function ExecuteWait(Programme, parametres :string;voir :Boolean):Boolean;
Implémentation :
// Fonction permettant de lancer un programme externe et d'attendre la fin de celui-ci avant de continuer
Function TForm1.ExecuteWait(Programme, parametres :string;voir :Boolean):Boolean;
var ShExecInfo : TShellExecuteInfo;
begin
try
FillChar(ShExecInfo, SizeOf(ShExecInfo), 0);
with ShExecInfo do
begin
cbSize := SizeOf(ShExecInfo);
fMask := SEE_MASK_NOCLOSEPROCESS;
lpFile := PChar(Programme); { le nom du programme }
lpParameters := PChar(Parametres); { Les paramètres }
lpVerb := 'open';
if voir = True then nShow := SW_SHOW else nShow := SW_HIDE;
end;
if ShellExecuteEx(@ShExecInfo) then
begin { on execute le programme }
WaitForSingleObject(ShExecInfo.hProcess, INFINITE); { on attends un temps indefinie que l'appli s'arrete }
end;
result := True;
except
result := False;
end;
end;
Philippe DROUET
Cette fonction n'est pas de moi (j'aurais bien aimé ), que son auteur me pardonne de ne pas le cité (je ne sais plus qui c'est) mais elle fonctionne parfaitement en remplacement de ShellExecute quand on veux attendre la fin de l'exécution d'un programme.
Le paramètre "voir" permet d'afficher ou non le programme lancé (c'est pratique), les autres paramètres se passe d'explication .
Déclaration :
Function ExecuteWait(Programme, parametres :string;voir :Boolean):Boolean;
Implémentation :
// Fonction permettant de lancer un programme externe et d'attendre la fin de celui-ci avant de continuer
Function TForm1.ExecuteWait(Programme, parametres :string;voir :Boolean):Boolean;
var ShExecInfo : TShellExecuteInfo;
begin
try
FillChar(ShExecInfo, SizeOf(ShExecInfo), 0);
with ShExecInfo do
begin
cbSize := SizeOf(ShExecInfo);
fMask := SEE_MASK_NOCLOSEPROCESS;
lpFile := PChar(Programme); { le nom du programme }
lpParameters := PChar(Parametres); { Les paramètres }
lpVerb := 'open';
if voir = True then nShow := SW_SHOW else nShow := SW_HIDE;
end;
if ShellExecuteEx(@ShExecInfo) then
begin { on execute le programme }
WaitForSingleObject(ShExecInfo.hProcess, INFINITE); { on attends un temps indefinie que l'appli s'arrete }
end;
result := True;
except
result := False;
end;
end;
Philippe DROUET
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
154 internautes nous ont dit merci ce mois-ci
- Messages postés
- 3
- Date d'inscription
- vendredi 21 mai 2004
- Statut
- Messages postés
- 3982
- Date d'inscription
- mardi 8 mars 2005
- Statut
Salut,
CreateProcess, c'est bien aussi. Exemple d'attente ici.
CreateProcess, c'est bien aussi. Exemple d'attente ici.
- Messages postés
- 316
- Date d'inscription
- vendredi 21 septembre 2007
- Statut