在Windows2000以上的OS里都有一个“本地连接”,右键单击“本地连接”出现一菜单,里面有“禁用”项目,单击后“本地连接”就不可用(图标变灰),再右键单击“本地连接”刚才“禁用”的地方变“启用”,单击后“本地连接”又正常了。
请问在Delphi里如何用代码实现以上功能?我给1000分!(因系统限制只能标出100分)
请问在Delphi里如何用代码实现以上功能?我给1000分!(因系统限制只能标出100分)
解决方案 »
- ★★★★★擂台帖]★★★★★本帖打擂台!诚邀各路好手!详情见帖
- 但是Create(self),Create(nil) 有什么区别啊
- DELPHI 7 能支持VISTA下的软件开发吗?
- 嵌入IE的使用问题
- 麻烦各位大哥推荐几本好的DELPHI(或者VC也行)网络编程(涉及讨论TCP协议)的书籍(如果是可以下载的电子书就更好喽,呵呵)..
- 如何使用Delphi语言使Zebra能够打印图片
- 关于Fastreport2.47的问题!在线等待!!!(今天晚上10:00结帖!响应CSDN的号召!)
- 散分
- 这是我的程序设计思路,朋友为我做了三个表,请帮我把这3个表的e文翻译为中文,帮我看看这3个表是否已经满足我软件需要,谢谢
- 这个类如何使用,使能收到udp客户端发来的消息的?
- 怎么用ClientSocket list FTP服务器下的目录?
- 在應用程式中查詢超時,如何處理?
discVerb = '禁用(&B)';
connVerb = '启用(&A)';function DisableEthernet(const EthName: String): Boolean;
var
cpFolder: Folder;
nwFolder: Folder;
nVerbs: FolderItemVerbs;
i,j,k: integer;
begin
result := false;
cpFolder := 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 = discVerb then
begin
nVerbs.Item(k).DoIt;
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;
function EnableEthernet(const EthName: String): Boolean;
var
cpFolder: Folder;
nwFolder: Folder;
nVerbs: FolderItemVerbs;
i,j,k: integer;
begin
result := false;
cpFolder := 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 = connVerb then
begin
nVerbs.Item(k).DoIt;
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;