ClassName / Caption von Objekt erhalten

[Bummi]

Beispiel mit Notepad und enthaltenem Text

Delphi-Quellcode:

Function GetTextFromHandle(hwd:THandle):String;
const
  MyMaxText = 10000;
begin
  SetLength(Result, MyMaxText);
  SetLength(Result, SendMessage(hwd, WM_GETTEXT, MyMaxText, lParam(PChar(Result))));
end;

function EnumChildProc(hHandle : HWND; lParam : Integer) : Boolean; stdcall;
const
  MyMaxName = 255;
  MyMaxText = 255;
var
  ClassName: string;

begin
  Result := True;
  SetLength(ClassName, MyMaxName);
  SetLength(ClassName, GetClassName(hHandle, PChar(ClassName), MyMaxName));
  Showmessage(ClassName+' - '+GetTextFromHandle(hHandle));
end;
procedure TForm5.Button1Click(Sender: TObject);
var
 hParentHWND: HWND;
begin
 hParentHWND := FindWindow(nil,'Unbenannt - Editor');
 if hParentHWND = 0 then
 begin
  ShowMessage('Fenster nicht gefunden.');
 end else
 EnumChildWindows(hParentHWND, @EnumChildProc,0); 
end;