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

Список процессов в D6   Найти похожие ветки 

← →
s.kaster ©   (2002-08-26 20:52) [0]

есть код .......

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 - всё путём.

---

← →
MBo ©   (2002-08-26 21:23) [1]

содержимое слабо соотносится с SUBJ...

---

← →
Song ©   (2002-08-26 21:31) [2]

EnumThreadWindows()

---

← →
s.kaster ©   (2002-08-27 07:05) [3]

Song можно поподробнее, для ламеров!!! Просто очень нужно!

---

← →
s.kaster ©   (2002-08-30 12:16) [4]

Извиняюсь, всё работает :)), я прокасячил!

---

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

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



Память: 0.45 MB
Время: 0.011 c