Windows Prozess killen

[Budda]

Hallo,

habe mit Hilfe des Codes aus diesem Thread eine Liste aller laufenden Prozesse bzw. die Dateinamen like test.exe.

Wie kann ich nun bestimmte Prozesse killen ?
Also ich möchte z.B. alle Prozesse der test.exe killen ?

Und dann hab ich noch ne NebenFrage, welches Buch könntet ihr mir für den Delphi Einstieg empfehlen ?

Gruß
Budda

[Chewie]

Um einen Prozess zu killen, brauchst die ProzessID und die Funktion KillProcess.

[Budda]

Hallo,

gibt es denn eine möglichkeit Anhand der test.exe die nzugehörige PID zu bekommen ?

Gruß
Budda

[Chewie]

Zeig mal bitte den Code, wie du an alle Prozesse rankommst. Ich hab keine große Lust, mich durch 3 Seiten Threads durchzuwühlen.

[Luckie]

Zitat von Chewie:

Um einen Prozess zu killen, brauchst die ProzessID und die Funktion KillProcess.

Funktionn KillProcesses? Wo kommt die denn her?

@Budda: http://www.delphipraxis.net/internal...ect.php?t=2275

[Chewie]

Zitat von Luckie:

Zitat von Chewie:

Um einen Prozess zu killen, brauchst die ProzessID und die Funktion KillProcess.

Funktionn KillProcesses? Wo kommt die denn her?

Mist, ich hab gerade an Linux gedacht (kill PID).

Edit: OK, hier ist sie:

Delphi-Quellcode:

function KillProcess(PID: DWord): Bool;
var
  hProcess: THandle;
begin
  hProcess := OpenProcess(PROCESS_TERMINATE, False, PID);
  Result := TerminateProcess(hProcess, 0);
end;

[Budda]

Hallo,

hab mal Luckie's Code genommen der auch so seinen Zweck erfüllt.
Danke nochmal.

Allerdings habe ich jetzt probiert das zu automatisieren, dazu habe ich testweise folgende funktion auf einen Button gelegt:

Delphi-Quellcode:

  A := Listbox1.Count;
  for I:=0 to A do
    if Listbox1.Items.Strings[I] = 'test.exe' then
      KillProcess(GetProcessID(Listbox1.Items.Strings[Listbox1.ItemIndex]))
    else
end;

Allerdings hab ich das Problem das bevor er zum killen des Prozesses kommt er die Message Item Index Out auf Bounds.

Weiss jemand wo da der Fehler is ?

Gruß
Budda

[Matze]

Muss es nicht so heißen:

Delphi-Quellcode:

A := Listbox1.Count; 
  for I:=0 to A do 
    if Listbox1.Items.Strings[I] = 'test.exe' then 
      KillProcess(GetProcessID(Listbox1.Items.Strings[I])) 
    else 
end;

[Matze]

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.

[Budda]

Zitat von Matze:

Muss es nicht so heißen:

Delphi-Quellcode:

A := Listbox1.Count; 
  for I:=0 to A do 
    if Listbox1.Items.Strings[I] = 'test.exe' then 
      KillProcess(GetProcessID(Listbox1.Items.Strings[I])) 
    else 
end;

Ah jau, das hatte ich übersehen, allerdings habe ich das Problem das er den prozess zwar automatisch beendet allerdings kommt nach dem beenden der Fehler "List Index out of Bounds".

Wer ne Idee was das ist ?