[PhoeniX]

Жизнь, работа и пара лишних окон вынуждают создать что-то вроде Windows Hider'а. Существующие аналоги не обсуждаются, ибо мне надо в своей проге отлавливать кое-какие данные из спрятанных окон (с обработкой этих данных). Отлов и скрытие я уже научился делать, но прикол в том, что окно определяется только по вручную введённым хандлерам (которые я выловил полу-хакерским методом).
На форуме читал, вроде надо копать к EnumWindows или к чему-то этому... Короче, вот что мне от вас нужно:
1. Функция, перечисляющая хендлы открытых окон. (возврат в array of THandle)
2. Функция, возвращающая заголовок окна по его хендлу.
Остальное как-нибудь сооружу сам.
Спасибки за любую помощь обеспечены.

[Nyctos Kasignete]

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

1. Функция, перечисляющая хендлы открытых окон. (возврат в array of THandle)

Сами себе ответили:

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

надо копать к EnumWindows

Массив дескрипторов создайте сами (динамический) и заполняйте его в callback функции EnumWindowsProc.

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

2. Функция, возвращающая заголовок окна по его хендлу.

Сообщение от Windows SDK

int GetWindowText(
HWND hWnd, // handle of window or control with text
LPTSTR lpString, // address of buffer for text
int nMaxCount // maximum number of characters to copy
);

[PhoeniX]

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

[Nyctos Kasignete]

Код:

type
  THandleAndText = record
    _Handle: HWND;  // дескриптор окна
    _Text: string;  // заголовок
  end;

..............

var
  Form1: TForm1;
  HandlesAndTexts: array of THandleAndText; // массив, где всё сохраняется
  function EnumWndProc(hndl: HWND; lprm: LPARAM): BOOL; stdcall;

..............

function EnumWndProc(hndl: HWND; lprm: LPARAM): BOOL; stdcall;
var
  WndTxt: PChar;
  PrevLen: Integer;
begin
  GetMem(WndTxt, 255);
  try
    PrevLen := Length(HandlesAndTexts);
    SetLength(HandlesAndTexts, PrevLen + 1);
    GetWindowText(hndl, WndTxt, 255);
    HandlesAndTexts[PrevLen]._Handle := hndl;
    HandlesAndTexts[PrevLen]._Text := StrPas(WndTxt);
    Result := True;
  finally
    FreeMem(WndTxt, 255);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumWindows(@EnumWndProc, 0);
end;

[0nni]

Еще может пригодиться WindowFromPoint()

[PhoeniX]

Агромное спасибо.