Еще одна моя ленивая прога.
Прога закрывает любое количество окон клиента и 3 вида ботов МСХ Пиратес и Зц
http://shareflare.net/download/66779.6c … r.rar.html

прога делалась опять же из за лени
ибо на утро перед универом убивать 4 окна клиента вручную слишком долго

Скриншот
http://s005.radikal.ru/i210/1005/31/e883e66547d7.jpg

и чтобы не возникало вопросов прикладываю исходник =) прост до безобразия

Код:

{$R *.dfm}
function GetProcessId(pName: PAnsiChar): dword;
var
Snap: dword;
Process: TPROCESSENTRY32;
begin
  Result := 0;
  Snap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if Snap <> INVALID_HANDLE_VALUE then
     begin
      Process.dwSize := SizeOf(TPROCESSENTRY32);
      if Process32First(Snap, Process) then
         repeat
          if lstrcmpi(Process.szExeFile, pName) = 0 then
             begin
              Result := Process.th32ProcessID;
              CloseHandle(Snap);
              Exit;
             end;
         until not Process32Next(Snap, Process);
      Result := 0;
      CloseHandle(Snap);
     end;
end;

procedure KillProgram(Name: string);
const
  PROCESS_TERMINATE = $0001;
var
  ProcessHandle : THandle;
begin
  ProcessHandle := OpenProcess(PROCESS_TERMINATE, FALSE, GetProcessId(PAnsiChar(Name)));
  TerminateProcess(ProcessHandle,4);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
BitBtn1.Visible:=False;
BitBtn2.Visible:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
KillProgram('elementclient.exe');
KillProgram('MHS-Bot-PW 2.3 Full Target.exe');
KillProgram('PWBot.exe');
KillProgram('zPW1.26.exe');
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Close;
end;