如何获得“控制面板”->“网络”->“配置”当中的适配器名称及数目？？？？？

97132 2003-03-19 10:44:53

如题....

...全文

84 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

97132 2003-03-25

打赏
举报

当然是要通过编程序的方式来现实了，不然我来干么？？？？？/

delphiyesgood 2003-03-25

打赏
举报

察看配置内容，不就可以了吗？

97132 2003-03-25

打赏
举报

感谢 chenquan(嘉威王子) 的回答，但这个不是我要的答案。。。。。

这些我都有。。。。。。。再次的感谢 chenquan(嘉威王子) 。

chenquan 2003-03-25

打赏
举报

如何获得网卡编号
uses nb30;
function GetPhysicalAddress: string;
Var
NCB : TNCB;
ADAPTER : TADAPTERSTATUS;
LANAENUM : TLANAENUM;
intIdx : Integer;
re : Char;
buf : String;
begin
Try
// Reset adapter
ZeroMemory(@NCB, SizeOf(NCB));
NCB.ncb_command := Chr(NCBRESET);
NCB.ncb_lana_num := LANAENUM.lana[0];//important
re := NetBios(@NCB);
If Ord(re)<>0 Then
begin
Result := '';
exit;
end;
// Get adapter address
ZeroMemory(@NCB, SizeOf(NCB));
NCB.ncb_command := Chr(NCBASTAT);
NCB.ncb_lana_num := LANAENUM.lana[0];////bowman
StrPCopy(NCB.ncb_callname, '*');
NCB.ncb_buffer := @ADAPTER.adapter_address[0];
NCB.ncb_length := SizeOf(ADAPTER);
re := NetBios(@NCB);
If Ord(re)<>0 Then
exit;

buf := '';
For intIdx := 0 To 5 Do
buf := buf + InttoHex(Integer(ADAPTER.adapter_address[intIdx]),2)+'-';
Result := copy(buf,0,length(buf)-1);
finally
// freemem(@NCB,SizeOf(NCB));
end;
end;

chenquan 2003-03-25

打赏
举报

启动“网络”属性
var x:cardinal;
begin
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Netcpl.cpl',9);
if x=0 then messagebox(0,'程序超出内存','错误',0);
if x=ERROR_BAD_FORMAT then messagebox(0,'该程序非一个合法的Win32.EXE程序).','错误',0);
if x=ERROR_FILE_NOT_FOUND then messagebox(0,'指定文件没找到','错误',0);
if x=ERROR_PATH_NOT_FOUND then messagebox(0,'指定路径没找到','错误',0);
end;

97132 2003-03-25