WM_GETTEXT + Unicode

[toms]

Hi,

Wie muss diese Funktion aussehen, wenn sie Unicode Strings zurückgeben sollte?

..SendMessage durch SendMessageW ersetzen und dann?

Delphi-Quellcode:

function GetWindowText(wnd: HWND): string;
var
  TextLength: Integer;
  Text: PChar;
begin
  Result := '';
  if wnd = 0 then
    Exit;
  TextLength := SendMessage(wnd, WM_GETTEXTLENGTH, 0, 0);
  if TextLength <> 0 then
  begin
    GetMem(Text, TextLength + 1);
    SendMessage(wnd, WM_GETTEXT, TextLength + 1, Integer(Text));
    Result := Text;
    FreeMem(Text);
  end;
end;