Текущий архив: 2006.04.16;
Скачать: CL | DM;

Вниз

Закрытие других приложений   Найти похожие ветки 

← →
Dr.Karter ©   (2006-01-25 14:52) [0]

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

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;

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

---

← →
Digitman ©   (2006-01-25 15:07) [1]

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

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

---

← →
xShadow ©   (2006-01-25 15:49) [2]

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

---

Страницы: 1 вся ветка

Текущий архив: 2006.04.16;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.043 c