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

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

Закрыть приложение !

Страницы:   < 1 2 >

SPIRIT ©   (2004-01-29 08:13:00) 

вот таким образом я полочая список запущенных приложений ... а как их всех закрыть ?


procedure TForm1.Button1Click(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;


---

SPIRIT   (2004-01-29 12:14:00) [21]

WM_CLOSE  бл"

---

SPIRIT   (2004-01-29 09:04:00) [22]

PostMessage(FindWindow(Nil,pchar(StrPas(buff))), WM_QUIT, 0, 0);

закрывает все кроме окон эксплоера...

---

Страницы:   < 1 2 >

Наверх