Как получить список всех процессов в 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 !!!!

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

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