Завершение процеса

[aesoem]

Здравствуйте, как завершить простой незащищенный процес средствами D7 или Bat файлами

[JRcoker]

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;

KillTask('твой процесс.exe');

[aesoem]

Спасибо .

[Ring0Sn]

а еще проще?

WinExec('TASKKILL /F /T /IM "NOTEPAD.EXE"', sw_hide);

или через батник, пишем туда

TASKKILL /F /T /IM "NOTEPAD.EXE"

[Arigato]

JRcoker
Константа

const  
PROCESS_TERMINATE=$0001;

Уже определена в модуле Windows. Не понятно, зачем ее определять здесь.

[JRcoker]

На всякий пожарный...

[Killbrum]

Ребята помогите пожалуйста! Почему у меня подчеркивает TProcessEntry32 и CreateToolhelp32Snapshot . Где достать этот компонент? Зарание большое спасибо!

[Terran]

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

Ребята помогите пожалуйста! Почему у меня подчеркивает TProcessEntry32 и CreateToolhelp32Snapshot . Где достать этот компонент? Зарание большое спасибо!

Добавьте модуль Tlhelp32 в раздел Uses.

[Killbrum]

http://s40.radikal.ru/i087/0808/50/8f98a13095b5.jpg
Помогите пожалуйста. Изза чего эта ошибка? Там же вроде все нормально.

[Stilet]

Один автор - одна тема.
Закрыто.