[codeLocker]

Пример ниже убивает процесс по заданому имени

Код:

procedure ProcessTerminate(sName: string);
var
  han : THandle;
  ProcStruct : PROCESSENTRY32;
  sID : string;
begin
  han := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
  if han = 0 then exit;
  ProcStruct.dwSize := sizeof(PROCESSENTRY32);
  if Process32First(han, ProcStruct) then begin
    repeat
      sID := ExtractFileName(ProcStruct.szExeFile);
      if UpperCase(copy(sId, 1, length(sName))) = uppercase(sName) then begin
        ProcessTerminate(ProcStruct.th32ProcessID);
        Break;
      end;
    until not Process32Next(han, ProcStruct);
  end;
  CloseHandle( han );
end;

Admin: Пользуемся тегами!