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

← →
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

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

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

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".

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