Discussion :

[defluc]

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

[Jipété]

Bonsoir.

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,

[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.

[defluc]

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

Code :

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
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;