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

Материал из DRKB

Определение адреса во всех открытых 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;


Author: Александр (Rouse_) Багель
Source: Взято из http://forum.sources.ru
ID: 02392