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

Всё тот же процесс-менеджер!   Найти похожие ветки 

← →
SpyBoy ©   (2006-01-01 21:08) [0]

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;

---

← →
SpyBoy ©   (2006-01-01 21:13) [1]

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

---

← →
Anton_K ©   (2006-01-01 21:53) [2]

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

---

← →
SpyBoy ©   (2006-01-01 22:44) [3]

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

---

← →
Anton_K ©   (2006-01-02 00:16) [4]

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

---

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

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



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