titel eines fenster erhalten

[Illuminator-23-5]

wie kann ich mit hilfe einer hwnd-variable den titel eines fensters erhalten?

[CalganX]

SendMessage und WM_GETTEXT sollten dir helfen (PSDK und/oder Online-Hilfe).

Chris

[Alexander]

und hier mal ein wenig Source:

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);
    SendMessage(Wnd, WM_GETTEXT, textlength + 1, Integer(Text));
    Result := Text;
    FreeMem(Text);
  end;
end;

[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;

[Gast]

Und zum dritten:

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); 
// Änderung ->
    if Assigned(Text) then
    try 
      SendMessage(Wnd, WM_GETTEXT, textlength + 1, Integer(Text)); 
//      Result := Text; 
// Änderung ->
    SetString(Result, Text, lstrlen(Text));
    finally 
      FreeMem(Text); 
    end; 
  end; 
end;

Luckies Variante geht natürlich u.U. und das SetString ist eher kosmetischer Natur. Natürlich geht auch eine normale Zuweisung, solange die Orginal-Systemunits eingebunden sind (für die String-Compilermagic ;))

[Illuminator-23-5]

ok, die sources funzen, thx4help

[negaH]

Delphi-Quellcode:

function GetCaption(Wnd: HWnd): String;
begin
  SetLength(Result, GetWindowTextLength(Wnd));
  SetLength(Result, GetWindowText(Wnd, PChar(Result), Length(Result)));
end;

Gruß Hagen

[Luckie]

Ich darf zitieren:

Zitat:

GetWindowText cannot retrieve the text of a control in another application.

:wink: