如题
Who 知道?
Who 知道?
解决方案 »
- 两个Pagecontrol之间能否使用splitter?
- 在程序中显示的开一个事务, 但还没有提交Commit, 为什么在SQLServer查询分析器中去Query一个表很长时间没反映 ?
- 以旧换新业务的会计处理问题
- 半年没来了,考研所误,马上要进考场了,散分!
- 如何找到指定的字符在某一字符串中出现的每一次的位置?
- 在学三层开发时遇到的问题,为何返回一个数据集时的速度那么慢呢?
- 请问斑竹、cobi、chechy等高人,你们遇到过:物理数据库中字段映射到client端对象的问题吗?
- 做一个系统日志的线程(100分)
- 数据库中表的权限?
- 怎么在Delphi 的ClientSocket 中设置超时时间??急!
- 进程关闭问题!!!!HELP!!!!
- dll问题
discVerb = '停用(&B)';
connVerb = '啟用(&A)';function DisableEthernet(const EthName: String): Boolean;
var
// shell1: variant;
//cpFolder: variant;
cpFolder: Folder;
nwFolder: Folder;
nVerbs: FolderItemVerbs;
i,j,k: integer;
begin
result := false; // shell1 := CreateObject('shell.application'); cpFolder := form1.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 := form1.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;procedure TForm1.Button1Click(Sender: TObject);
begin
DisableEthernet('區域連線');
end;procedure TForm1.Button2Click(Sender: TObject);
begin
EnableEthernet('區域連線');
end;
1、我用的是Delphi好象没有Folder和FolderItemVerbs变量。
2、我主要是想实现Win98下的网卡屏蔽。经过尝试,发现,停用网卡至少做了两个动作,
一个修改注册表,另一个未知。谁还有办法?
???????????????????????????
???????????????????????????
???????????????????????????
http://www.donews.net/zwell/archive/2004/07/30/54476.aspx
其实,我找到了的例子,就是他的方法。