好记性不如烂笔头,转自QQ群。
procedure IEEmulator(VerCode: Integer);
var
RegObj: TRegistry;
begin
RegObj := TRegistry.Create;
try
RegObj.RootKey := HKEY_CURRENT_USER;
RegObj.Access := KEY_ALL_ACCESS;
if not RegObj.OpenKey('\SOFTWARE\Microsoft\Internet ' +
'Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION', False) then exit;
try
RegObj.WriteInteger(ExtractFileName(ParamStr(0)), VerCode
{10000 compatibility with IE10}); // for other versions read msdn
finally
RegObj.CloseKey;
end;
finally
RegObj.Free;
end;
end;