请问如何获得网卡、硬盘等设备的MAC delphi有一个nb30的单元,你查看一下吧 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var LanaNum: Byte; MACAddress: PMACAddress; RetCode: Byte; begin LanaNum := StrToInt(ComboBox1.Text); New(MACAddress); try RetCode := GetMACAddress(LanaNum, MACAddress); if RetCode = NRC_GOODRET then begin Edit1.Text := Format('%2.2x-%2.2x-%2.2x-%2.2x-%2.2x-%.2x', MACAddress[0], MACAddress[1], MACAddress[2], MACAddress[3], MACAddress[4], MACAddress[5]]); end else begin Beep; Edit1.Text := 'Error'; ShowMessage('GetMACAddress Error! RetCode = $' + IntToHex(RetCode, 2)); end; finally Dispose(MACAddress); end; 如何让软件在一台机器上只能安装一次?急 Ihtmldocument2的问题? Single Instance及Multiple Instance差异? 关于TreeView的简单问题 一个进程内一个线程内的事务回滚会不会影响另一个线程内事务的提交? 能不能实现这样的功能? 安装问题,急,急 我是delphi初学者,按照书本上说得却走不下去了,请各位高手指点迷津,急急急急急急急急急急急!!!!!!!!!!! 如何修改dataset的默认时间? 如何建立一个动态连接库.dll,菜鸟发问 提个有点难度的问题 如何从Memo控件获得所需字符串?(急)
LanaNum: Byte;
MACAddress: PMACAddress;
RetCode: Byte;
begin
LanaNum := StrToInt(ComboBox1.Text);
New(MACAddress);
try
RetCode := GetMACAddress(LanaNum, MACAddress);
if RetCode = NRC_GOODRET then
begin
Edit1.Text := Format('%2.2x-%2.2x-%2.2x-%2.2x-%2.2x-%.2x', MACAddress[0], MACAddress[1], MACAddress[2], MACAddress[3], MACAddress[4], MACAddress[5]]);
end else
begin
Beep;
Edit1.Text := 'Error';
ShowMessage('GetMACAddress Error! RetCode = $' + IntToHex(RetCode, 2));
end;
finally
Dispose(MACAddress);
end;