Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

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

01.01.2007
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