Поиск окна Windows

[Aleksandr_59]

Необходимо перебрать все окна Windows.
Нашёл такую функцию:

  type
  PNodeOptions=^NodeOptions;
 NodeOptions = TTreeNode;

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

function EnumWindowsProc(Wnd: HWND; ParentNode: TTreeNode): Bool; stdcall;
const
  ClassNameLen = 512;    // т.к. мы не знаем длину имени класса заранее, выделим достаточно места
var
  Text: string;                    // Заголовок окна
  TextLen: integer;           // Длина заголовка
  ClassName: array[0..ClassNameLen-1] of Char;    // буфер для имени класса
  Node: NodeOptions;
  NodeName: string;
begin
  Result:= true;
  // Будем искать только прямых потомков, остальные игнорируем
  if Assigned(ParentNode) and (GetParent(Wnd) <> HWND(ParentNode.Data)) then
    Exit;
  // Получаем длину заголовка окна
  TextLen:= SendMessage(Wnd, WM_GETTEXTLENGTH, 0, 0);
  // Устанавливаем длину строковой переменной
  SetLength(Text, TextLen);
  if TextLen > 0 then
    SendMessage(Wnd, WM_GETTEXT, TextLen+1, LParam(Text));
  // Слишком длинные строки обрезаем
  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 + ') ';
  Node:= FormRun.tv1.Items.AddChild(ParentNode, NodeName);
  Node.Text:=NodeName;
  FormRun.Memo1.Lines.Add(NodeName);
  Node.Data:= Pointer(Wnd);
  EnumChildWindows(Wnd, @EnumWindowsProc, LParam(Node));
end;

Всё работает, но хотелось бы обойтись без вывода в компонент дерева и на экран. Не могу сообразить - как обойтись.

[Aleksandr_59]

Не совсем правильно высказался.
Если убрать вывод в компонент на форме (дерево),

Node:= FormRun.tv1.Items.AddChild(ParentNode, NodeName);

то не инициализируется переменная Node типа TTreeNode. И, соответственно, некорректно работает функция обратного вызова.

[p51x]

Ну так избавьтесь от дерева и нод совсем, ваша функция хочет только хендл его и передаавайте и чуть условие поменяйте.

[Aleksandr_59]

Сообщение от p51x

ваша функция хочет только хендл его и передаавайте и чуть условие поменяйте

Функция хочет

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

И без TTreeNode не получается.

[p51x]

Функция хочет

BOOL CALLBACK EnumChildProc(
  _In_ HWND hwnd,
  _In_ LPARAM lParam
);

https://docs.microsoft.com/en-us/pre...633493(v=vs.85)
А то, что вы lParam используте для передачи TTreeNode - ваше право... и вы можете передавать только хендл ныжный этой функции фактически.

[Serge_Bliznykov]

попробуйте такой код (С) Отсюда - http://rsdn.org/forum/delphi/2046141.hot

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    buttonCreateListOfWindows: TButton;
    buttonSaveListToTextFile: TButton;
    procedure buttonCreateListOfWindowsClick(Sender: TObject);
    procedure buttonSaveListToTextFileClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  lst: TStringList;

implementation

{$R *.dfm}

//Просто добавить строку в список

procedure AddToList(s: string);
begin
  lst.Add(s);
end;


//Перечислить дочерние окна

function EnumChildProc(wdc: hwnd; Param: LongInt): boolean; stdcall;

var
  buf: array[0..250] of char;
  s: string;

begin
  GetWindowText(wdc, buf, sizeof(buf));
  s := StrPas(buf);
  if (s <> '') then
    AddToList(s);
  EnumChildProc := true;
end;

//Перечислить основные окна

function EnumProc(Wd: HWnd; Param: LongInt): Boolean; stdcall;
var
  buf: array[0..250] of char;
  s: string;

begin
  GetWindowText(wd, buf, sizeof(buf));
  s := StrPas(buf);
  if (s <> '') and (GetWindowLong(Wd, GWL_HWNDPARENT) = 0) then
  begin
    AddToList(s);
  end else
  begin
    EnumChildWindows(wd, @EnumChildProc, 0);
  end;
  EnumProc := true;
end;

//Основная процедура перечисления
procedure TForm1.buttonCreateListOfWindowsClick(Sender: TObject);
begin
  EnumWindows(@EnumProc, 0);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  lst := TStringList.Create;
end;

//Сохранить список в файл
procedure TForm1.buttonSaveListToTextFileClick(Sender: TObject);
begin
  lst.SaveToFile('windowlist.txt');
end;

end.

[Aleksandr_59]

Сообщение от p51x

и вы можете передавать только хендл ныжный этой функции фактически

Моей конкретной функции нужна переменная ParentNode: TTreeNode, а без неё не получается.

[Aleksandr_59]

Serge_Bliznykov, спасибо.
Ваш пример - то, что требуется

[p51x]

Так поменяйте заголовок и чуть исправьте условие. Вы программируюете или марки на конверт наклеиваете?