| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Народ!!! Как программно прибить процесс, без лишних вопросов [D7, WinXP]
chuvak © (2003-05-19 17:11:00)Наподобии как в диспетчере задач, только без вопросов.
Delphi5.01 (2003-05-19 21:54:00) [1]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!
___ALex___ (2003-05-19 17:20:00) [2]TerminateProcess
| |
