Test ouverture d'une application

Réponse acceptée !
Bonsoir,

- Le plus simple :
  Ton Project2 modifie un fichier à son ouverture, puis à sa fermeture. Et ton Project1 vérifie l'état de  ce fichier.
- Plus compliqué :
  Lister les processus en cours (il y a plusieurs exemples sur ce site).

Réponse acceptée !
Le fichier témoin est la solution la plus simple mais a un inconvévient : si le project1 est mal fermé (plantage) alors le fichier témoin existera lors de la vérification.

Réponse acceptée !
bonsoir,

je recherche une solution pour tester si une application est ouverte ou non.

peux-tu nous en dire la raison ?

cantador

Réponse acceptée !
@caribensila : la première méthode est un peu barbare et, s'il n'a pas la main sur le code de project2, ça devient mission impossible.

@cantador : tu as raison, ça sonne bizarre. Delphi est un vrai langage compilé et le terme de script serait plutôt réservé aux langages interprétés. M'enfin, ça ne me choque pas plus que ça.


May Delphi be with you !

---

Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.

Réponse acceptée !
Tu peux essayer de supprimer l'executable ... si l'executable est en cours d'execution tu ne pourras pas le supprimer ... sinon prévois de faire une copie dans un dossier temporaire pour restaurer le fichier, si jamais il n'était pas en execution ?
Solution barbare ...

Cordialement, Bacterius !

Réponse acceptée !
PROCEDURE TForm1.Button1Click(Sender: TObject);
BEGIN
  SetLastError(NO_ERROR);
  CreateMutex(NIL, False, 'MonAppli');
  IF GetLastError = ERROR_ALREADY_EXISTS THEN
  BEGIN
    Showmessage('ouverte !');
  END;
END;

cantador