Discussion :

[Colbix]

Bonjour à tous,

J'aimerais savoir si un programme (qui n'a pas été lancé par mon programme delphi) est en cours d'exécution ou non.

Une fonction du style :

Code :

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

GetProcessActivity('programmeCible.exe');

Merci d'avance

[Montor]

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
uses TlHelp32;
{liste des processeurs }
procedure TForm1.Button2Click(Sender: TObject);
var
    bn   : TPROCESSENTRY32;
    H    :integer;
begin
 
  H := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS,0);
  bn.dwSize := Sizeof(TPROCESSENTRY32);
  if Process32First(h,bn) then
  repeat
     Showmessagefmt('"%s"  ID = %x',[bn.szExeFile,bn.th32ProcessID]);
  until not Process32Next(H,bn) ;
  CloseHandle(H);
end;

[Colbix]

Merci beaucoup. j'essaye ca dès que je continue ce projet (d'ici 3 jours).

+

[Colbix]

Ca marche parfaitement !

Merci beaucoup