獲取網卡信息(GetAdaptersInfo)
2010-08-25 14:41:43| 分类:
Delphi
| 标签:
|举报
|字号大中小 订阅
type
TIPAddrStr = array[0..15] of Char;
PIPAddrString = ^TIPAddrString;
TIPAddrString = record
Next: PIPAddrString;
IPAddr: TIPAddrStr;
IPMask: TIPAddrStr;
Context: Integer;
end;
PIPAdapterInfo = ^TIPAdapterInfo;
TIPAdapterInfo = record
Next: PIPAdapterInfo;
ComboIndex: Integer;
AdapterName: array[0..256 + 3] of Char;
Description: array[0..128 + 3] of Char;
AddrLen: Integer;
Address: array[1..8] of Byte;
Index: Integer;
_Type: Integer;
DHCPEnabled: Integer;
CurrIPAddr: PIPAddrString;
IPAddrList: TIPAddrString;
GatewayList: TIPAddrString;
end;
function GetAdaptersInfo(AI: PIPAdapterInfo; var BufLen: Integer): Integer; stdcall; external 'Iphlpapi.dll' name 'GetAdaptersInfo';
produce GetInfo;
var
AI, Work: PIPAdapterInfo;
Size, n: Integer;
begin
if (nSize < 8) then Exit;
Size := 5120;
GetMem(AI, Size);
if (GetAdaptersInfo(AI, Size) = ERROR_SUCCESS) then
begin
Work := AI;
//something
Work := Work^.Next;
end;
FreeMem(AI);
end;
评论这张
转发至微博
转发至微博
评论