Nur sichtbare Fenster auflisten

[Namenloser]

Thx, habs hingekriegt.

Delphi-Quellcode:

function EnumWinProc(Wnd: THandle; LParam: LongInt): Boolean; stdcall;
var
 WinCaption : string;
 Len: integer;
begin
 Result := True;
 Len := GetWindowTextLength(Wnd);
 SetLength(WinCaption, Len);
 GetWindowText(Wnd, PChar(WinCaption), Len+1);
 if (Trim(WinCaption) <> '') and (iswindowvisible(wnd)) then
   Form3.Listbox1.Items.Add(Format('%.6x : %s', [Wnd, WinCaption]));
end;