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

Как получить список всех процессов в win9x/Me   Найти похожие ветки 

← →
User3000   (2004-01-29 15:07) [0]

Как получить список всех процессов в win9x/Me, тоесть их имена.

---

← →
MBo ©   (2004-01-29 15:09) [1]

ToolHelp32 функции

---

← →
SPIRIT ©   (2004-01-29 15:17) [2]

procedure TForm1.FormCreate(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;

---

← →
AndersoNRules ©   (2004-01-29 22:33) [3]

Thanx a lot SPIRIT !!!!

---

← →
AndersoNRules ©   (2004-01-29 22:33) [4]

Thanx a lot SPIRIT !!!!  Works under XP !!

---

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

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



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