Les évènements avec les Variant

Résolu
cs_OrsE Messages postés 44 Date d'inscription samedi 28 juin 2003 Statut Membre Dernière intervention 20 octobre 2005 - 25 juil. 2005 à 10:03
cs_OrsE Messages postés 44 Date d'inscription samedi 28 juin 2003 Statut Membre Dernière intervention 20 octobre 2005 - 26 juil. 2005 à 11:21
Salut tout le monde!

Voilà, je fais une application qui communique avec Word. Pour celà j'utilise des Variants. Tout fonctionne très bien, le problème vient quand Word est lancé, et que l'utilisateur Quitte word. Comment je peux détecter que l'utilisateur quitte word. Je vois qu'il y a des évènements genre Quit ou NewDocument, mais je sais pas comment m'en servir avec les variants.

La seule méthode que j'ai trouvé c'est de faire un try/catch et si ça plante pendant le try alors Word est quitté et je le relance.

Voilà, Merci.

2 réponses

adec0127 Messages postés 53 Date d'inscription samedi 7 août 2004 Statut Membre Dernière intervention 22 février 2008
26 juil. 2005 à 08:45
procedure TForm1.Timer1Timer(Sender: TObject);
begin
If FindWindow('OpusApp',nil) <> 0 Then
begin
Timer1.Enabled:=False;
Application.MessageBox('Text','Caption',MB_OK);
end;
end;

Ca pourrait donner quelque chose comme ça :
3
cs_OrsE Messages postés 44 Date d'inscription samedi 28 juin 2003 Statut Membre Dernière intervention 20 octobre 2005
26 juil. 2005 à 11:21
C'est vrai que j'ai pas pensé aux timer. Je voulais une méthode un peu
moins crade, quelque chose de directe, mais je pense que c'est pas
possible, alros je vais utiliser les timers.

Merci
0