Список окон

[Kaban4ig]

Всем привет. Как получить список всех открытых окон ? Запишу допустим я список этих окон в листбокс, как потом узнать у выбранного окна из списка его размеры?

[MaxNik2009]

вот тебе функции в помощь:
GetWindow - для поиска окон
GetWindowText - для получение заголовка окна
GetWindowRect - положение и размер окна.

[Пепел Феникса]

EnumWindows еще можно.

[asmodey1]

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

Всем привет. Как получить список всех открытых окон ? Запишу допустим я список этих окон в листбокс, как потом узнать у выбранного окна из списка его размеры?

Получаем вот так:

procedure TForm1.Button1Click(Sender: TObject);
var wnd: hwnd;
    buff: array [0..127] of char;
begin
ListBox1.clear;
wnd := GetWindow(handle, gw_hwndfirst);
while wnd <> 0 do 
begin // Не показываем:
if (wnd <> Application.Handle) // Собственное окно
and IsWindowVisible(wnd) // Невидимые окна
and (GetWindow(wnd, gw_owner) = 0) // Дочерние окна
and (GetWindowText(wnd, buff, SizeOf(buff)) <> 0) then
begin
GetWindowText(wnd, buff, SizeOf(buff));
ListBox1.Items.Add(StrPas(buff));
end;
wnd := GetWindow(wnd, gw_hwndnext);
end;
ListBox1.ItemIndex := 0;
end;

А размеры тоже можно узнать, зная хэндл окна, а мы этот хэндл знаем
Посмотрите на подсказки и вставьте одну строку в объявлении переменных, и одну в коде...