Скачать: CL | DM;

Работа с окнами   Найти похожие ветки 

← →
Legolas   (2006-12-15 12:24) [0]

Как занести в Memo названия всех запущенных окон(видимых)?

---

← →
novill ©   (2006-12-15 12:25) [1]

воспользоваться поиском

---

← →
Dmitrij_K   (2006-12-15 12:27) [2]

см. EnumWindows()

---

← →
Legolas   (2006-12-15 12:34) [3]

EnumWindows() находит окна, но как узнать их названия? Чего-то у меня не получалось.

---

← →
Сергей М. ©   (2006-12-15 12:36) [4]

> Чего-то у меня не получалось


Показывай как пробовал

---

← →
Legolas   (2006-12-15 12:46) [5]

С помощью EnumWindow() нахожу окна (HWND), а как определить их заголовок?

---

← →
Dmitrij_K   (2006-12-15 12:49) [6]

Legolas, яндеx знает.

---

← →
Сергей М. ©   (2006-12-15 13:07) [7]

> как определить их заголовок?
>


с помощью  ф-ции GetWindowText()

---

← →
Handle ©   (2006-12-15 14:34) [8]

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988622454&n=15

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;

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c