MataProcesos

[principiante22]

Saludos, como puedo matar el proceso de access por codigos??

[Neftali [Germán.Estévez]]

Revisa el truco 278, que habla de cómo cerrar una aplicación a partir del título de la ventana.
Se puede usar también el nombre de la clase en la API findWindows.

[principiante22]

pero lo que deseo de cerrar es el proceso de un programa que no tiene ventana, asi que nunca lo encuentra, que debo de hacer con esos codigos para ponerlo a cerrar un proceso??

[[cHackAll]]

Código Delphi [-]
uses Windows, TlHelp32;
 
var
 hSnapshot, hProcess: Cardinal;
 ProcessEntry: TProcessEntry32 = (dwSize: SizeOf(TProcessEntry32));
 ModuleEntry: TModuleEntry32 = (dwSize: SizeOf(TModuleEntry32));
 
begin
 hSnapshot := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
 if Process32First(hSnapshot, ProcessEntry) then
  repeat
   if lstrcmpi('msaccess.exe', @ProcessEntry.szExeFile) = 0 then
    begin
     hProcess := OpenProcess(PROCESS_TERMINATE, False, ProcessEntry.th32ProcessID);
     TerminateProcess(hProcess, 0);
     CloseHandle(hProcess);
     Break;
    end;
  until not Process32Next(hSnapshot, ProcessEntry);
 CloseHandle(hSnapshot);
end.

[principiante22]

Empezado por cHackAll

ProcessEntry: TProcessEntry32 = (dwSize: SizeOf(TProcessEntry32));
ModuleEntry: TModuleEntry32 = (dwSize: SizeOf(TModuleEntry32));

La parte en negrita me da error, por que será?

Ambos me dan el mismo error (Cannot initialize local variables).

[dec]

Hola,

¿Pretendes que adivinemos el error que "te da"? Por favor, si quieres que te ayuden, empieza por copiar aquí el mensaje de error.

[principiante22]

lo puse hace un rato ya, lo que pasa es que respondiste muy rapido

[dec]

Hola,

No sé exactamente porqué el error, puesto que el código parece "probado", pero, en todo caso puedes intentarlo con algo como esto, que acabo de probar y parece que funciona bien.

Código Delphi [-]
var
 hSnapshot, hProcess: Cardinal;
 ProcessEntry: TProcessEntry32;
 ModuleEntry: TModuleEntry32;

begin
 ProcessEntry.dwSize := SizeOf(TProcessEntry32);
 ModuleEntry.dwSize := SizeOf(TModuleEntry32);

 hSnapshot := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
 if Process32First(hSnapshot, ProcessEntry) then
  repeat
   if lstrcmpi('calc.exe', @ProcessEntry.szExeFile) = 0 then
    begin
     hProcess := OpenProcess(PROCESS_TERMINATE, False, ProcessEntry.th32ProcessID);
     TerminateProcess(hProcess, 0);
     CloseHandle(hProcess);
     Break;
    end;
  until not Process32Next(hSnapshot, ProcessEntry);
 CloseHandle(hSnapshot);
end;

Por cierto, si quitas el "break" que se remarcado, cerrarás todos los procesos con el nombre indicado, y no sólo el "primero" que encuentre la rutina.

El asunto podría quedar más o menos así:

Código Delphi [-]
uses
  TlHelp32;

function MatarProcesos(nombre: string): boolean;
var
 ModuleEntry: TModuleEntry32;
 ProcessEntry: TProcessEntry32;
 hSnapshot, hProcess: Cardinal;
begin
 result := false;
 ModuleEntry.dwSize := SizeOf(TModuleEntry32);
 ProcessEntry.dwSize := SizeOf(TProcessEntry32);
 hSnapshot := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS,0);
 if Process32First(hSnapshot, ProcessEntry) then
  repeat
   if (lstrcmpi(PChar(nombre), @ProcessEntry.szExeFile) = 0) then
    begin
     hProcess := OpenProcess(PROCESS_TERMINATE,
                  false,ProcessEntry.th32ProcessID);
     result := TerminateProcess(hProcess,0);
     CloseHandle(hProcess);
    end;
  until not Process32Next(hSnapshot, ProcessEntry);
 CloseHandle(hSnapshot);
end;

[principiante22]

ahora si me funciono, Gracias dec

[[cHackAll]]

[principiante22]

A ti tambien te lo agradezco cHackAll, fue que se me paso decirtelo orita