TWebBrowser userAgent auslesen

[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