Получить список открытых окон delphi

[Даниил_глазко]

Здравствуйте.как получить список открытых окон из delphi и вывести его в memo1.Заранее спасибо.

[Lauri]

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;

должно помочь, юзай листбокс

[Даниил_глазко]

Спасибо!!
Помогло.