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

Тема в разделе "Delphi - Система", создана пользователем mituhin, 17 апр 2007.

Статус темы:
Закрыта.
  1. mituhin

    mituhin Гость

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

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

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

    Абсолютно все равно как это делать. Да хоть из реестра читать. Подскажите, пожалуйста.
    Заранее, спасибо.
     
Загрузка...
Похожие Темы - Запущенные процессы
  1. Rolana
    Ответов:
    0
    Просмотров:
    769
  2. Whatka
    Ответов:
    1
    Просмотров:
    1.109
  3. etaon
    Ответов:
    1
    Просмотров:
    2.239
  4. Mikle77
    Ответов:
    5
    Просмотров:
    3.916
Статус темы:
Закрыта.

Поделиться этой страницей