Народ!!! Как программно прибить процесс, без лишних вопросов

← →
chuvak (2003-05-19 17:11) [0]

Наподобии как в диспетчере задач, только без вопросов.

← →
___ALex___ © (2003-05-19 17:20) [1]

TerminateProcess

A esli process eto Dos programma? u mena problemma bila s TerminateProcess, progu zabival

Procedure Close_Program(Name : String);
var
Wnd : HWND;
LPDWORD : Cardinal;
hProcess : THandle;
begin
Wnd := FindWindow("tty",pChar(Name));
if Wnd <> 0 then
Begin
GetWindowThreadProcessId(Wnd, LPDWORD);
hProcess := OpenProcess(SYNCHRONIZE or PROCESS_TERMINATE, FALSE, LPDWORD);
if hProcess <> 0 then
try
TerminateProcess(hProcess, 0)
finally
CloseHandle(hProcess)
end
end
end;

no k sojaleniu etuje progu zanova ne zapustish, windi krichat. zapusk vozmojen tolko posle restarta ili logofa, tak chto nujno drugoe reshenie!
Jelau udachi!

Народ!!! Как программно прибить процесс, без лишних вопросов Найти похожие ветки