titel eines fenster erhalten

[Luckie]

Delphi-Quellcode:

function GetText(Wnd: HWND): string; 
var 
  textlength: Integer; 
  Text: PChar; 
begin 
  textlength := SendMessage(Wnd, WM_GETTEXTLENGTH, 0, 0); 
  if textlength = 0 then Result := '' 
  else 
  begin 
    GetMem(Text, textlength + 1); 
    try
      SendMessage(Wnd, WM_GETTEXT, textlength + 1, Integer(Text)); 
      Result := Text; 
    finally
      FreeMem(Text); 
    end;
  end; 
end;