Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите завершить все работающие задачи без всяких уведомлений... [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, а за что так не любишь пользователей.


Наверх

Титульная страница Поиск, карта сайта Написать письмо