Les évènements avec les Variant

Résolu
Signaler
Messages postés
44
Date d'inscription
samedi 28 juin 2003
Statut
Membre
Dernière intervention
20 octobre 2005
-
Messages postés
44
Date d'inscription
samedi 28 juin 2003
Statut
Membre
Dernière intervention
20 octobre 2005
-
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

Messages postés
53
Date d'inscription
samedi 7 août 2004
Statut
Membre
Dernière intervention
22 février 2008

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 :
Messages postés
44
Date d'inscription
samedi 28 juin 2003
Statut
Membre
Dernière intervention
20 octobre 2005

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