Mit Handle Text Eigenschaft benutzen

[shmia]

Delphi-Quellcode:

function GetWinText{final Version3}(Wnd: HWND): string;
var
  TextLn: integer;
begin
  Result := '';
  TextLn := SendMessage(Wnd, WM_GETTEXTLENGTH, 0, 0);
  if TextLn = 0 then Exit;

  SetLength(Result, TextLn+1);
  SendMessage(Wnd, WM_GETTEXT, TextLn + 1, Integer(Result));
end;