Функция NtQuerySystemInformation

[student_63]

Здравствуйте, нашел в поиске по форуму как получить список процессов используя NtQuerySystemInformation

type
 
  TfrmProcess = class(TForm)
    tvProcess: TTreeView;
    procedure FormCreate(Sender: TObject);
  private
    procedure AddProcess(const ID, ParentID: DWORD;
      const Description: String);
    procedure GetProcTree;
  end;
 
  PSYSTEM_THREADS = ^SYSTEM_THREADS;
  SYSTEM_THREADS  = packed record
    KernelTime: LARGE_INTEGER;
    UserTime: LARGE_INTEGER;
    CreateTime: LARGE_INTEGER;
    WaitTime: ULONG;
    StartAddress: Pointer;
    UniqueProcess: DWORD;
    UniqueThread: DWORD;
    Priority: Integer;
    BasePriority: Integer;
    ContextSwitchCount: ULONG;
    State: Longint;
    WaitReason: Longint;
  end;
 
  PSYSTEM_PROCESS_INFORMATION = ^SYSTEM_PROCESS_INFORMATION;
  SYSTEM_PROCESS_INFORMATION = packed record
    NextOffset: ULONG;
    ThreadCount: ULONG;
    Reserved1: array [0..5] of ULONG; // Что такое, пока не понятно...
    CreateTime: FILETIME;
    UserTime: FILETIME;
    KernelTime: FILETIME;
    ModuleNameLength: WORD;
    ModuleNameMaxLength: WORD;
    ModuleName: PWideChar;
    BasePriority: ULONG;
    ProcessID: ULONG;
    InheritedFromUniqueProcessID: ULONG;
    HandleCount: ULONG;
    Reserved2 : array[0..1] of ULONG; // Что такое, пока не понятно...
    PeakVirtualSize : ULONG;
    VirtualSize : ULONG;
    PageFaultCount : ULONG;
    PeakWorkingSetSize : ULONG;
    WorkingSetSize : ULONG;
    QuotaPeakPagedPoolUsage : ULONG;
    QuotaPagedPoolUsage : ULONG;
    QuotaPeakNonPagedPoolUsage : ULONG;
    QuotaNonPagedPoolUsage : ULONG;
    PageFileUsage : ULONG;
    PeakPageFileUsage : ULONG;
    PrivatePageCount : ULONG;
    ReadOperationCount : LARGE_INTEGER;
    WriteOperationCount : LARGE_INTEGER;
    OtherOperationCount : LARGE_INTEGER;
    ReadTransferCount : LARGE_INTEGER;
    WriteTransferCount : LARGE_INTEGER;
    OtherTransferCount : LARGE_INTEGER;
    ThreadInfo: array [0..0] of SYSTEM_THREADS;
  end;
 
  function NtQuerySystemInformation(
    SystemInformationClass: DWORD;   // тип требуемой информации
    SystemInformation : Pointer;     // указатель на буфер, в который вернется информация
    SystemInformationLength : DWORD; // размер буфера в байтах
    var ReturnLength: DWORD          // сколько байт было возвращено или требуется
    ): DWORD; stdcall; external 'ntdll.dll';
 
const
  SystemProcessesAndThreadsInformation = 5;
  STATUS_INFO_LENGTH_MISMATCH = $C0000004;
 
var
  frmProcess: TfrmProcess;
 
implementation
 
{$R *.dfm}
 
{ TForm2 }
 
procedure TfrmProcess.AddProcess(const ID, ParentID: DWORD;
  const Description: String);
var
  I: Integer;
  Node: TTreeNode;
begin
  Node := nil;
  for I := 0 to tvProcess.Items.Count - 1 do
    if DWORD(tvProcess.Items.Item[i].Data) = ParentID then
    begin
      Node := tvProcess.Items.Item[i];
      Break;
    end;
  Node := tvProcess.Items.AddChildFirst(Node, Description);
  Node.Data := Pointer(ID);
end;
 
procedure TfrmProcess.FormCreate(Sender: TObject);
begin
  GetProcTree;
end;
procedure TfrmProcess.GetProcTree;
var
  SystemInformation, SystemInformationIterator: PSYSTEM_PROCESS_INFORMATION;
  ReturnLength: DWORD;
  ModuleName: String;
begin
  ReturnLength := 0;
  if NtQuerySystemInformation(
    SystemProcessesAndThreadsInformation,
    nil, 0, ReturnLength) <> STATUS_INFO_LENGTH_MISMATCH then Exit;
  if ReturnLength > 0 then
  begin
    GetMem(SystemInformation, ReturnLength);
    try
      if NtQuerySystemInformation(SystemProcessesAndThreadsInformation,
        SystemInformation, ReturnLength, ReturnLength) = 0 then
      begin
        SystemInformationIterator := SystemInformation;
        repeat
          if SystemInformationIterator^.ModuleName = nil then
            ModuleName := 'System Idle Process'
          else
            ModuleName := SystemInformationIterator^.ModuleName;
          AddProcess(SystemInformationIterator^.ProcessID,
            SystemInformationIterator^.InheritedFromUniqueProcessID,
            ModuleName);
          SystemInformationIterator :=
            Pointer(DWORD(SystemInformationIterator) +
            SystemInformationIterator^.NextOffset);
        until SystemInformationIterator^.NextOffset = 0;
      end;
    finally
      FreeMem(SystemInformation);
    end;
  end;
end;
end.

Вот только я не пойму, как мне в виде TreeView на моей форме вывести этот список и чтобы он обновлялся автоматически. И еще может кто знает как это все работает, пожалуйста напишите или киньте ссылки. Заранее благодарен

[mihali4]

как мне в виде TreeView на моей форме вывести этот список

А вот это что:
tvProcess: TTreeView;
Третья строка в коде...

и чтобы он обновлялся автоматически

Поставьте таймер и будет вам вечное автоматическое обновление.

[student_63]

Что то не могу я присвоить своему дереву дерево другого класса, напишите, плизз как

[student_63]

посмотрите, пожалуйста, что я сделал не так, завтра хоть чтото по курсачу показывать надо, а тут жесть такая

[mihali4]

Загляните в инспектор объектов и попробуйте найти обработчик события OnCreate для формы.
Нету? Вот и я не нашел...
А в тексте модуля обработчик для него прописан...

[student_63]

Спасибо большое. У меня всегда из-за какой-нить глупости тупики получаются. Все заработало!!!

А как здесь еще автоматическое обновление сделать, чтото не догоню никак?

[SerZ06]

Все привет.
Подниму тему.
с процессами все понятно. делаю службу в которой монятся процессы. в частности (firefox.exe/iexplorer.exe/...)то-есть процессы браузеров.
теперь вопрос - как по ID процесса получить заголовки окон открытых в сессии пользователя???

[SerZ06]

Всем спасибо - разобрался, точнее - запустил из сервиса приложение в сессии пользователя и получил то что нужно )