Matar proceso

[Anubisdp]

hola para matar un proceso sabiendo su nombre, puedes utilizar las siguientes sentencias:

procedure TForm1.Button1Click(Sender: TObject);
var
Valor:integer;
begin //Nombre del proceso ejemplo Calculadora
Valor:=FindWindow(nil,'Calculadora');
If Valor=0 //debuelve sero si no se encontro el proceso
then ShowMessage('No encuentro esa aplicacion')
else SendMessage(Valor,WM_CLOSE,0,0); // y si se se mata el proceso
end;

Suerte!!!