probleme procedure ListBox

**bionicleman** · 26/07/2006, 12h46

Bonjour a tous,

j'ai un enorme probleme

avec une ListBox...
Je voudrais récupérer les applications en cours sur Windows j'ai un tutorial sur ca
mais le probleme c'est que Delphi m'indique une erreure sur une ListBox, voyez mon code :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
[...]type
  TForm3 = class(TForm)
    ListBox1: TListBox;
    Label1: TLabel;
    procedure ListBox1Click(Sender: TObject);//l'erreure est ici d'apres delphi
    procedure FormActivate(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
    [...]
    function UpString(Str: string): string;
var i: integer;
begin
  result:='';
  for i:=1 to length(str) do
    result:=result+UpCase(str[i]);
end;
function GetProcessId(ProgName:string):cardinal;
var  Snaph:thandle;
     Proc:tprocessentry32;
     PId:cardinal;
begin
  PId:=0;
  Proc.dwSize:=sizeof(Proc);
  Snaph:=createtoolhelp32snapshot(TH32CS_SNAPALL,0);
  process32first(Snaph,Proc);
  if UpString(extractfilename(Proc.szExeFile))=UpString(ProgName) then
     PId:=Proc.th32ProcessID
  else
    begin
      while process32next(Snaph,Proc) do
        begin
           if extractfilename(Proc.szExeFile)=ProgName then
              PId:=Proc.th32ProcessID;
        end;
   end;
  Closehandle(Snaph);
  result:=PId;
end;
function GetProcessList():TStringList;
var  Snaph:thandle;
     Proc:tprocessentry32;
     PList:TStringList;
begin
  PList:= TStringList.Create();
  PList.Clear;
  Proc.dwSize:=sizeof(Proc);
  Snaph:=createtoolhelp32snapshot(TH32CS_SNAPALL,0);
  process32first(Snaph,Proc);
  PList.Add(extractfilename(proc.szExeFile));
  while process32next(Snaph,Proc) do
      PList.Add(extractfilename(Proc.szExeFile));
  result:=PList;
  Closehandle(Snaph);
end;

procedure TForm3.FormActivate(Sender: TObject);
var TSL : TStringList;
begin
  Listbox1.Clear;
  TSL := GetProcessList;
  Try Listbox1.Items.Assign(TSL);
  Finally
    TSL.Free;
  end;
end ;

procedure TForm3.ListBox1DblClick(Sender: TObject);
var  Proch:thandle;
     PId:cardinal;
begin
    PId:=GetProcessId(Listbox1.items[Listbox1.itemindex]);
    Proch:=openprocess(PROCESS_ALL_ACCESS ,true,PId);
    if not terminateprocess(Proch,PId) then
        showmessage('Impossible d''arrete '+Listbox1.items[Listbox1.itemindex])
    else
    begin
      Listbox1.Clear;
      Listbox1.Items:=GetProcessList();
    end;
    Closehandle(Proch);
end;

Merci de votre aide

**ryko** · 26/07/2006, 13h13

Et pas de message particulier ?

**rbh** · 26/07/2006, 14h06

Salut
C'est vrai qu'avec le message ce serait plus facile.
Par contre, si tu as mis tout le code de ton unité à part ce qui est contenu dans le "[...]" au début de ton code, il manque l'implémentation de cette procédure.
Si tu ne veux rien faire au click sur la listbox, tu peux supprimer cette ligne. Sinon il faut que tu écrives l'implémentation de cette fonction.

Code :

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

1
2
3
4
Procedure TForm3.ListBox1Click(Sender: TObject);
begin
...
end;

**bionicleman** · 26/07/2006, 14h26

Merci de vos reponses ;
si il y a un message particulier :
"Déclaration forward ou external non satisfaite: 'TFrom3.ListBox1Click'"
PS : désolé je commence le delphi

**OutOfRange** · 26/07/2006, 14h40

Salut

Envoyé par bionicleman

si il y a un message particulier :
"Déclaration forward ou external non satisfaite: 'TFrom3.ListBox1Click'"

Logique !
Tu déclares la procedure ListBox1Click dans l'interface de ta form, mais la procédure est absente de l'implémentation (apparemment)
En supprimant la déclaration de l'interface, ça devrait régler le pb

Bonne prog

**bionicleman** · 26/07/2006, 14h56

héhé j'ai déjà esseyé

Ca marche sauf que après je ne vois pas les applications que doit écrire dans laListBox du programme

**OutOfRange** · 26/07/2006, 15h04

Envoyé par bionicleman

Ca marche sauf que après je ne vois pas les applications que doit écrire dans laListBox du programme

Pourrais-tu être + clair ?

**bionicleman** · 26/07/2006, 15h10

Ok

Mon programme doit pouvoir montrer les applications en cous sur Windows;
On pourra les voirent dans la LisBox ET en cliquant dessu en selectionner une et en double cliquant dessu la fermer.
Assez clair comme ca?

**ryko** · 26/07/2006, 15h17

Tu peux montrer TOUT le code ?

**OutOfRange** · 26/07/2006, 15h20

Si j'ai bien compris, la listbox reste vide ? aucun item ?
Dans ce cas, regarde plutôt le code qui est sensé alimenter la lite d'items

SINON :

1) Si tu dois écrire du code dans l'événement TForm3.ListBox1Click, doubleclique sur l'événement en question dans le gestionnaire d'objet, onglet Evénements, ligne OnClick, colonne de droite...
L'éditeur de texte se branche auto sur la procédure à créer.

