Comment savoir "quand" une application, lancée avec ShellExecute, s'est terminéeRésolu

Question

Bonjour tout le monde, dans mon application je charge au d&#233;marrage un fichier .rtf dans un RichEdit et j'ai cr&#233;&#233; un bouton "Editer" qui lance avec la commande ShellExecute le fichier dans Wordpad. Je peux alors modifier le fichier avec Wordpad, mais lorsque je ferme Wordpad la version modifi&#233;e du fichier n'est pas recharg&#233;e dans le RichEdit. J'ai pens&#233; &#224; utiliser un timer qui se lance lorsque je click sur le bouton "Editer" et qui recharge le RichEdit toute les minutes, cette solution n'est pas tr&#232;s &#233;l&#233;gante mais &#224; d&#233;faut d'avoir mieu, &#231;a marche. Le probl&#232;me c'est que le timer, une fois lanc&#233;, ne s'arr&#234;te plus. Alors est-il possible de savoir quand Wordpad a &#233;t&#233; ferm&#233;? Est-ce que quelqu'un a une solution plus &#233;l&#233;gante &#224; me proposer. Je remercie d'avance toute personne susceptible de m'aider.

ponpon82 · Accepted Answer

Salut Nico, je te remercie pour ce lien, mais je viens de regarder et ca m'aide pas beaucoup . En tout cas merci quand m&#234;me.

japee · Answer

En fait, ponpon82, cette excellente fonction (que je viens de d&#233;couvrir gr&#226;ce &#224; ni69, merci &#224; lui ) lance ton fichier et retourne True quand tu as ferm&#233; le programme vers lequel tu as envoy&#233; ton fichier.



Ce qui te manque, sans doute, &#231;a serait un petit code de d&#233;monstration afin de voir comment l'utiliser ? 



Car si tu n'es pas familier de l'api Windows, tu ne dois pas trop savoir par quel bout la prendre... 



function LaunchAndWait(sFile: String; wShowWin: Word): Boolean;



sFile est le FileName de ton fichier rtf,

wShowWin est la mani&#232;re dont s'ouvrira la fen&#234;tre de l'application vers
laquelle tu envoies ton fichier (voir Windows.pas ou autre
documentation).



D&#233;monstration de son utilisation :



procedure TForm1.Button1Click(Sender: TObject);

begin

  if LaunchAndWait('MonFichier.rtf', SW_SHOW) then

  // ou SW_MAXIMIZE ou autre...

  begin

    RichEdit.Clear;

    RichEdit.Lines.LoadFromFile('Fichier.rtf');

  end;

end;



Ca va mieux comme &#231;a ?  



Bonne prog' 



japee

ponpon82 · Answer

Salut japee, je te remercie beaucoup pour ton aide, &#231;a marche du tonnerre , elle est g&#233;nial cette fonction. D&#233;sol&#233; ni69, mais j'avais pas compris comment l'utiliser au d&#233;but c'est pour &#231;a que j'ai dit que &#231;a m'aider&#233; pas beaucoup ton post. En tout cas 1000 fois merci &#224; tout les deux .

Comment savoir "quand" une application, lancée avec ShellExecute, s'est terminée

3 réponses

Votre réponse

Discussions similaires