Discussion :

[ILP]

Bonjour,
Je travail sur un programme qui doit tuer les autres instances de lui-même lorsqu’il se lance. Le programme doit être lancé en tâche planifiée. Et je veux que si jamais il se plante, le fait que la tâche planifiée le relance, cela provoque le tuage de l’ancienne instance.
Pour l’instant mode code ressemble à ça :

Code Pascal :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
const
  WM_CLOSE = $0010;
var
  HandleProg: HWND;
  iErreur: Integer;
begin
  SetLastError(NO_ERROR);
  HandleProg  := CreateMutex(nil, False, '{A3826744-3202-4602-9BA0-D722161D5C9D}');
  iErreur     := GetLastError();
 
  // Si l'application est déjà lancée, on la ferme
  if iErreur in [ERROR_ALREADY_EXISTS, ERROR_ACCESS_DENIED] then
    KillProcess(ExtractFileName(Application.ExeName));
 
  Application.Initialize;
  // ...

Mais je ne suis pas sûr que d’utiliser la méthode KillProcess de l’API Windows soit fiable. Si jamais mon programme est renommé, ou si un programme à le même nom…
Quelqu’un aurait une autre idée ?

[Papy214]

Je ferais plutôt :
récupérer la liste des processus en cours d'exécution
Vérifier si l'exe est le même que le mien
Si oui, lui envoyer un message de fermeture à condition que ça ne soit pas moi.

un exemple qui irait dans ce sens:

http://www.phidels.com/php/index.php...d9795f80804d8b

(tout ça dit rapidement .... mais je pense que ça doit être jouable comme ça)

[Paul TOTH]

ton appli risque de ce suicider aussi

mais cherches-tu à interrompre la précédente instance avec laquelle tu peux communiquer ou supposes-tu qu'elle est dans les choux et qu'elle ne répondra pas à un message par exemple ?

et pourquoi diable serait-elle renommée ?

tu peux le faire façon Linux en plaçant dans un fichier l'ID du process au démarrage de l'appli...vu que tu ne veux qu'une instance, si le fichier existe il contient l'ID de l'instance en cours (ou un ID invalide)