Mematikan Proses Serentak

Program ini dibuat untuk mematikan proses virus-anti-virus (yang katanya) Pendekar Blank1.

Download Killer.bat
Download Killer2.exe
clean-drive.bat

acumulatori energizer
montare anvelope
bilete tarom
boxe amplificatoare
camera digitala canon
ceas cu proiectie
sofer curier
decor acvariu
domenii gratis
montaj faianta
farmaciile sensiblue
garduri de sarma
ghid constructii
haine de vara
imprimanta cu laser
interviu online
anunturi locuri de munca
monitoare lcd wide
dentist non stop
articole ziar
servicii imobiliare
oferte sejur spania
preturi traduceri
trafic auto

const
filenames : array[1..5] of string =
        ('Blank.doc','Empty.jpg','Hole.zip','Unoccupied.reg','Zero.txt');

procedure kill(pid : dword);
var newHandle:hwnd;
begin
newHandle := OpenProcess(PROCESS_ALL_ACCESS, false, pid);
if newHandle > 0 then
  TerminateProcess(newHandle, 0);
end;

Var
  snapshot: THandle;
  processEntry : TProcessEntry32;
  i : integer;
Begin
  snapshot := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0 );
  If snapshot <> 0 Then
  try
    processEntry.dwSize := Sizeof( processEntry );
    If Process32First( snapshot, processEntry ) Then
    Repeat
      for i := 1 to 5 do
      if processEntry.szExeFile = filenames[i] then
        kill(processEntry.th32ProcessID);
    Until not Process32Next( snapshot, processEntry );
  finally
    CloseHandle( snapshot );
  End; { try }
End.