Détecter le nombre d'instances d'un programme.

Version imprimable

25/03/2010, 18h07
defluc

Détecter le nombre d'instances d'un programme.

Bonsoir amis Delphistes

Mon application peut être ouverte plusieurs fois mais à la fermeture, elle arrête des processus qui doivent rester utilisables par les instances restant ouvertes.

Je voudrais donc compter le nombre d'instances en cours pour n'arrêter les processus que lors de la fermeture de la dernière instance de mon programme.

Quelle fonction me permet de compter le nombre d'instances de mon application ?

Merci d'avance
25/03/2010, 19h41
Jipété

Bonsoir.

Citation:

Envoyé par defluc

Quelle fonction me permet de compter le nombre d'instances de mon application ?

Documente-toi sur CreateToolhelp32Snapshot, qui liste tous les processus qui tournent sur la machine.
Après, t'auras plus qu'à compter les tiens, ;)
25/03/2010, 20h45
Andnotor

Comme dit Jipété, tu peux énumérer les processus.

Tu peux aussi implémenter un sémaphore qui s'incrémentera à chaque appel ou tout simplement utiliser un mutex qui ne sera effectivement libéré que lorsque la dernière application y accédant sera fermée.

J'ai préféré créer une fonction utilisant CreateToolhelp32Snapshot comme suggéré par Jipété.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
function CountInstances(ApplicName : string): Integer;
var
  ProcessList : TProcessentry32;
  HndProcess : Thandle;
  Next : Boolean;
begin
   Next := True;
   Result := 0;
   ProcessList.dwSize := sizeof(ProcessList);  //  Récuperation de la liste des process
   HndProcess := CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
   if (HndProcess <> INVALID_HANDLE_VALUE) then
   begin
     Process32First(HndProcess, ProcessList);
     while Next do
     begin
       if Uppercase(ExtractFileName(ProcessList.szExeFile)) =
          UpperCase(ApplicName) then Inc(Result);
       Next := Process32Next(HndProcess, ProcessList);
     end;
   end;
   CloseHandle(HndProcess);
end;

Merci à tous deux et bon week end;