Ver Mensaje Individual
  #3  
Antiguo 02-04-2008
Avatar de aeff
aeff aeff is offline
Miembro
 
Registrado: oct 2006
Ubicación: Cuba, Guantánamo
Posts: 348
Reputación: 20
aeff Va camino a la fama
ñooooooo!! para serte mas claro, con lo anterior lo que haces es mostrar una lista de los procesos en ejecución, ahh!, te digo que los proceso que son del SYSTEMA no se pueden cerrar, como el Winlogon el LSASS etc..., pero si lo que quieres es cerrar el proceso que selecciones en el listbox entonces te doy una idea un poco rustica pero funciona,

mira, pon otro button con el cual pretenderas cerrar el proceso e implementa este codigo:

Código Delphi [-]
{añade en el uses a ShellApi}
uses ...,ShellApi;

{Implmentas esta funcioncita, para ya verás...}
function GetOnlyName(pFileName: string): string;
begin
  Result := Copy(ExtractFileName(pFileName), 1, Pos('.', ExtractFileName(pFileName)) -1);
end;

{y en el Evento onclick del button que va a cerrar el proceso seleccionado}
procedure TForm1.Button2Click(Sender: TObject);
begin
  ShellExecute(Handle, nil, 'Tskill.exe', pChar(GetOnlyName(ListBox1.Items.Strings[ListBox1.ItemIndex])),
               nil, SW_HIDE);

end;

bueno, es un invento, lo que hacemos es mandar a cerrar el proceso con un programa del propio Windows llamdo Tskill.exe

espero que te sirva este metodo rustico

saludos!
aeff!
Responder Con Cita