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);
end;
Запущенные процессы.
Здравствуйте.
У меня есть код, который выводит список процессов, которые в данный момент запущены на компьютере и количество самих процессов.
А мне необходимо кроме названия самих процессов вывести:
- обладателя процесса (system или юзер)
- время процесса
- другая инфа
В общем все, что можно посомтреть при Alt+Ctrl+Del.
Грубо говоря внизу несколько кнопок: вывести процессы только system, только юзера, соритровать по времени и т.д.
Абсолютно все равно как это делать. Да хоть из реестра читать. Подскажите, пожалуйста.
Заранее, спасибо.
У меня есть код, который выводит список процессов, которые в данный момент запущены на компьютере и количество самих процессов.
Код:
А мне необходимо кроме названия самих процессов вывести:
- обладателя процесса (system или юзер)
- время процесса
- другая инфа
В общем все, что можно посомтреть при Alt+Ctrl+Del.
Грубо говоря внизу несколько кнопок: вывести процессы только system, только юзера, соритровать по времени и т.д.
Абсолютно все равно как это делать. Да хоть из реестра читать. Подскажите, пожалуйста.
Заранее, спасибо.
1. Посмотреть http://www.rsdn.ru/article/qna/baseserv/enumproc.xml
Обратить внимание на способ №3
2. Посмотреть OpenProcessToken, GetTokenInformation и LookupAccountSid
Обратить внимание на способ №3
2. Посмотреть OpenProcessToken, GetTokenInformation и LookupAccountSid
Спасибо, Tokolist, буду изучать. Надеюсь, что осилю.