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

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleServer, Shell32_TLB, StdCtrls;
const
connVerb = '启用';
discVerb = '停用';
type
TForm1 = class(TForm)
shl1: TShell;
btn1: TButton;
btn2: TButton;
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
private
{ Private declarations }
function ControlEthernet(const EthName, FolderItemVerbsName: string): Boolean;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{
Component -> Import ActiveX Control -> Microsoft Shell Contolrs And  Automation
然后创建单元文件，之后再新建一个安装包，添加该单元文件，最后是安装该控件，就可以用了（Tshell）
}
procedure TForm1.btn1Click(Sender: TObject);
begin
ControlEthernet('本地连接', discVerb); //启用本地连接 '停用&'
end;
procedure TForm1.btn2Click(Sender: TObject);
begin
ControlEthernet('本地连接', connVerb); //启用本地连接 '启用&'
end;
function TForm1.ControlEthernet(const EthName,
FolderItemVerbsName: string): Boolean;
var cpFolder, nwFolder: Folder; //一个外壳文件夹对象
nVerbs: FolderItemVerbs; //获得上下文相关的菜单信息
i, j, k: integer;
Shell1: TShell;
begin
Result := false;
Shell1 := TShell.Create(Application);
cpFolder := Shell1.NameSpace(3); //选择控件面板
if cpFolder <> nil then
begin
for i := 0 to cpFolder.items.Count - 1 do //返回它所包含的外壳对象的集合(文件) 28
begin
if cpFolder.Items.Item(i).Name = '网络连接' then //返回的集合的名称
begin
nwFolder := cpFolder.items.item(i).GetFolder as Folder; //取得该cpFolder下面的外壳对象
if nwFolder <> nil then //内容不为空
begin
for j := 0 to nwFolder.items.Count - 1 do //历遍cpFolder下面的外壳对象
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 Pos(FolderItemVerbsName, nVerbs.Item(k).Name) > 0 then //如果菜单名称为 '禁用&' 时,
//  则执行该菜单命令
begin
nVerbs.Item(k).DoIt; //执行该菜单命令
//nwFolder.Items.Item(j).InvokeVerb(nwFolder.Items.Item(j).Verbs.Item(k).Name);
Result := true; //效果一致
end;
end;
end;
end;
end;
end;
end;
end;
end;
end.