张志峰的博客

水滴石川，积少成多。

导航

随笔分类 -  Delphi Mac地址

Delphi 如何区分虚拟网卡与物理网卡

摘要：若系统中安装了 VMWare 或者某些 VPN 客户端软件，则会出现若干虚拟网卡。它们在形式上与物理网卡几乎没有区别。 ipconfig 将它们与本地物理网卡等同对待。 那如何在如何区分虚拟网卡还是物理网卡呢？有些人建议使用 MAC 地址中的 "locally administread bit" 来区分。但是事实上不能100％区分，在win2000之后的系统基本是行不通的。 http://hi.baidu.com/xzq2000/blog/item/43b686d672cd762f07088b95.html有人用GetAdaptersInfo 可以获得本机所有网卡的信息，然 阅读全文

posted @ 2012-06-06 10:46 ╰★张志峰★╮ 阅读(2720) 评论(0) 推荐(0)

delphi 获取网卡信息(支持多网卡) 转

摘要：delphi 获取网卡信息(支持多网卡) unit LGetAdapterInfo;interfaceusesWindows, SysUtils, Classes;constMAX_HOSTNAME_LEN = 128; { from IPTYPES.H }MAX_DOMAIN_NAME_LEN = 128;MAX_SCOPE_ID_LEN = 256;MAX_ADAPTER_NAME_LENGTH = 256;MAX_ADAPTER_DESCRIPTION_LENGTH = 128;MAX_ADAPTER_ADDRESS_LENGTH = 8;typeTIPAddressString = a 阅读全文

posted @ 2012-06-06 09:26 ╰★张志峰★╮ 阅读(4122) 评论(1) 推荐(0)

DELPHI获取网卡MAC地址 转

摘要：DELPHI获取网卡MAC地址1、通过IP取MAC地址usesWinSock;Function sendarp(ipaddr:ulong;temp:dword;ulmacaddr:pointer;ulmacaddrleng:pointer) : DWord; StdCall; External 'Iphlpapi.dll' Name 'SendARP';procedure TForm1.Button1Click(Sender: TObject);varmyip:ulong;mymac:array[0..5] of byte;mymaclength:ulong;r 阅读全文

posted @ 2012-06-06 09:21 ╰★张志峰★╮ 阅读(8457) 评论(0) 推荐(0)

Delphi 获取网卡地址

摘要：//获取网卡MAC地址function GetMacAddress: string;var lib:Cardinal; Func: function(GUID:PGUID):Longint; stdcall; GUID1,GUID2:TGUID;begin Result := ''; Lib := Loadlibrary('rpcrt4.dll'); if Lib <> 0 then begin if Win32Platform <> VER_PLATFORM_WIN32_NT then @Func := GetProcAddress(l 阅读全文

posted @ 2012-06-06 09:18 ╰★张志峰★╮ 阅读(1086) 评论(0) 推荐(0)