网上在线下载插件：

“ActiveX 控件和插件”该如何设置? 

如果下载插件时下载不了，这样设置，打开IE选工具/Internet 选项/安全/自定义级别/设置中的ActiveX控件自动提示“禁用”。 

对标记为可安全执行脚本ActiveX控件执行脚本“启用” 

对没有标记为安全的ActiveX初始化和脚本运行“启用”（下载插件后在改为禁用） 

下载未签名的ActiveX控件“启用”（下载插件后在改为禁用） 

下载已签名的ActiveX控件“提示”

运行ActiveX控件和插件“启用”

设置后按确定应用即可。

原地址：http://www.syc.com.cn/dvbbs/dispbbs.asp?boardid=10&Id=97
      很多同事都知道我们产品在安装客户端时会自动将当前站点设置为可信站点，以及将IE浏览器内可信站点自定义设置中的ActiveX控件运行方式都改为“启用”，但具体是如何实现的可能都不知道，这里我给大家解释下，其实原理很简单。
     1. 必须通过setup.htm页面来安装客户端，而且必须在线安装，尽量避免下载软件下载安装。在setup.htm页面中有段代码，当用户访问这个页面时，会自动取得服务器的ip并将ip保存到客户机的“剪贴板”中，如果大家想验证的话，可以试试看访问这个页面，然后直接在写字板中按ctrl＋V看看，是不是服务器的ip。
      2.接下来，在安装过程中系统会copy一个MySetTrustZone.exe的文件到本地，并在安装完成后运行，其作用是，取得剪贴板中的信息，并将该信息插入或更新到注册表中的指定位置，从而实现自动更改可信站点以及ActiveX设置更改。
      注册表地址如下：
      可信站点:
      HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Internet Settings/ZoneMap/Ranges/Range99
      这里需说明的是，系统添加的可信站点在ie的设置内是看不见的，只能通过访问该站点，查看右下角的区域来验证是否成功，如果用户自己手动通过ie添加过可信站点，则可以在该键值同级目录内发现 Range1，Range2，Range3等目录，其对应的就是手动设置的可信站点，为了不把用户自己设置的冲掉，故系统会取Range99这个名字，从而造成在ie内的可信站点内看不见。
      ActiveX设置：
      HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Internet Settings/Zones/2
      另外考虑到部分单位只能下载后copy到客户端安装，所以允许写死服务器ip地址，在客户端内，并且同样也自动设置，这个时候就要用到 webserver.ini文件，必须在打包前将客户web服务器地址写在里面，同时安装包脚本也需要稍微更改，在运行 MySetTrustZone.exe时需要增加一个local参数，重新打包即可。

一个或多个 ActiveX 控件无法显示,原因可能是下列其中之一: 


1) 当前安全设置禁止运行此页面中的 ActiveX 控件,或 

2) 你已阻止了其中一个控件的发布者
 共0条评论...
 
 
1.方法：打开ＩＥ浏览器，工具-> Internet选项->安全->区域选择”Internet”->自定义级别， “对标记为可安全执行脚本的ActiveX控件执行脚本”设为“启用”，“下载已签名的ActiveX控件”设为“提示”，“运行ActiveX控件和插件”设为“启用”



2.工具.internet选项.隐私.高级.二只方块打勾. 

在Delphi中选Project Import Type Library命令，在对话框中选Import Microsoft Shell Controls And Automation类型库，点Install后，在Delphi的ActiveX控件板上就多了TShellFolderItem，TShellLinkObject，TShellFolderView，TShell，TSearchCommand等几个组件
const
   discVerb = '禁用(&B)';
   connVerb = '启用(&A)';
function TForm1.DisableEthernet(const EthName,State: String): Boolean;
var
  cpFolder: Folder;
  nwFolder: Folder;
  nVerbs: FolderItemVerbs;
  i,j,k: integer;
  aItem: TListItem;
begin
  result := false;
  cpFolder := Form1.shell1.NameSpace(3);
  if cpFolder <> nil then
  begin
    for i := 0 to cpFolder.items.Count-1 do
    begin
      if cpFolder.Items.Item(i).Name = '网络和拨号连接' then
      begin
        nwFolder := cpFolder.items.item(i).GetFolder as Folder;
        if nwFolder <> nil then
        begin
          for j :=0 to nwFolder.items.Count-1 do
          begin
            if nwFolder.Items.Item(j).Name = EthName then
            begin
              nVerbs := nwFolder.Items.Item(j).Verbs;
              for k := 0 to  nVerbs.Count-1 do
             begin
                if nVerbs.Item(k).Name = State then
                begin
                  nVerbs.Item(k).DoIt;
                  aItem := Form1.lvLog.Items.Add;
                  aItem.Caption := FormatDateTime('yyyy-mm-dd hh:mm:ss',now);
                  aItem.SubItems.Add(EthName);
                  aItem.SubItems.Add(State);
                  Result := True;
                end;
              end;
            end;
          end;
        end;
      end;
    end;
    if nwFolder = nil then
       showmessage('Network and Dial-up Connections not found');
  end
  else
    showmessage('control panel not found');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DisableEthernet('本地连接',discVerb);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  DisableEthernet('本地连接',connVerb);
end;