Текущий архив: 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.012 c