Завершить процесс

[Roman®©]

Помогите пожалуйста! Я не знаю, как програмным путём уничтожить выбранный моей программой процесс?

[Kotofff]

Как можно подробнее ...
Какой процесс и как выбирается ,где выбирается ... и т.д. ...
Помочь будет проще ...

[BOBAH13]

Google + MSDN:

OpenProcess, TerminateProcess, CloseHandle

[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('имя процесса для уничтожения.exe');
End;

[Leloush]

TerminateProcess

[rpy3uH]

Roman®©, в слудующий раз юзай поиск!
Тема закрыта.