Fenstertitel mit Sonderzeichen auslesen [Beantwortet]

[Luckie]

Du musst auch die Unicode Variante nehmen: SendMessageW:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  WndCaption: PWideChar;
  len: Integer;
begin
  len := SendMessage(Handle, WM_GETTEXTLENGTH, 0, 0);
  if len > 0 then
  begin
    len := len * 2;
    WndCaption := GetMemory(len + 1);
    if Assigned(WndCaption) then
    begin
      SendMessageW(Handle, WM_GETTEXT, len + 1, Integer(WndCaption));
      ShowMessage(String(WndCaption));
      FreeMemory(WndCaption);
    end;
  end;
end;