Registriert seit: 28. Aug 2002
Ort: Oldenburg
3.513 Beiträge
Turbo Delphi für .NET
|
Re: titel eines fenster erhalten
27. Jul 2003, 16:43
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;
Alexander
|
|
Zitat
|