Отключение процесса windows

← →
Knob © (2007-07-17 18:34) [0]

Как можно из Delphi убить тот или иной процесс (в диспетчере задач windows)? И как можно их просмотреть в Delphi?

← →
iXT © (2007-07-17 18:39) [1]

Поиск за сегодня хоть бы раз заюзал

← →
Knob © (2007-07-17 19:00) [2]

Вот как надо отключать:
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("Wn.exe"); end;

← →
iXT © (2007-07-17 19:07) [3]

Ну ведь правда было не сложно

> Knob (17.07.2007 18:34:00) [0]

В диспетчере задач процесс убивается нажатием кнопки или эмуляцией этого нажатия.

Отключение процесса windows Найти похожие ветки