![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите завершить все работающие задачи без всяких уведомлений... [D5, WinME]
Remy © (2002-01-06 23:19:00)Помогите завершить всеработающие задачи без всяких уведомлений о сохранения данных.
Vovchik (2002-01-08 18:47:00) [1]А так пробовал:
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".
XM-AD (2002-01-08 17:51:00) [2]А как узнать какие из процессов висят на панели задач??? Например мне не хочется прибивать авэпэшку, нортон-гуард и еще кучку мне всякого-разного??? (можно конечно все это потом запустить заново, но возни больно уж много :( )
amamed_3071 (2002-01-08 16:59:00) [3]GETPROSECCHANDLE
TERMINATEPROCESS
XM-AD (2002-01-08 14:31:00) [4]Ну а все таки? Пробовал отлавливать по хэндлам, но закрывается гораздо больше чем надо! :( А например как закрыть все то, что висит на панели задач (хотя бы)???
А (2002-01-08 03:00:00) [5]Удалено модератором
Anatoly Podgoretsky (2002-01-07 08:10:00) [6]Кнопка Power, а за что так не любишь пользователей.