Скачать: CL | DM;

Помогите завершить все работающие задачи без всяких уведомлений...   Найти похожие ветки 

← →
Remy   (2002-01-06 23:19) [0]

Помогите завершить все работающие задачи без всяких уведомлений о сохранения данных.

---

← →
Anatoly Podgoretsky ©   (2002-01-07 08:10) [1]

Кнопка Power, а за что так не любишь пользователей.

---

← →
А   (2002-01-08 03:00) [2]

Удалено модератором

---

← →
XM-AD ©   (2002-01-08 14:31) [3]

Ну а все таки? Пробовал отлавливать по хэндлам, но закрывается гораздо больше чем надо! :( А например как закрыть все то, что висит на панели задач (хотя бы)???

---

← →
amamed_3071   (2002-01-08 16:59) [4]

GETPROSECCHANDLE
TERMINATEPROCESS

---

← →
XM-AD ©   (2002-01-08 17:51) [5]

А как узнать какие из процессов висят на панели задач??? Например мне не хочется прибивать авэпэшку, нортон-гуард и еще кучку мне всякого-разного??? (можно конечно все это потом запустить заново, но возни больно уж много :( )

---

← →
Vovchik ©   (2002-01-08 18:47) [6]

А так пробовал:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
Wnd:hWnd;
buff:array[0..127] of Char;
begin
ListBox1.Clear;
Wnd:=GetWindow(Handle, gw_HWndFirst);
while Wnd <> 0 DO
begin
if (Wnd<>Application.Handle)and(IsWindowVisible(Wnd))and(GetWindow(Wnd, gw_Owner)=0)and(GetWindowText(Wnd, buff, sizeof(buff))<>0) then
begin
GetWindowText(Wnd, buff, sizeof(buff));
ListBox1.Items.Add(StrPas(buff));
end;
Wnd:=GetWindow(Wnd, gw_hWndNext);
end;
ListBox1.ItemIndex := 0;
end;

Единственно, что находит лишнее - так это "Program Manager".

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.007 c