Discussion :

[maxoudu328]

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

[Pedro]

Salut
Si tes listes s'appellent ListeProcessus et ListPID, tu fais:

Code :

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

1
2
3
4
5
 
for i:=0 to ListProcessus.Items.Count-1 do
begin
  //Ici tu récupères le i-ème Item de ta liste
end;

Voila j'espère ne pas avoir répondu à coté de la plaque...

[maxoudu328]

Hummm je capte pas trop ton truc, toi tu veut que je recupere les items de smes listbox ??

Moi je voudrais recuperais directement les proc de :

ListAjout.Caption := (entry.szExeFile);
ListAjout.SubItems.Add(inttostr(entry.th32ProcessID));

Par exemple enfin sans utiliser d'autre box en tout genre si tu vois sque je veut dire :-) .

Sinon tu pourait mieume detailler ton code, parceque j'ai commence delphi il y a 2 jr .

Cordialement, Max

[Pedro]

Ah ok j'ai compris:

Code :

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

1
2
3
4
5
6
 
with Form1.ListView1.Items do
begin
ListAjout.Caption := (entry.szExeFile);
ListAjout.subitems.add(inttostr(entry.th32ProcessID));
end;

Si tu fais ça: tu modifies le dernier ListAjout créé... Soit le dernier créé dans ListView1...
Si tu veux ajouter un Item, il faut que tu appelles:

Code :

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

1
2
 
ListAjout:=ListBox1.Add;

a chaque fois... ListAjout est en fait un pointer sur l'Item que tu viens d'ajouter...

[maxoudu328]

non ta toujour pas compris ....

Oublie ma listbox je veut plus l'utiliser, je l'utiliser juste avant parceque je connaisser pas le listview et que maintenant je veu lier les pid et les proc donc ou oublie le listbox.

Je veut lister tous les proc et leur pid dans le listview si tu jeter un coup d'oeil a ma screenshot tu comprendre mieu et la fonction :

{with Form1.ListView1.Items do
begin
ListAjout.Caption := (entry.szExeFile);
ListAjout.subitems.add(inttostr(entry.th32ProcessID));
end;}

N'est pas utiliser si tu regarde bient elle est entre {} .



mon probleme c'est que :

mon code n'ajoute que le premier proc et le premier PID ....

STp regarde bien ma source parceque plusieur bout son en commentaire et donc desactivé .

Cordialement, max

Ps: n'oublie pas ma ScreenShot elle est trés ^parlante.

[maxoudu328]

Donc, merci a pedro204 pour son aide, et voici la sources qui marche au cas ou ya d'autre pti gars qui se font chier comme moi :

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);
begin
Hdl := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
Entry.dwSize := sizeof(entry);
if Process32First(Hdl,Entry) then
Begin
while Process32next(Hdl,Entry) do
begin
ListAjout:=ListView1.items.Add;
ListAjout.Caption:=Entry.szExeFile;
ListAjout.SubItems.Add(inttostr(Entry.th32ProcessID));
Application.ProcessMessages;
End;
end;
Closehandle(Hdl);
end;