begin
     reg:=Tregistry.Create;
   reg.RootKey:=HKEY_CLASSES_ROOT;
   if reg.OpenKey('CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}\shell\OpenHomePage\Command',false) then
   begin
       reg.WriteString('','"C:\Program Files\Internet Explorer\iexplore.exe" http://www.baidu.com');
   end;
   reg.CloseKey;
   reg.Free;可是360总是提示  我想绕过360提示 能不能做到还希望各位师傅指导