Neuen Pfad in bestehendem Explorer-Fenster öffnen

[shmia]

Folgendes Code-Fragment lässt alle offenen Browserfenster Delphipraxis.net anzeigen:

Delphi-Quellcode:

uses ...,SHDocVw_TLB;

procedure TForm1.Button2Click(Sender: TObject);
var
//   sw : IShellWindows;
   i : Integer;
   it : OleVariant;
   sw : OleVariant;
begin
   sw := CoShellWindows.Create;
//   sw := CreateOleObject('SHDocVw.ShellWindows');

   for i := 0 to  sw.Count-1 do
   begin
      it := sw.Item(i);
      it.Navigate('http://www.delphipraxis.net');
//      it.Quit;
   end;
end;