А. Григорьев - О чём не пишут в книгах по Delphi

Код для получения списка процессов показан в листинге 1.42.

procedure TProcessesInfoForm.FillProcessList;

var

SnapProc: THandle;

ProcEntry: TProcessEntry32;

Item: TListItem;

begin

ClearAll;

// Создаем снимок, в котором сохраняем все процессы, а

// затем в цикле получаем информацию о каждом из этих

// процессов, перенося ее в ListProcesses

SnapProc := CreateToolhelp32Snapshot(TH32CS_SNAPROCESSES, 0);

if SnapProc <> INVALID_HANDLE_VALUE then

try

ProcEntry.dwSize := SizeOf(TProcessEntry32);

if Process32First(SnapProc, ProcEntry) then repeat

Item := ListProcesses.Items.Add;

Item.Caption := ProcEntry.szExeFile;

Item.SubItems.Add(IntToStr(ProcEntry.tb32ProcessID);

Item.SubItems.Add(IntToStr(ProcEntry.th32ParentProcessID));

Item.SubItems.Add(IntToStr(ProcEntry.cntThreads));

// Сохраняем PID в поле Data соответствующего

// элемента списка. Вообще, поле Data имеет тип

// Pointer, а PID - это целое число, но т.к. оба этих

// типа 32-битные, их можно приводить друг к другу

Item.Data := Pointer(ProcEntry.th32ProcessID);

until not Process32Next(SnapProc, ProcEntry);

finally

CloseHandle(SnapProc);

end

else

begin

ListProcesses.Visible := False;

LabelProcessError.Caption :=

'Невозможно получить список процессов:'#13#10'Ошибка №' +

IntToStr(GetLastError);

end;

end;

Для получения списка модулей данного процесса также используется снимок. Функция CreateToolhelp32Snapshotвызывается с параметром TH32CS_SNAPMODULE, в качестве второго параметра ей передается PID процесса, модули которого требуется получить. Навигация по снимку модулей осуществляется с помощью функций Module32Firstи Module32Next. В остальном код получения списка модулей совпадает с кодом, приведенным в листинге 1.42.

Список окон, созданных процессом, формируется с помощью функции EnumWindows, которая позволяет получить список всех окон верхнего уровня (т.е. расположенных непосредственно на рабочем столе). Для каждого из этих окон с помощью функции GetWindowThreadProcessIDопределяется идентификатор процесса. Окна, не принадлежащие выбранному процессу, отсеиваются.

Для каждого из окон верхнего уровня, принадлежащих процессу, с помощью функции EnumChildWindowsищутся дочерние окна, а для каждого из найденных таким образом дочерних окон — его дочерние окна. Здесь следует учесть, что EnumChildWindowsвозвращает не только дочерние окна заданного окна, но и все окна, которыми владеют эти дочерние окна. Чтобы в дереве окон не было дублирования, при построении очередного уровня дерева окон отбрасываются все окна, непосредственным родителем которых не является данное окно. Код, выполняющий построение дерева, приведен в листинге 1.43.

function EnumWindowsProc(Wnd: HWnd; ParentNode: TTreeNode): BOOL; stdcall;

var

Text: string, TextLen: Integer;

ClassName: array [0..ClassNameLen - 1] of Char;

Node: TTreeNode; NodeName: string;

begin

Result := True;

// функция EnumChildWindows возвращает список

// не только прямых потомков окна, но и потомков его

// потомков, поэтому необходимо отсеять все те окна,

// которые не являются прямыми потомками данного

if Assigned(ParentNode) and (THandle(ParentNode.Data) <> GetAncestor(Wnd, GA_PARENT)) then Exit;

TextLen := GetWindowTextLength(Wnd);

SetLength(Text, TextLen);

if TextLen > 0 then GetWindowText(Wnd, PChar(Text), TextLen + 1);

if TextLen > 100 then Text := Copy(Text, 1, 100) + '...';

GetClassName(Wnd, ClassName, ClassNameLen);

ClassName[ClassNameLen - 1] := #0;

if Text = '' then NodeName := 'Без названия (' + ClassName + ')';

else NodeName := Text + ' (' + ClassName + ')';

NodeName := '$' + IntToHex(Wnd, 8) + ' ' + NodeName;

Node := ProcessesInfoForm.TreeWindows.Items.AddChild(ParentNode, NodeName);

Node.Data := Pointer(Wnd);

EnumChildWindows(Wnd, @EnumWindowsProc, LParam(Node));

end;

function EnumTopWindowsProc(Wnd: HWnd; PIDNeeded: Cardinal): BOOL; stdcall;

var

Text: string;

TextLen: Integer;

ClassName: array[0..ClassNameLen - 1] of Chars;

Node: TTreeNode;

NodeName: string;

WndPID: Cardinal;

begin

Result := True;

// Здесь отсеиваются окна, которые не принадлежат

// выбранному процессу

GetWindowThreadProcessID(Wnd, @WndPID);

if WndPID = PIDNeeded then

begin

TextLen := GetWindowTextLength(Wnd);

SetLength(Text, TextLen);

if TextLen > 0 then GetWindowText(Wnd, PChar(Text), TextLen + 1);

if TextLen > 100 then Text := Copy(Text, 1, 100) + '...';

GetClassName(Wnd, ClassName, ClassNameLen);

ClassName[ClassNameLen - 1] := #0;

if Text = '' then NodeName := 'Без названия (' + ClassName + ')'