盒子论坛 v2.1

用api实现的软件AP.不过共享网络功能还不完善.需要手动重新设置才能上网.不知道哪里有问题.如果那位朋友弄好了,麻烦上传一下谢谢.

随顺便提个问题段代码.为什么无法启动windows7的ICS上网共享服务?
NetSharingConfiguration := nil;
    pEnum := (NetSharingManager.EnumEveryConnection._NewEnum as IEnumVariant);
    while (pEnum.Next(1, vNetCon, dwRetrieved) = S_OK) do
    begin
      (IUnknown(vNetCon) as INetConnection).GetProperties(pUser);
      NetCon := (IUnknown(vNetCon) as INetConnection);
      if pUser.pszwName = sComboBox1.Text then
      begin
        NetSharingConfiguration :=
          NetSharingManager.INetSharingConfigurationForINetConnection[NetCon];
        NetSharingConfiguration.DisableSharing;
        NetSharingConfiguration.EnableSharing(ICSSHARINGTYPE_PUBLIC);
        // NetSharingConfiguration._Release;
      end
      else
      begin
        if pUser.pszwDeviceName = 'Microsoft Hosted Network Virtual Adapter'
        then
        begin
          WlanHostedNetSharingConfiguration :=
          NetSharingManager.INetSharingConfigurationForINetConnection[NetCon];
          WlanHostedNetSharingConfiguration.DisableSharing;
          WlanHostedNetSharingConfiguration.EnableSharing
          (ICSSHARINGTYPE_PRIVATE);
          WlanHostedNetSharingConfiguration._Release;
          NetSharingConfiguration._Release;
        end;
      end;
    end; // }

此帖子包含附件:xuchuantao_20171112224925.zip 大小:62.1K

----------------------------------------------

信息

登陆以后才能回复