Форум: "Начинающим";
Текущий архив: 2007.01.07;
Скачать: [xml.tar.bz2];
ВнизРабота с окнами Найти похожие ветки
← →
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.01.07;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c