как убить процесс зная его имя?

[One.Love]

Помогите пожалуйста убить процесс по его имени
Если не турдно выложите код плз
Заранее большое спасибо

[Stilet]

1. Найди ИД процесса - поиском по форуму на CreateToolHelp32Snapshot
2. Когда найдеш код там будет цикл, в котором нужно проверять на имя прцесса (ты его знаеш, имя) в цикле проверкой получиш ИД найденного процесса и к нему примениш TerminateProcess (тоже поиск по форуму даст результы)

Удачи.

[Иллидан]

Гм... а нельзя просто симетировать нажатия комбинации Ctrl+alt+delete симетировать шелчем мыши на вкладке процессы найти нужный процесс, симетировать нажатие delete и наконец симетировать нажатие на да в диалоге.

[Kashp]

Сообщение от One.Love

Помогите пожалуйста убить процесс по его имени
Если не турдно выложите код плз
Заранее большое спасибо

winexec('taskkill /F /IM процесс.exe', SW_HIDE);

[rpy3uH]

Сообщение от Иллидан

Гм... а нельзя просто симетировать нажатия комбинации Ctrl+alt+delete симетировать шелчем мыши на вкладке процессы найти нужный процесс, симетировать нажатие delete и наконец симетировать нажатие на да в диалоге.

это в 10 раз сложнее, чем способ который описал Stilet

Сообщение от One.Love

Если не турдно выложите код плз

чтобы получить пример кода, юзаем плиск по форуму. (http://programmersforum.ru/showthread.php?t=12626)

[Terran]

uses
   Tlhelp32,...

function KillTask(ExeFileName: string): Integer; 
const 
  PROCESS_TERMINATE = $0001; 
var 
  ContinueLoop: BOOL; 
  FSnapshotHandle: THandle; 
  FProcessEntry32: TProcessEntry32; 
begin 
  Result := 0; 
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32); 
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32); 

  while Integer(ContinueLoop) <> 0 do 
  begin 
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
      UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) = 
      UpperCase(ExeFileName))) then 
      Result := Integer(TerminateProcess( 
                        OpenProcess(PROCESS_TERMINATE, 
                                    BOOL(0), 
                                    FProcessEntry32.th32ProcessID), 
                                    0)); 
     ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32); 
  end; 
  CloseHandle(FSnapshotHandle); 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin
  KillTask('winamp.exe');
end;

[AlienNation]

Сообщение от Terran

uses
Tlhelp32,...

function KillTask(ExeFileName: string): Integer;
const
PROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
Result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNA PPROCESS, 0);
FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);

while Integer(ContinueLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(FProces sEntry32.szExeFile)) =
UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFil e) =
UpperCase(ExeFileName))) then
Result := Integer(TerminateProcess(
OpenProcess(PROCESS_TERMINATE,
BOOL(0),
FProcessEntry32.th32ProcessID),
0));
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
KillTask('winamp.exe');
end;

это все конечно работает, но! не так как хотелось бы, допустим, процессы, у которых нету окна эта функция не закрывает!???

[Пепел Феникса]

AlienNation, ничего подобного.
поиск идет по имени исполняемого файла, а не по окну.

может вы пытаетесь закрыть кого-то системного? или того кто защитился?

[alphaxprime]

cmd.exe:
taskkill /im iexplore.exe /f (<--принудительно)

[ProgMaster]

WinExec('taskkill /f /im process.exe',SW_HIDE);

Но он боится завершать критические системные процессы такие как csrss.exe,winlogon.exe
И rpy3uH, вы таким образом не убьёте системный процесс, как HPIsvc.exe,nvsvc32.exe