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

Discussion in 'WASM.BEGINNERS' started by mituhin, Apr 17, 2007.

  1. mituhin

    mituhin New Member

    Blog Posts:
    0
    Joined:
    Dec 5, 2006
    Messages:
    6
    Здравствуйте.

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

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

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

    G13 New Member

    Blog Posts:
    0
    Joined:
    Mar 24, 2006
    Messages:
    499
    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 по теме. Правда там на сях всё, но расписано вполне толково.
     
  3. mituhin

    mituhin New Member

    Blog Posts:
    0
    Joined:
    Dec 5, 2006
    Messages:
    6
    Спасибо G13, надеюсь, что осилю.