Bei UserAgent kannst du GetIEUserAgent einsetzen:
Delphi-Quellcode:
function GetIEUserAgent: string;
var
reg: TRegistry;
begin
Result := '';
Reg := TRegistry.Create;
try
with Reg do
begin
RootKey := HKEY_CURRENT_USER;
try
if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings\User Agent\Post Platform', True) then
Result := ReadString(UserAgent);
finally
CloseKey;
end;
end;
finally
Free;
end;
end;