Форум: "Система";
Текущий архив: 2003.07.31;
Скачать: [xml.tar.bz2];

Вниз

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

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

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

---

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

TerminateProcess

---

← →
Delphi5.01   (2003-05-19 21:54) [2]

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!

---

Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2003.07.31;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.018 c