TWebbrowser或者TEmbeddedWB 能修改 useragent 吗
TWebbrowser或者TEmbeddedWB 能修改 useragent 吗?怎么设置?
[解决办法]
TEmbeddedWB 里把这个注释掉了,你打开试试
procedure SetUserAgent(var UserAgent: string);
var
reg: TRegistry;
begin
Reg := TRegistry.Create;
if UserAgent <> EWB_INFO then
UserAgent := UserAgent + EWB_INFO;
with Reg do
begin
RootKey := HKEY_CURRENT_USER;
try
if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings\User Agent\Post Platform', True) then
WriteString(UserAgent, '');
finally
CloseKey;
Free;
end;
end;
end;