Cerrar otra aplicación con ventana invisible

[[Al González]]

Pues yo creo que con esta rutina de Dec no tendrás que rezar nadita Lord. No la he probado pero tiene muy buena pinta. Excelente código David.

Hay por ahí un Begin y un End y un par de paréntesis que son innecesarios, y quizá convendría asegurar a los CloseHandle con un Try...Finally. Serían mis únicas observaciones.

Un abrazo rutinario.

Al González.

[dec]

Hola,

Es muy posible que sea como dices Al. De hecho ese código no lo escribí yo (a tanto no he llegado) sino que lo adaptaría de alguno que encontré por ahí, pero, que, por el motivo que sea, no puedo citar, puesto que en el original (cierto proyecto mío) tampoco cito a su autor... y eso no puede querer decir (salvo excepciones) que no recuerdo al autor, ¡o que yo mismo lo escribí! Quién sabe... no, esto último no será.

[Lord Delfos]

¡Gracias Dec!

Voy a probar este codiguín a ver qué sale. Lo del nombre no es tan problemático, porque como el programa en sí no se ve, puedo inventar nombes medios complicados...

Gracias de nuevo y saludongos.

[vejerf]

Buenas,
Buscando algún método para matar a una aplicación he dado con este hilo. Mi intención es "matar" al Google Earth cuando cierro mi aplicación ya que mi aplicación hace uso del GE. Al usar el método sugerido por Dec el GE no termina de cerrarse. Ocurre que finaliza la aplicación, pero da un error quedando como en segundo plano. El error dice que esa funcionalidad sólo está prevista para los suscriptores de Google Earth Plus. No hay algún método que sea aún más agresivo y que lo elimine como hace el administrador de tareas???

Gracias...

[alquimista]

En mi mata programas utilizo la siguiente rutina, sacada de internet y modificada algo:
POr supuesto no es perfecta pero mata los programas

Código Delphi [-]
function KillTask(ExeFileName: string): Integer;

var

  foto: Cardinal;
  datos: tagPROCESSENTRY32;
  p: array[0..512] of char;

  function QuitarSaltosLinea(Strs: String; CharReplace:String=#0):String;
       var
         Str:string;
       begin
         Str := AnsiReplaceStr(Strs, #$D, CharReplace);
         Result := AnsiReplaceStr(Str, #$A, CharReplace);
       end;

begin
  Result:=0;
  ExeFileName:=QuitarSaltosLinea(ExeFileName);
  strpcopy(p,ExeFileName);

  datos.dwSize := sizeOF(tagPROCESSENTRY32);
  foto := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  while Process32Next(foto, datos) do
  begin
      if (UpperCase(datos.szExeFile) = UpperCase(p)) then
        begin
         Result := Integer(TerminateProcess(
                          OpenProcess(
                          PROCESS_TERMINATE,
                          BOOL(1), datos.th32ProcessID), 0));
         end;
 
  end;
  CloseHandle(foto);
end;

para el WinXp o NT uses tlhelp32;

Si alguno de los programas se resiste se puede usar esto para ayudar:

Código Delphi [-]
function EnablePrivilege(PrivilegeName: PChar; Enable: Boolean): Boolean;
var
  hToken: THandle;
  Tp: TOKEN_PRIVILEGES;
  Luid: TLargeInteger;
begin
  Result:= FALSE;
  if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or
  TOKEN_QUERY or TOKEN_READ or TOKEN_WRITE or TOKEN_ALL_ACCESS, hToken) then
      if LookupPrivilegeValue(nil,PrivilegeName,Luid) then
        begin
          Tp.PrivilegeCount:= 1;
          Tp.Privileges[0].Luid:= Luid;
            if Enable then
              Tp.Privileges[0].Attributes:= SE_PRIVILEGE_ENABLED
            else
              Tp.Privileges[0].Attributes:= 0;
          Result:= AdjustTokenPrivileges(hToken,FALSE,Tp,0,nil,PDWORD(nil)^);
          CloseHandle(hToken);
        end;
end;

Código Delphi [-]
EnablePrivilege('SeDebugPrivilege', TRUE);

No se exactamente que es lo que hace pero creo que me sirvio


Ya me cuentas.

[vejerf]

Gracias por tu ayuda... pero al final no me funcionó...
Me da el mismo problema que con la función de dec... no termina de cerrarse... Aghhh es que no hay forma en esta vida de acabar de una vez por todas con el Google Earth jejeje

Gracias