Ver Mensaje Individual
  #4  
Antiguo 21-12-2005
Avatar de Anubisdp
Anubisdp Anubisdp is offline
Miembro
 
Registrado: nov 2005
Posts: 13
Reputación: 0
Anubisdp Va por buen camino
Cool Para matar un proceso

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!!!
Responder Con Cita