Bonjour voila je voudrais lister tous les processus actif et leur PID correspondant dans une listview avk 2 collones [Processus|PID] bon j'aarive a liste dans une listbox tous les processus et dans une autres tous les PID seulement je voudrais qu'il soit lier pour pouvoir terminer un processus selon son PID mais lorsque j'ajoute les proc et pid a la listview avec ce bout de code :

procedure TForm1.Button2Click(Sender: TObject);
var
Hdl: HWND;
entry : PROCESSENTRY32;
ID : cardinal;
ListAjout : TListItem;
begin
Listbox1.Clear;
hdl := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
entry.dwSize := sizeof(entry);
ListAjout := ListView1.Items.Add;
if Process32First(hdl,entry) then
Begin;
with listview1 do
Begin
ListAjout.Caption := (entry.szExeFile);
ListAjout.SubItems.Add(inttostr(entry.th32ProcessID));
Listbox1.items.add(entry.szexefile); // ajouter a une Tlistbox
Listbox2.items.add(inttostr(entry.th32ProcessID));
while Process32next(hdl,entry) do
begin
//ListAjout.Caption := (entry.szExeFile);
//ListAjout.SubItems.Add(inttostr(entry.th32ProcessID));
listbox1.items.add(entry.szexefile); // ajouter a une Tlistbox
Listbox2.items.add(inttostr(entry.th32ProcessID));
{with Form1.ListView1.Items do
begin
ListAjout.Caption := (entry.szExeFile);
ListAjout.subitems.add(inttostr(entry.th32ProcessID));
end;}
application.ProcessMessages;
end;


End;
Closehandle(hdl);
end;
end;
Ce bout de code contient aussi la fonction pour les listbox, donc quand j'utilise ce code je n'ajoute que le premier processus et que le premier pid... Je vous est fait une ptite ScreenShot :



Donc je pence qu'il faut fair une boucle si vour pouriez m'aide sa serait super simpa .

Un grand merci d'avance car je galere trop la .

Cordialemen, max