如何通过程序实现网卡的启用和禁止功能?

我欠你钱___

我欠你钱___

2016-02-19 19:57

下面图老师小编跟大家分享如何通过程序实现网卡的启用和禁止功能?,一起来学习下过程究竟如何进行吧!喜欢就赶紧收藏起来哦~

  在Delphi中选Project Import Type Library命令,在对话框中选Import Microsoft Shell Controls And Automation类型库,点Install后,在Delphi的ActiveX控件板上就多了TShellFolderItem,TShellLinkObject,TShellFolderView,TShell,TSearchCommand等几个组件

  const
     discVerb = '禁用(&B)';
     connVerb = '启用(&A)';

(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/bianchengyuyan/)

  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;

(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/bianchengyuyan/)

  

展开更多 50%)
分享

猜你喜欢

如何通过程序实现网卡的启用和禁止功能?

编程语言 网络编程
如何通过程序实现网卡的启用和禁止功能?

禁止使用“添加和删除程序”功能

电脑网络
禁止使用“添加和删除程序”功能

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

通过程序向RichEditView写文本

C语言教程 C语言函数
通过程序向RichEditView写文本

C#实现通过程序自动抓取远程Web网页信息的代码

编程语言 网络编程
C#实现通过程序自动抓取远程Web网页信息的代码

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

Java实现ftp功能(源程序)

编程语言 网络编程
Java实现ftp功能(源程序)

如何通过VB获取网卡地址

编程语言 网络编程
如何通过VB获取网卡地址

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

用clientsocket发送http头请求

用clientsocket发送http头请求

Dreamweaver中输入空格

Dreamweaver中输入空格
下拉加载更多内容 ↓