2) Si le code est déjà écrit, utilise la liste déroulante (même endroit) pour sélectionner la procédure

Je ne sais pas si je réponds à ta question

**Laurent Dardenne** · 26/07/2006, 16h00

Salut,
ta fiche (.dfm) n'est peut être pas en phase avec ton source (.pas).
Sinon regarde dans les sources Delphi si un programme de ce type existe...

**bionicleman** · 26/07/2006, 16h17

Ok voila tout le code

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
unit Unit3;
 
interface
 
uses
  Windows, Messages, SysUtils,  Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,tlhelp32;
 
type
  TForm3 = class(TForm)
    ListBox1: TListBox;
    Label1: TLabel;
    procedure ListBox1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form3: TForm3;
 
implementation
 
{$R *.dfm}
 
 
function UpString(Str: string): string;
var i: integer;
begin
  result:='';
  for i:=1 to length(str) do
    result:=result+UpCase(str[i]);
end;
 
 
//fonction qui retourne l'id d'un process fournit en parametre
function GetProcessId(ProgName:string):cardinal;
var  Snaph:thandle;
     Proc:tprocessentry32;
     PId:cardinal;
begin
  PId:=0;
  Proc.dwSize:=sizeof(Proc);
  Snaph:=createtoolhelp32snapshot(TH32CS_SNAPALL,0);  //recupere un capture de process
  process32first(Snaph,Proc);  //premeir process de la list
  if UpString(extractfilename(Proc.szExeFile))=UpString(ProgName) then  //test pour savoir si le process correspond
     PId:=Proc.th32ProcessID // recupere l'id du process
  else
    begin
      while process32next(Snaph,Proc) do  //dans le cas contraire du test on continue à cherche le process en question
        begin
           if extractfilename(Proc.szExeFile)=ProgName then
              PId:=Proc.th32ProcessID;
        end;
   end;
  Closehandle(Snaph);
  result:=PId;
end;
//fonction qui marche comme GetProcessId, sauf que la elle retourne une liste de process
 
function GetProcessList():TStringList;
var  Snaph:thandle;
     Proc:tprocessentry32;
     PList:TStringList;
begin
  PList:= TStringList.Create();
  PList.Clear;
  Proc.dwSize:=sizeof(Proc);
  Snaph:=createtoolhelp32snapshot(TH32CS_SNAPALL,0);
  process32first(Snaph,Proc);
  PList.Add(extractfilename(proc.szExeFile));
  while process32next(Snaph,Proc) do
      PList.Add(extractfilename(Proc.szExeFile));
  result:=PList;
  Closehandle(Snaph);
end;
 
procedure TForm3.FormActivate(Sender: TObject);
var TSL : TStringList;
begin
  Listbox1.Clear;
  TSL := GetProcessList;
  Try Listbox1.Items.Assign(TSL);
  Finally
    TSL.Free;
  end;
end ;
 
procedure TForm3.ListBox1DblClick(Sender: TObject);
var  Proch:thandle;
     PId:cardinal;
begin
    PId:=GetProcessId(Listbox1.items[Listbox1.itemindex]);
    Proch:=openprocess(PROCESS_ALL_ACCESS ,true,PId); //handel du process
    if not terminateprocess(Proch,PId) then  //terminer le process
        showmessage('Impossible d''arrete '+Listbox1.items[Listbox1.itemindex])
    else
    begin
      Listbox1.Clear;
      Listbox1.Items:=GetProcessList();
    end;
    Closehandle(Proch);
end;
end.

Oui la ListBox est vide malgres ce code a mon avis bon...

**Cl@udius** · 26/07/2006, 16h32

Salut,

Comme l'avais imaginé OutOfRange ta procédure ListBox1Click n'est pas implémentée (absente de la partie implémentation, mais déclarée dans la partie Interface). D'où ton erreur de compilation.

Supprime la déclaration ListBox1Click de la partie Interface, et compile. Tu devrais ne plus avoir d'erreur.

Ensuite depuis l'IDE fais un double-clic sur l'évènement OnClick du ListBox1 et implemente la procédure.
Je suppose que tu dois renseigner la liste des processus existants, car pour l'instant la liste reste vide car à aucun endroit tu ne la renseignes.

@+ Bon dev

**bionicleman** · 26/07/2006, 16h37

Merci a tous

, merci de toutes vos reponces
je suis allé cherché un peu partout puis j'ai trouvé une source et, effectivement il y avait un probleme dans la source qui me servait de base

Je vais esseyé la nouvelle source et je vous tien au courant