Du musst aber aufpassen:
Lösche dann das:
Delphi-Quellcode:
{ and refresh listbox contend }
Form1.Button1Click(Form1);
aus der "Kill-Prozess" und setzt es in diese beiden proceduren wieder ein:
Delphi-Quellcode:
//Kill den ausgewählten Prozess
procedure TForm1.Button2Click(Sender: TObject);
begin
KillProcess(GetProcessID(Listbox1.Items.Strings[Listbox1.ItemIndex]));
{ and refresh listbox contend }
Form1.Button1Click(Form1);
end;
//Killt alle test.exe
procedure TForm1.Button3Click(Sender: TObject);
var i: integer;
begin
for I:=0 to ListBox1.Count-1 do
if Listbox1.Items.Strings[i] = 'test.exe' then
KillProcess(GetProcessID(Listbox1.Items.Strings[i]));
{ and refresh listbox contend }
Button1Click(Form1);
end;
Sonst kommt die Fehlermeldung: ListenIndex überschreitet das Mximum. Oder so ähnlich.
