TWebBrowser userAgent auslesen

[FriFra]

Wie kann ich den userAgent eines TWebBrowser auslesen?

Leider lieferte das folgende "Experiment" nur einen Fehler:

Delphi-Quellcode:

ShowMessage(WebBrowser1.OleObject.navigator.userAgent);

Das OleObjekt kennt wohl "navigator" nicht :?

[marabu]

Hi.

Delphi-Quellcode:

uses
  MSHTML;

procedure TWebForm.btnAgentClick(Sender: TObject);
var
  win: IHTMLWindow2;
  doc: IHTMLDocument2;
begin
  // Wenn noch kein Document existiert, dann:
  // WebBrowser.Navigate('about:blank'); 
  doc := WebBrowser.Document as IHTMLDocument2;
  win := doc.parentWindow;
  ShowMessage(win.navigator.userAgent);
end;

Grüße vom marabu

[FriFra]

Danke, so funktioniert es ;) :thumb: