为什么SetIfEntry 为什么在window2000下执行总是不成功,而相同的代码在
windowXP 下却很正常!msdn 说 98,2000,xp 可以能正常执行!
望大家指点迷津!var
dwIfNumber:DWORD;
mibIfRow:MIB_IFROW;
dwResult:Dword; dwIndex:integer;
begin
dwResult:=NO_ERROR;
dwResult := GetNumberOfInterfaces(dwIfNumber);
if (NO_ERROR <> dwResult) then
begin
// return dwResult;
end; for dwIndex:=1 to dwIfNumber do
begin
mibIfRow.dwIndex := dwIndex;
dwResult := GetIfEntry(@mibIfRow);
if (NO_ERROR <>dwResult) then
begin
//return dwResult;
end;
mibIfRow.dwAdminStatus :=2; //MIB_IF_ADMIN_STATUS_UP;
dwResult := SetIfEntry(mibIfRow);
end; { MIB_IF_ADMIN_STATUS_UP = 1;
MIB_IF_ADMIN_STATUS_DOWN = 2;
MIB_IF_ADMIN_STATUS_TESTING = 3;
}
windowXP 下却很正常!msdn 说 98,2000,xp 可以能正常执行!
望大家指点迷津!var
dwIfNumber:DWORD;
mibIfRow:MIB_IFROW;
dwResult:Dword; dwIndex:integer;
begin
dwResult:=NO_ERROR;
dwResult := GetNumberOfInterfaces(dwIfNumber);
if (NO_ERROR <> dwResult) then
begin
// return dwResult;
end; for dwIndex:=1 to dwIfNumber do
begin
mibIfRow.dwIndex := dwIndex;
dwResult := GetIfEntry(@mibIfRow);
if (NO_ERROR <>dwResult) then
begin
//return dwResult;
end;
mibIfRow.dwAdminStatus :=2; //MIB_IF_ADMIN_STATUS_UP;
dwResult := SetIfEntry(mibIfRow);
end; { MIB_IF_ADMIN_STATUS_UP = 1;
MIB_IF_ADMIN_STATUS_DOWN = 2;
MIB_IF_ADMIN_STATUS_TESTING = 3;
}
解决方案 »
- count() as 的值如何被取出到内存中供别的地方调用
- 文件相关应用,有问题
- delphi png
- 关于dll问题,请高手帮忙!急,在线等!
- 用ADO连有密码的ACCESS数据库怎么会出错?
- 我中了delphi侵蚀着病毒
- indy客户端控件是否支持多线程?
- 关于view |Type Library窗口的问题!
- 如何改变InfoPower3000控件包中的wwDataInspector控件的字体大小???
- 如何在系统启动同时自动实现拨号上网?急!!!请各位大虾指教!!!
- 得到一个array 的Key,得到一个String字串,如何用Crypttoapi(Advapi32.dll)得出加密后的数据?
- 请问如何用WriteFile()将Byte型数据写到串口
这个函数在2000下运行也没有问题
我想你的目的是要禁用网卡吧
程序运行后,托盘的“本地连接”不会消失
但是网络是连不同的