| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Список процессов в D6 [D6, Win95/98]
s.kaster © (2002-08-26 20:52:00)есть код .......
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;
Уважаемые программисты, до сих пор в голове не укладывается, почему он не работает в DELPHI6, когда в D5 - всё путём.
s.kaster (2002-08-30 12:16:00) [1]Извиняюсь, всё работает :)), я прокасячил!
s.kaster (2002-08-27 07:05:00) [2]Song можно поподробнее, для ламеров!!! Просто очень нужно!
Song (2002-08-26 21:31:00) [3]EnumThreadWindows()
MBo (2002-08-26 21:23:00) [4]содержимое слабо соотносится с SUBJ...
| |
