Определение адреса во всех открытых Explorer

uses SHDocVw;

 
procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  Explorer: IShellWindows;
begin
  Explorer := CoShellWindows.Create;
  for I := 0 to Explorer.Count - 1 do
    Listbox1.Items.Add((Explorer.Item(I) as IWebbrowser2).LocationUrl);
end;

Автор: Александр (Rouse_) Багель

Взято из https://forum.sources.ru