Fenstertitel mit Sonderzeichen auslesen [Beantwortet]

**mleyen**

Guten Morgen,

ich habe hier ein kleines Problem, auf das ich momentan keine Lösung finde.
Und zwar möchte ich den Titel eines Fensters mithilfe eines Handles auslesen.
Das richtige Handle und den Titel bekomm ich auch schon.
Nur das Problem besteht jetzt darin, dass der Titel komische Sonderzeichen enthalten kann, die ich brauche.
(Dazu ein Beispiel im Anhang)
Wenn ich diese Sonderzeichen auslese wird bei einigen ein "?" angezeigt. (zB bei "Ѝ")
Bei sowas wie ¿ funktioniert es jedoch.

Mein momentaner Code zum auslesen des Fenstertitels: (Hier aus der DP, ich mein von Luckie)

zusammenfalten · markieren

Delphi-Quellcode:

			function TForm1.GetText(Wnd: HWND): WideString;

var

  textlength: Integer;

  Text: PChar;

begin

  textlength := SendMessage(Wnd, WM_GETTEXTLENGTH, 0, 0);

  if textlength = 0 then Result := ''

  else

  begin

    GetMem(Text, textlength + 1);

    SendMessage(Wnd, WM_GETTEXT, textlength + 1, Integer(Text));

    Result := Text; // Hier Steht in Text schon der falsche Titel mit den Fragezeichen

    FreeMem(Text);

  end;

end;

Beispiel: (Anhang)

markieren

Code:

			Handle:                                    "986848"

Fenstertitel:                              "¿oO&#1037;&#1062;&#1049;&#942;&#956;&#955;&#947;.txt - Editor"

Mit meinem Code ausgelesener Fenstertitel: "¿oO????&#956;??.txt - Editor"

So, wie bekomm ich jetzt den richtigen Titel raus?
Hab auch schon WinSpy getestet und der findet das leider auch so.

Hoffe hier hat jemand eine Lösung.

Danke.

Mfg,
spawn

Edit:
Super, danke!
So einfach war´s.

Frage innerhalb von ~viertel Stunde geklärt.

**Bernhard Geyer**

Du brauchst SendMessageW nicht die Ansi-Version SendMessage

**Luckie**

Du musst auch die Unicode Variante nehmen: SendMessageW:

zusammenfalten · markieren

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;

Fenstertitel mit Sonderzeichen auslesen [Beantwortet]

Fenstertitel mit Sonderzeichen auslesen [Beantwortet]

Re: Fenstertitel mit Sonderzeichen auslesen

Re: Fenstertitel mit Sonderzeichen auslesen

Forumregeln

Bernhard Geyer Registriert seit: 13. Aug 2002 17.171 Beiträge Delphi 10.4 Sydney	#2 Re: Fenstertitel mit Sonderzeichen auslesen 21. Aug 2008, 08:47 Du brauchst SendMessageW nicht die Ansi-Version SendMessage Windows Vista - Eine neue Erfahrung in Fehlern.
	Zitat