WinSpy > Fenster suchen

[endeffects]

mit dem code aus x-spy klappt es:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  wnd: HWND;
begin
  wnd :=  FindWindow('TForm_MTAloneMain', 'Langenscheidt T1 Version 5.0 ');
  wnd :=  FindWindowEx(wnd, 0, 'TLMDSplitterPanel', nil);
  wnd :=  FindWindowEx(wnd, 0, 'TLMDSplitterPane', nil);
  wnd :=  FindWindowEx(wnd, 0, 'TJvCaptionPanel', nil);
  wnd :=  FindWindowEx(wnd, 0, 'TWPRichText', nil);

  if wnd <> 0 then
  begin
     showmessage('found');
  end;
end;