MataProcesos

[[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.