Текущий архив: 2003.05.12;
Скачать: CL | DM;
Вниз
Убийство Найти похожие ветки
← →
JoSHUA (2003-03-12 15:28) [0]Не судите если такой вопрос уже задавался. Но нет у меня времени копать старые темы. Вы или ответьте или киньте ссылку
Моя прога висит в памяти и убивает все программы, которые юзер пытается загрузить. Как это сделать?
← →
Nick Denry © (2003-03-12 15:45) [1]Просто убить все процессы:
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;
← →
Игорь Шевченко © (2003-03-12 15:50) [2]Policy, дружище, Policy. Оно рулез фарева.
← →
Saint_Byte (2003-03-13 10:44) [3]PostMessage(wnd, WM_QUIT, 0, 0);
Там надо TerminateProcess -)
Человек сказал убивать , хотя можно из ШеллСкрипта , Сделать tasklist потом методично делать taskkill и все сводиться к разбору ответов
← →
Cobalt © (2003-03-13 12:52) [4]Есть примерчик, правда на toolhelp
http://cobalt747.narod.ru/ProcessViewer.zip 5kb
← →
Anatoly Podgoretsky © (2003-03-13 12:58) [5]Power off
Страницы: 1 вся ветка
Текущий архив: 2003.05.12;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.015 c
