如题,谢谢!
解决方案 »
- delphi 中 有没有盛放 小数的数据类型?
- 鄙视fangsp,只会顶别人的贴
- 当不符合条件时,不能打开窗体form1,请问怎样实现 ??
- 用TTS5.1朗读问题
- 关于如何控制对ListView的列进行修改!
- Access数据库中的表的内容导入到sql数据库中
- 如何将MOUSE固定在一个位置不能动了,就是控制用户不让其操作MOUSE?
- 从chinaasp下载的reportbuild安装是要密码,怎么安装?有几个.nfo文件和.diz文件是怎么用的?
- 各位大虾,谁能把下面的SQL语句执行通过,后台是ACCESS,谢谢。
- 使用ehlib进行排序的问题!急!!!
- 有没有能把dbgrid的内容saveas另存出来的办法
- 怎么过滤数据啊,是布尔值的,麻烦大家帮帮忙了!过年散分!
uses SysUtils, Windows, NB30;
function GetNetBIOSAddress : string;
var ncb : TNCB;
status : TAdapterStatus;
lanenum : TLanaEnum; procedure ResetAdapter (num : char);
begin
fillchar(ncb,sizeof(ncb),0);
ncb.ncb_command:=char(NCBRESET);
ncb.ncb_lana_num:=num;
Netbios(@ncb);
end;var
lanNum : char;
address : record
part1 : Longint;
part2 : Word;//Smallint;
end absolute status;
begin
Result:=''; fillchar(ncb,sizeof(ncb),0);
ncb.ncb_command:=char(NCBENUM);
ncb.ncb_buffer:=@lanenum;
ncb.ncb_length:=sizeof(lanenum);
Netbios(@ncb); if lanenum.length=#0 then exit;
lanNum:=lanenum.lana[0]; ResetAdapter(lanNum); fillchar(ncb,sizeof(ncb),0);
ncb.ncb_command:=char(NCBASTAT);
ncb.ncb_lana_num:=lanNum;
ncb.ncb_callname[0]:='*';
ncb.ncb_buffer:=@status;
ncb.ncb_length:=sizeof(status);
Netbios(@ncb);
ResetAdapter(lanNum); Result:=Format('%x%x',[address.part1,address.part2]);
end;
我试了半天,发现你给的是MAC地址:-)
我想要的是IP地址,和网卡的名称,如“VMware Virtual Ethernet Adapter for VMnet1”。 不过还是多谢你的回答!结贴的时候一定给分。