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

procedure TFomWindows.BtnBuildClick(Sender: TObject);

begin

Screen.Cursor := crHourGlass;

try

TreeWindows.Items.Clear;

EnumWindows(@EnumWindowsProc, 0);

finally

Screen.Cursor := crDefault;

end;

end;

Рис. 1.8.Окно программы EnumWnd

Все, что делает этот обработчик, — это очищает компонент TreeWindowsи вызывает EnumWindows, передавая ей функцию обратного вызова EnumWindowsProc, в которой и выполняется основная работа. Сразу отметим, что в этом примере мы будем использовать одну и ту же функцию обратного вызова как для EnumWindows, так и для EnumWindowsProc. Сама функция обратного вызова выглядит следующим образом (листинг 1.22).

// Это функция обратного вызова, которая будет

// использоваться при вызове EnumWindows и EnumChildWindows.

// Тип второго параметра не совпадает с типом, который

// указан MSDN. Однако TTreeNode, как и любой класс,

// является указателем, поэтому может использоваться везде,

// где требуется нетипизированный указатель - на двоичном

// уровне между ними нет разницы. Указатель на функцию

// обратного вызова в EnumWindows и EnumChildWindows в

// модуле Windows.dcu объявлен как нетипизированный

// указатель, поэтому компилятор не контролирует

// соответствие реального прототипа заявленному.

function EnumWindowsProc(Wnd: HWND; ParentNode: TTreeNode): Bool; stdcall;

// Система не предусматривает возможности узнать, какова

// длина имени класса, поэтому при получении этого имени

// приходится выделять буфер большой длины в надежде, что

// имя класса не окажется еще длиннее. В данном примере

// размер этого буфера определяется константой ClassNameLen.

// Крайне маловероятно, что имя класса скажется длиннее,

// чем 511 символов (512-й зарезервирован для завершающего

// нулевого символа).

const

ClassNameLen = 512;

var

// Здесь будет храниться заголовок окна

Text: string;

TextLen: Integer;

// Это - буфер для имени класса

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

Node: TTreeNode;

NodeName: string;

begin

Result := True;

// Функция EnumChildWindows перечисляет не только

// непосредственно дочерние окна данного окна, но и

// дочерние окна его дочерних окон и т.п. Но при

// построении дерева на каждом шаге нам нужны только

// прямые потомки, поэтому все окна, не являющиеся прямыми

// потомками, мы здесь игнорируем.

if Assigned(ParentNode) and (GetParent(Wnd) <> HWND(ParentNode.Data)) then Exit;

// Получаем длину заголовка окна. Вместо функций

// GetWindowText и GetWindowTextLength мы здесь

// используем сообщения WM_GETTEXT и WM_GETTEXTLENGTH,

// потому что функции, в отличие от сообщений, не

// умеют работать с элементами управления,

// принадлежащими окнам чужих процессов.

TextLen := SendMessage(Wnd, WM_GETTEXTLENGTH, 0, 0);

// Устанавливаем длину строковой переменной, которая

// будет служить буфером для заголовка окна.

// Использование SetLength гарантирует, что будет

// выделена специальная область памяти, на которую не

// будет других ссылок.

SetLength(Text, TextLen);

// Если заголовок окна - пустая строка, TextLen будет

// иметь значение 0, и указатель Text при выполнении

// Set Length получит значение nil. Но при обработке

// сообщения WM_GETTEXT оконная процедура в любом случае

// попытается записать строку по переданному адресу,

// даже если заголовок окна пустой - в этом случае в

// переданный буфер будет записан один символ -

// завершающий ноль. Но если будет передан nil, то

// попытка записать что-то в такой буфер приведет к

// Access violation, поэтому отправлять окну WM_GETTEXT

// можно только в том случае, если TextLen > 0.

if TextLen > 0 then

SendMessage(Wnd, WM_GETTEXT, TextLen + 1, LParam (Text));

// Заголовок окна может быть очень длинным - например, в

// Memo заголовком считается весь текст, который там

// есть. Практика показывает, что существуют проблемы

// при добавлении в TTreeView узлов с очень длинным