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

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

Закрытие других приложений [D5, Win95/98, WinME, NT4, Win2k, WinXP]

Dr.Karter ©   (2006-01-25 14:52:00) 

Я читаю в Листбокс все приложения которые открыты:

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;

Как мне теперь программным путем закрывать приложения? из этого списка....

---

xShadow   (2006-01-25 15:49:00) [1]

Process32First
Process32Next
TerminateProcess
Тебе помогут

---

Digitman   (2006-01-25 15:07:00) [2]

Упомянутым способом ты перечислил не приложения, а окна.

Окно же не есть тоже самое, что и Приложение.

---

Наверх