Hi,
Das ganze geht viel einfacher und ohne FindWindow()
Der FindWindow Code könnte auch in zukünftigen IE Versionen nicht merh funktionieren,
wenn sie die Fensterstruktur ändert.
Einfacher geht's über's IShellWindows Interface:
Delphi-Quellcode:
uses
shdocvw_tlb;
procedure TForm1.Button1Click(Sender: TObject);
var
x: Integer;
Sw: IShellWindows;
begin
sw := CoShellWindows.Create;
for x := 0 to SW.Count - 1 do
Listbox1.Items.Add((Sw.Item(x) as IWebbrowser2).LocationUrl);
end;