Запущенные процессы и инфа.

Здравствуйте.

У меня есть код, который выводит список процессов, которые в данный момент запущены на компьютере и количество самих процессов.

Code (Text):

1. procedure TForm1.TabSheet5Show(Sender: TObject);
2. var
3. Proc: TProcArray;
4. k,I: Integer;
5. begin
6. If GetPlatform = 'WinNT' then k:=GetProcessesWinNT(Proc) else
7. If GetPlatform = 'Win95' then k:=GetProcessesWin95(Proc) else
8. exit;
9. Label26.Caption:='Processes run: '+IntToStr(k);
10. Memo1.Clear;
11. For I:=0 to K-1 do Memo1.Lines.Add(Proc[i]);
12. end;

А мне необходимо кроме названия самих процессов вывести:
- обладателя процесса (system или юзер)
- время процесса
- другая инфа
В общем все, что можно посомтреть при Alt+Ctrl+Del.

Грубо говоря внизу несколько кнопок: вывести процессы только system, только юзера, соритровать по времени и т.д.

Абсолютно все равно как это делать. Да хоть из реестра читать. Подскажите, пожалуйста.
Заранее, спасибо.

 

mituhin, если проводить аналогии с приведённым тобой кодом, ответ будет звучать как

Code (Text):

1. begin
2. If GetPlatform = 'WinNT' then k:=GetProcessesAndStuffWinNT(Proc) else
3. If GetPlatform = 'Win95' then k:=GetProcessesAndStuffWin95(Proc) else
4. exit;

8)))

А если серьёзно, то читаем описание API ф-ции CreateToolhelp32Snapshot в MSDN, медитируем, гуглим.

Есть ещё NativeAPI ф-ция ZwQuerySystemInformation, на которой работают большинство процессменеджеров, включая ProcessExplorer Руссиныча.

И если немножечко поискать, можно найти статью на RSDN по теме. Правда там на сях всё, но расписано вполне толково.

 

Спасибо G13, надеюсь, что осилю.