Titelleiste eines fremden fensters auslesen

[Van HelF]

habs hinbekommen:

Delphi-Quellcode:

function EnumWinProc(Wnd: THandle; LParam: LongInt): Boolean; stdcall;
var
 WinCaption : string;
 Len: integer;
   Buf : string;
begin
 Result := True;
 Len := GetWindowTextLength(Wnd);
 SetLength(WinCaption, Len);
 GetWindowText(Wnd, PChar(WinCaption), Len+1);
 if Trim(WinCaption) <> '' then
 begin
   SetLength(Buf,SendMessage(wnd,WM_GETTEXTLENGTH,0,0)+1);
   SendMessage(wnd,WM_GETTEXT,length(Buf),Integer(@buf[1]));
   form1.listbox1.items.add(buf);
 end;
end;