怎样在NT下取得网卡的物理地址？(100分)

我不是说用编程的方法，只要能得到网卡的物理编号就可以了！

当然用编程的方法也可以，不过你可要说清楚一些啦，因为我是beginer，刚刚ReStart！

function GetMacAddresses(const Machine: string; const Addresses: TStrings): Integer;
var
; NCB: TNCB;
; Enum: TLanaEnum;
; I, L, NameLen: Integer;
; Adapter: ASTAT;
; MachineName: string;
begin
; Result := -1;
; Addresses.Clear;
; MachineName := UpperCase(Machine);
; if MachineName = '' then
; ; MachineName := '*';
; NameLen := Length(MachineName);
; L := NCBNAMSZ - NameLen;
; if L > 0 then
; begin
; ; SetLength(MachineName, NCBNAMSZ);
; ; FillChar(MachineName[NameLen + 1], L, ' ');
; end;
; FillChar(NCB, SizeOf(NCB), #0);
; NCB.ncb_command := NCBENUM;
; NCB.ncb_buffer := Pointer(@Enum);
; NCB.ncb_length := SizeOf(Enum);
; if NetBios(@NCB) = NRC_GOODRET then
; begin
; ; Result := Enum.Length;
; ; for I := 0 to Ord(Enum.Length) - 1 do
; ; begin
; ; ; FillChar(NCB, SizeOf(NCB), #0);
; ; ; NCB.ncb_command := NCBRESET;
; ; ; NCB.ncb_lana_num := Enum.lana;
; ; ; if NetBios(@NCB) = NRC_GOODRET then
; ; ; begin
; ; ; ; FillChar(NCB, SizeOf(NCB), #0);
; ; ; ; NCB.ncb_command := NCBASTAT;
; ; ; ; NCB.ncb_lana_num := Enum.lana;
; ; ; ; Move(MachineName[1], NCB.ncb_callname, SizeOf(NCB.ncb_callname));
; ; ; ; NCB.ncb_buffer := PChar(@Adapter);
; ; ; ; NCB.ncb_length := SizeOf(Adapter);
; ; ; ; if NetBios(@NCB) = NRC_GOODRET then
; ; ; ; ; Addresses.Add(AdapterToString(Adapter.adapt));
; ; ; end;
; ; end;
; end;
end;

NT下用ipconfig，95/98下用winipcfg.

在WIN9X下，如果安装了拨号网络，则在WINDOWS系统的系统目录System下将有两个拨号网络管理程序库RasApi32.DLL和RasApi16.DLL，我们可利用其中的RAS系列函数来获取和设置拨号连接网络的信息。当然是可以获取拨号连接的动态IP地址了。在Delphi帮助文件中，有相关RAS函数的详细说明。


一、先解释一些要用到的数据常量和数据结构。


const

RAS_MaxDeviceType = 16;//设备类型名称长度

RAS_MaxEntryName = 256;//连接名称最大长度

RAS_MaxDeviceName = 128;//设备名称最大长度

RAS_MaxIpAddress = 15;//IP地址的最大长度

RASP_PppIp = $8021;//拨号连接的协议类型，该数值表示PPP连接


type

HRASCONN = DWORD;//拨号连接句柄的类型

RASCONN = record//活动的拨号连接的句柄和设置信息

dwSize : DWORD;//该结构所占内存的大小(Bytes)


一般设置为SizeOf(RASCONN)

hrasconn : HRASCONN;//活动连接的句柄

szEntryName : array[0..RAS_MaxEntryName] of char;

//活动连接的名称

szDeviceType : array[0..RAS_MaxDeviceType] of char;

//活动连接的所用的设备类型

szDeviceName : array[0..RAS_MaxDeviceName] of char;

//活动连接的所用的设备名称

end;

TRASPPPIP = record//活动的拨号连接的动态IP地址信息

dwSize : DWORD;//该结构所占内存的大小(Bytes)


一般设置为SizeOf(TRASPPPIP)

dwError : DWORD;//错误类型标识符

szIpAddress : array[ 0..RAS_MaxIpAddress ] of char;

//活动的拨号连接的IP地址

end;

二、接着要解释要用到的两个RAS函数。


//获取所有活动的拨号连接的信息（连接句柄和设置信息）

function RasEnumConnections( var lprasconn : RASCONN ;

//接收活动连接的缓冲区的指针

var lpcb: DWORD;//缓冲区大小

var lpcConnections : DWORD//实际的活动连接数

) : DWORD; stdcall;

function RasEnumConnections;external 'Rasapi32.dll'

name 'RasEnumConnectionsA';

//获取指定活动的拨号连接的动态IP信息

function RasGetProjectionInfo(

hrasconn : HRasConn;//指定活动连接的句柄

rasprojection : DWORD;//RAS连接类型

var lpprojection : TRASPPPIP;//接收动态IP信息的缓冲区

var lpcb : DWord//接收缓冲区的大小

) : DWORD;stdcall;

function RasGetProjectionInfo;external

'Rasapi32.dll' name 'RasGetProjectionInfoA';

这两个函数的返回值为０时表示执行成功，非０表示错误代码。


三、下面要讨论如何用上面的两个RAS函数获取拨号连接的动态IP地址


首先，要用函数RasEnumConnections列出已建立的活动拨号连接的信息，其中包括连接名称、连接句柄、连接设备类型和设备名称；然后根据连接句柄用函数RasGetProjectionInfo获取连接对应的一个TRASPPPIP结构，其中包括一个成员属性szIpAddress即为动态IP地址。具体请参见以下程序片段和注释信息。


procedure TForm1.Button1Click(Sender: TObject);

const

MaxConnections = 10;//假设最多有10个活动的拨号连接

var

connections : array[0..MaxConnections-1] of RASCONN;

//拨号连接数组

longSize : dword;

intAvailabelConnections : dword;

//活动的拨号连接的实际数目

intIndex : integer;

strTemp : string;

dwResult : DWORD;

dwSize : DWORD;

RASpppIP : TRASPPPIP;

//活动的拨号连接的动态IP地址信息

begin

connections[ 0 ].dwSize := sizeof(RASCONN);

longSize := MaxConnections * connections[ 0 ].dwSize;

//接收活动连接的缓冲区大小

intAvailabelConnections := 0;

//获取所有活动的拨号连接的信息（连接句柄和设置信息）

dwResult := RasEnumConnections( connections[ 0 ]


longSize

intAvailabelConnections );

if 0 < > dwResult then

memo1.lines.add( '错误:' + inttostr( dwResult ) )

else

begin

memo1.lines.add( '现有的活动连接有' +

IntToStr( intAvailabelConnections ) + '个');

//显示所有活动的拨号连接的信息（设置信息和动态IP地址）

for intIndex := 0 to intAvailabelConnections - 1 do

begin

//显示一个活动的拨号连接的设置信息

strTemp := '连接名称：'

+ StrPAS( connections[ intIndex ].szEntryName )

+ '，设备类型：'

+ StrPAS( connections[ intIndex ].szDeviceType )

+ '，设备名称：'

+ StrPAS( connections[ intIndex ].szDeviceName );

memo1.lines.add( strTemp );

//显示一个活动的拨号连接的动态IP地址

dwSize := SizeOf(RASpppIP);

RASpppIP.dwSize := dwSize;

dwResult := RASGetProjectionInfo

( connections[ intIndex ].hRasConn


RASP_PppIp

RasPPPIP

dwSize);//获取动态IP地址

if 0 < > dwResult then

memo1.lines.add(

'错误:' + inttostr( dwResult ))

else

memo1.lines.add(

'动态地址:' + StrPas(RASpppIP.szIPAddress));

end;

end;

end;

以上程序在PWIN98+Delphi3.0下调试通过。

多人接受答案了。