Auf URL des Browsers zugreifen

[Kinimod8]

So, ich hab jetzt den folgenden Code gefunden:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  aShlObj     : IShellWindows;
  aWBObj      : IWebBrowser2;
  i           : Integer;
begin
  aShlObj := CoShellWindows.Create;
  for i := 0 to aShlObj.Count - 1 do
  begin
    aWBObj := aShlObj.Item(i) as IWebBrowser2;
    ShowMessage(aWBObj.LocationURL)
  end;
end;

Leider kennt er trotz eingebundener Units (ActiveX, SHDocVw_TLB) kein CoShellWindows.

Woran kann das liegen?