| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как получить список всех процессов в win9x/Me
User3000 © (2004-01-29 15:07:00)Как получить список всех процессов в win9x/Me, тоесть их имена.
AndersoNRules (2004-01-29 22:33:00) [1]Thanx a lot SPIRIT !!!!
AndersoNRules (2004-01-29 22:33:00) [2]Thanx a lot SPIRIT !!!! Works under XP !!
SPIRIT (2004-01-29 15:17:00) [3]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;
MBo (2004-01-29 15:09:00) [4]ToolHelp32 функции
| |
