Auf URL des Browsers zugreifen

[Kinimod8]

Delphi-Quellcode:

uses ddeman;
function GetActiveBrowsersURL(Service: string): String;
var
  ClDDE: TDDEClientConv;
  zwi:PChar;
begin
  Result:= '';
  ClDDE:= TDDEClientConv.Create(nil);
  with ClDDE do
  begin
    SetLink(Service,'WWW_GetWindowInfo');
    zwi:= RequestData('0xFFFFFFFF');
    Result:= StrPas(zwi);
    StrDispose(zwi);
    CloseLink;
  end;
  ClDDE.Free;
end;

Dieser Code funktioniert zwar, aber er kommt durcheinander, wenn mehrere Fenster geöffnet sind. Wie kann man den Code richtig stellen, oder muss man dann einen anderen Code verwenden?

[Kinimod8]

Kann den keiner helfen?

[Bernhard Geyer]

Vergiß DDE und greif über das Automatisierungsinterface des IE zu. DDE ist schon lange ein Auslaufmodell und wunderlich das es überhaupt noch funktioniert.

Beispiel z.B im Entwickler-Forum zu finden.

[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?

[Bernhard Geyer]

Wieso SHDocVw_TLB.pas? Mit Delphi wird doch SHDocVw.pas mitgeliefert (ist die IE-Wrapper-Komponente drin) und dort gibt es CoShellWindows

[Kinimod8]

Zitat von Bernhard Geyer:

Wieso SHDocVw_TLB.pas? Mit Delphi wird doch SHDocVw.pas mitgeliefert (ist die IE-Wrapper-Komponente drin) und dort gibt es CoShellWindows

Bei mir funzt das nicht.