Скачать: CL | DM;

МАС адрес   Найти похожие ветки 

← →
Alibaba ©   (2002-05-27 10:43) [0]

Всем привет!
Скажите МАСТЕРА, как определить МАС адрес своей сетевой карты?

---

← →
Crazytemo   (2002-05-27 14:39) [1]

vot kod po pravde govria ia sam eto ne delal no rabotaet otlichno


function TForm1.MGetMACAddress(LanaNum: Byte): string;
var


type
PMACAddress = ^TMACAddress;
TMACAddress = array[0..5] of Byte;


AdapterStatus: PAdapterStatus;
StatNCB: PNCB;
Status:Byte;
MACAddress: PMACAddress;

begin

New(StatNCB);

ZeroMemory(StatNCB, SizeOf(TNCB));
StatNCB.ncb_length := SizeOf(TAdapterStatus) + 255 * SizeOf(TNameBuffer);
GetMem(AdapterStatus, StatNCB.ncb_length);
try
with StatNCB^ do
begin
New(MacAddress);
ZeroMemory(MACAddress, SizeOf(TMACAddress));
ncb_buffer := PChar(AdapterStatus);
ncb_callname := "* " + #0;
ncb_lana_num := Char(LanaNum);
ncb_command := Char(NCBASTAT);
NetBios(StatNCB);
Status := Byte(ncb_cmd_cplt);
if Status = NRC_GOODRET then
MoveMemory(MACAddress, AdapterStatus, SizeOf(TMACAddress));
end;
finally
FreeMem(AdapterStatus);
Dispose(StatNCB);
end;
Result := Format("%2.2x-%2.2x-%2.2x-%2.2x-%2.2x-%2.2x",
[MACAddress[0], MACAddress[1], MACAddress[2],
MACAddress[3], MACAddress[4], MACAddress[5]]);


end;

---

← →
Crazytemo   (2002-05-27 14:42) [2]

no tolko v win98, win2000 ne prboval

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c