| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Убийство [D6, Win2k, WinXP]
JoSHUA © (2003-03-12 15:28:00)Не судите если такой вопрос уже задавался. Но нет у меня времени копать старые темы. Вы или ответьте или киньте ссылку
Моя прога висит в памяти и убивает все программы, которые юзер пытается загрузить. Как это сделать?
Anatoly Podgoretsky (2003-03-13 12:58:00) [1]Power off
Cobalt (2003-03-13 12:52:00) [2]Есть примерчик, правда на toolhelp
http://cobalt747.narod.ru/ProcessViewer.zip5kb
Saint_Byte (2003-03-13 10:44:00) [3]PostMessage(wnd, WM_QUIT, 0, 0);
Там надо TerminateProcess -)
Человек сказал убивать , хотя можно из ШеллСкрипта , Сделать tasklist потом методично делать taskkill и все сводиться к разбору ответов
Игорь Шевченко (2003-03-12 15:50:00) [4]Policy, дружище, Policy. Оно рулез фарева.
Nick Denry (2003-03-12 15:45:00) [5]Просто убить все процессы:
procedure TForm1.Button1Click(Sender: TObject);
VAR
Wnd : hWnd;
buff: ARRAY [0..127] OF Char;
begin
Wnd := GetWindow(Handle, gw_HWndFirst);
WHILE Wnd > 0 DO BEGIN {Не показываем:}
Wnd := GetWindow(Wnd, gw_hWndNext);
PostMessage(wnd, WM_QUIT, 0, 0);
end;
end;
| |
