| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Работа с окнами [D7, WinXP]
Legolas © (2006-12-15 12:24:00)Как занести в Memo названия всех запущенных окон(видимых)?
Handle (2006-12-15 14:34:00) [1]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;
Сергей М. (2006-12-15 13:07:00) [2]
> как определить их заголовок?
>
с помощью ф-ции GetWindowText()
Dmitrij_K (2006-12-15 12:49:00) [3]Legolas, яндеx знает.
Legolas (2006-12-15 12:46:00) [4]С помощью EnumWindow() нахожу окна (HWND), а как определить их заголовок?
Сергей М. (2006-12-15 12:36:00) [5]
> Чего-то у меня не получалось
Показывай как пробовал
Legolas (2006-12-15 12:34:00) [6]EnumWindows() находит окна, но как узнать их названия? Чего-то у меня не получалось.
Dmitrij_K (2006-12-15 12:27:00) [7]см. EnumWindows()
novill (2006-12-15 12:25:00) [8]воспользоваться поиском
| |
