uses SHDocVw;
{©Drkb v.3(2007): www.drkb.ru}
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;