近日从网上下载的以下语句,但不知怎么uses 它,帮帮忙!
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 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;
解决方案 »
- 新手求帮助
- >>---------------关于窗体关闭的问题?------------------------------
- 请教高人:我想发送一个wm_lbuttonup消息到指定坐标,应该怎么设置sendmessage参数呢?
- 平滑滚动的奥妙!(高手请指点)
- 数据导入的问题!
- 在线求教,菜鸟问题,如何在鼠标移到某个菜单项上时,在状态栏中显示出相应的提示信息,请大哥赐教!
- 如何检测数据有没有超过规定的大小
- 我觉得已经解决问题的朋友在给分之前有必要把“解决问题的方法”公布一下(支持的朋友请进)
- 用Delphi+Access写程序,用了TQuery,打包后至少有多大?1M,2M,3M?
- 批量更新adodataset中的数据
- 问高手几个问题??
- 在project中的source源程序中能否用判断语句及加子函数?
http://hubdog.csdn.net/UpdateList/ul20020411.htm