禁用网卡后不显示"打叉"的图标？

[hjkto]

通过代码禁用网卡，不想让它在设备管理器的图标上"打叉"
请问有什么办法实现？

[gyk120]

删除网卡设备……

[hjkto]

???

[hjkto]

不是删除网卡，是禁用网卡
删除完了，还得要装上，麻烦

[gyk120]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Shell32_TLB, StdCtrls, Menus;

type
TForm1 = class(TForm)
Button1: TButton;
ComboBox1: TComboBox;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
{$R *.dfm}

{++
Routine Description:
取本机所有网络链接列表
Arguments:
OUT list - 取得的网络链接列表
Return Value:
BOOLEAN - 执行是否成功
--}

function GetNetLinkList(var list:TStrings):BOOLEAN;
var
Shell:TShell;
ControlPanel:Folder;
Item:FolderItem;
i:integer;
begin
Result:= FALSE;
if list = nil then exit;

Shell:=TShell.Create(Application);
if Shell = nil then exit;

ControlPanel:=Shell.NameSpace(ssfCONTROLS);
for i:=0 to ControlPanel.items.Count -1 do
begin
Item:=ControlPanel.items.Item(i);
if (Item.Name = '网络和拨号连接') then //如果是英文的windows则Name也需是英文的
begin
ControlPanel:=Folder(Item.GetFolder);
break;
end;
end;

for i:=0 to ControlPanel.items.count-1 do
begin
Item:= ControlPanel.items.Item(i);
List.Add(Item.Name);
end;
FreeAndNil(shell);
Result:= TRUE;
end;

{++ Routine Description:
执行 本地网络链接 的菜单命令（包括禁用、启用）
Arguments:
IN AdapterName - 网络链接名称
IN MenuName - 菜单名称
Return Value:
BOOLEAN - 执行是否成功
--}

function ExcNetLinkMenu(const AdapterName,MenuName:String):BOOLEAN;
var
Shell:TShell;
ControlPanel:Folder;
Item:FolderItem;
i,j:integer;
Verb:FolderItemVerb;
begin
Result:= FALSE;
Shell:=TShell.Create(Application);
if Shell = nil then exit;

ControlPanel:=Shell.NameSpace(ssfCONTROLS);
for i:=0 to ControlPanel.items.Count -1 do
begin
Item:=ControlPanel.items.Item(i);
if (Item.Name = '网络和拨号连接') then //如果是英文的windows则Name也需是英文的
begin
ControlPanel:=Folder(Item.GetFolder);
break;
end;
end;

for i:=0 to ControlPanel.items.count-1 do
begin
Item:=ControlPanel.items.Item(i);
if (Item.Name = AdapterName) then //如果是英文的windows则Name也需是英文的
begin
for j:=0 to Item.Verbs.Count -1 do
begin
Verb:=Item.Verbs.Item(j);
if (Verb.Name = MenuName) then
begin
Verb.DoIt ;
Result:=TRUE;
break;
end;
end;
break;
end;
end;
FreeAndNil(shell);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
list:TStrings;
begin
List:=TStringList.Create ;
GetNetLinkList(List);
ComboBox1.Items:=List;
FreeAndNil(List);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ExcNetLinkMenu('本地连接 2','启用(&A)');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ExcNetLinkMenu('本地连接 2','禁用(&B)');
end;

end.

[hjkto]

[Fatal Error] Unit1.pas(7): File not found: 'Shell32_TLB.dcu'

[hjkto]

版主　，这个和我要的哪个效果不一样
我想停用网卡后，把哪个红叉去掉
？？

[rock1001]

gyk120 转帖的代码是我以前写的，里面还有一些我的信息，版主忘记加了：）
禁用网卡,深层次的用SetupApi

[hjkto]

[Quote=引用 8 楼 rock1001 的回复:]
gyk120 转帖的代码是我以前写的，里面还有一些我的信息，版主忘记加了：）
禁用网卡,深层次的用SetupApi
[/Quote]

忘记加的部分，能发一下吗？
深层次的用SetupApi，能否达到，我要的效果？

[贝隆]

没有看懂，帮顶

[hjkto]

自己顶一下
再说明一下
手动禁用网卡后，在设备管理器中，网卡图标前不是有一个红叉吗，我想禁用网卡但不想红叉出现

[rock1001]

使用setupapi会有叉。
另一种思路 HOOK掉相关函数，达到屏蔽网卡通讯

[hjkto]

up

[hjkto]

[Quote=引用 13 楼 rock1001 的回复:]
使用setupapi会有叉。
另一种思路 HOOK掉相关函数，达到屏蔽网卡通讯
[/Quote]

指点？

[apilove]

替换系统图标？

[hjkto]

[Quote=引用 15 楼 apilove 的回复:]
替换系统图标？
[/Quote]

这个手动都有点麻烦，我试过了
何况是代码实现？

[hjkto]

up

[hjkto]

up

[haitao]

网卡属性里不选中 连接后在通知区域显示图标 ，会不会就不显示了？
这个选择应该也在注册表里的

[hjkto]

up

[hjkto]

up