User Agent ft. UrlMkSetSessionOption

[Bladefire]

Hallo,

ich bin noch immer auf der suche wie ich den UserAgent für den TWebBrowser ändern kann.

Diese Methode scheint bis jetzt die vielversprechendste zu sein:

Code:

procedure SetUserAgent(UserAgent: String);
begin
  UrlMkSetSessionOption(URLMON_OPTION_USERAGENT, Pchar(UserAgent), length(UserAgent), 0);
end;

Jedoch gibt es ein Problem. Es wird laut verschiedenen Webseiten die den User Agent string auslesen und anzeigen, nur der erste buchstabe (in diesem Fall "M") als User Agent
wargenommen.

UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:29.0) Gecko/20120101 Firefox/29.0'

Was soll ich machen damit ich den user agent entlich ändern kann?

_____
Edit: Embarcadero® RAD Studio XE6 Version 20.0.16277.1276