Убийство

← →
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 и все сводиться к разбору ответов

Есть примерчик, правда на toolhelp
http://cobalt747.narod.ru/ProcessViewer.zip 5kb

Power off

Убийство Найти похожие ветки