<% dim ModuleName,InfoID,ChannelShortName,CorrelativeArticle,InstallDir,ChannelDir,Keyword,PageTitle,ArticleIntro,Articlecontent Keyword=stripHTML("Delphi,网卡,MAC") PageTitle=stripHTML("Delphi下读取网卡的MAC") ArticleIntro=stripHTML("") Articlecontent=stripHTML("var  LanaNum: Byte;  MACAddress: PMACAddress;  RetCode: Byte; begin  LanaNum := …") ModuleName = stripHTML("programme") InfoID = stripHTML("99698") ChannelShortName=stripHTML("编程") InstallDir=stripHTML("http://www.77169.com/") ChannelDir=stripHTML("programme") %> Delphi下读取网卡的MAC - 华盟网 - http://www.77169.com
您现在的位置: 华盟网 >> 编程 >> Delphi >> 正文

Delphi下读取网卡的MAC

2008/4/20 作者:不详 来源: 华夏收集
导读 <% if len(ArticleIntro)<3 then Response.Write Articlecontent 'Response.Write "Articlecontent" else Response.Write ArticleIntro 'Response.Write "ArticleIntro" end if %>
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


  • 上一篇编程:

  • 下一篇编程: