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

[mituhin]

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

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

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

[rpy3uH]

а где сама функция GetProcessesWinNT?
а структура TProcArray?

P.S. и задудь про Win95 (9x) их уже ни у кого нет, можешь даже вместо
then k:=GetProcessesWin95(Proc) написать
Showmessage('система отстой!');

[mituhin]

Да это первый код который заработал. Мне для XP.

[Air]

http://www.programmersforum.ru/showt...F6%E5%F1%F1%FB
если под ХР