用Delphi实现关闭、重启本地网络连接

1. unit Unit1;
3. interface
5. uses
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7.   Dialogs, OleServer, Shell32_TLB, StdCtrls;
9. const
10.   connVerb = '启用';
11.   discVerb = '停用';
13. type
14.   TForm1 = class(TForm)
15.     shl1: TShell;
16.     btn1: TButton;
17.     btn2: TButton;
18.     procedure btn1Click(Sender: TObject);
19.     procedure btn2Click(Sender: TObject);
20.   private
21.     { Private declarations }
22.     function ControlEthernet(const EthName, FolderItemVerbsName: string): Boolean;
23.   public
24.     { Public declarations }
25.   end;
27. var
28.   Form1: TForm1;
30. implementation
32. {$R *.dfm}
33. {
34. Component -> Import ActiveX Control -> Microsoft Shell Contolrs And  Automation
35. 然后创建单元文件，之后再新建一个安装包，添加该单元文件，最后是安装该控件，就可以用了（Tshell）
36. }
37. procedure TForm1.btn1Click(Sender: TObject);
38. begin
39.   ControlEthernet('本地连接', discVerb); //启用本地连接 '停用&'
40. end;
42. procedure TForm1.btn2Click(Sender: TObject);
43. begin
44.   ControlEthernet('本地连接', connVerb); //启用本地连接 '启用&'
45. end;
47. function TForm1.ControlEthernet(const EthName,
48.   FolderItemVerbsName: string): Boolean;
49. var cpFolder, nwFolder: Folder; //一个外壳文件夹对象
50.   nVerbs: FolderItemVerbs; //获得上下文相关的菜单信息
51.   i, j, k: integer;
52.   Shell1: TShell;
53. begin
54.   Result := false;
55.   Shell1 := TShell.Create(Application);
56.   cpFolder := Shell1.NameSpace(3); //选择控件面板
57.   if cpFolder <> nil then
58.   begin
59.     for i := 0 to cpFolder.items.Count - 1 do //返回它所包含的外壳对象的集合(文件) 28
60.     begin
61.       if cpFolder.Items.Item(i).Name = '网络连接' then //返回的集合的名称
62.       begin
63.         nwFolder := cpFolder.items.item(i).GetFolder as Folder; //取得该cpFolder下面的外壳对象
64.         if nwFolder <> nil then //内容不为空
65.         begin
66.           for j := 0 to nwFolder.items.Count - 1 do //历遍cpFolder下面的外壳对象
67.           begin
68.             if nwFolder.Items.Item(j).Name = EthName then //若果为'本地连接'
69.             begin
70.               nVerbs := nwFolder.Items.Item(j).Verbs; //取得该对象的上下文菜单信息
71.               for k := 0 to nVerbs.Count - 1 do //历遍所有菜单信息
72.               begin
73.                 if Pos(FolderItemVerbsName, nVerbs.Item(k).Name) > 0 then //如果菜单名称为 '禁用&' 时,
74.                                                                //  则执行该菜单命令
75.                 begin
76.                   nVerbs.Item(k).DoIt; //执行该菜单命令
77.                   //nwFolder.Items.Item(j).InvokeVerb(nwFolder.Items.Item(j).Verbs.Item(k).Name);
78.                   Result := true; //效果一致
79.                 end;
80.               end;
81.             end;
82.           end;
83.         end;
84.       end;
85.     end;
86.   end;
87. end;
89. end.