| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Всё тот же процесс-менеджер!

SpyBoy ©   (2006-01-01 21:08:00) 

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)or checkbox1.Checked)and//-Невидимые окна
  ((GetWindow(Wnd, gw_Owner)=0)or checkbox2.Checked) 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.Sorted:=true;

---

Anton_K   (2006-01-02 00:16:00) [1]

Используй функции:
CreateToolhelp32Snapshot
Process32First
Process32Next

---

SpyBoy   (2006-01-01 22:44:00) [2]

Ну тогда скажи, что делать !

---

Anton_K   (2006-01-01 21:53:00) [3]

C чего ты взял, что все процессы имеют окна?

---

SpyBoy   (2006-01-01 21:13:00) [4]

По идее должен показывать все процы, однако Простой *.exe(только uses windows) не отображается :(

---

Наверх