Prozesse beenden

[Knotti2015]

Ja aber wie tue ich das. Es müsst ja erstmal der Prozess in der listbox ausgewählt, ausgelesen (1 - vmware), und dann die 1 an

Delphi-Quellcode:

var 
  PrID: Integer; 
  Ph: THandle; 
begin 
  // Prozess öffnen 
  Ph := OpenProcess(1, BOOL(0), PrID); 
  // Prozess terminieren 
  Ret := TerminateProcess(Ph, 0); 
end;

übergeben werden. Ich will nicht erst den Namen oder die ID eintragen einfach anklicken und drop...