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

  • Автор темы mituhin
  • Дата начала
Статус
Закрыто для дальнейших ответов.
M

mituhin

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

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

Код:
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, только юзера, соритровать по времени и т.д.

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