Форум: "WinAPI";
Текущий архив: 2004.12.05;
Скачать: [xml.tar.bz2];
ВнизПростой вопрос! Подскажите, как узнать серийный номер сетевой кар Найти похожие ветки
← →
gris (2004-10-21 11:12) [0]Простой вопрос! Подскажите, как узнать серийный номер сетевой карточки
← →
DVM © (2004-10-21 11:14) [1]http://www.yandex.ru/yandsearch?rpt=rad&text=MAC-%E0%E4%F0%E5%F1+Delphi
← →
Grundic (2004-10-21 12:35) [2]На MAC-адрес:
const
del = "-";
function GetAdapterInfo(Lana: Char): string;
var
Adapter: TAdapterStatus;
NCB: TNCB;
begin
FillChar(NCB, SizeOf(NCB), 0);
NCB.ncb_command := Char(NCBRESET);
NCB.ncb_lana_num := Lana;
if Netbios(@NCB) <> Char(NRC_GOODRET) then
begin
Result := "mac not found";
Exit;
end;
FillChar(NCB, SizeOf(NCB), 0);
NCB.ncb_command := Char(NCBASTAT);
NCB.ncb_lana_num := Lana;
NCB.ncb_callname := "*";
FillChar(Adapter, SizeOf(Adapter), 0);
NCB.ncb_buffer := @Adapter;
NCB.ncb_length := SizeOf(Adapter);
if Netbios(@NCB) <> Char(NRC_GOODRET) then
begin
Result := "mac not found";
Exit;
end;
Result :=
IntToHex(Byte(Adapter.adapter_address[0]), 2) + del +
IntToHex(Byte(Adapter.adapter_address[1]), 2) + del +
IntToHex(Byte(Adapter.adapter_address[2]), 2) + del +
IntToHex(Byte(Adapter.adapter_address[3]), 2) + del +
IntToHex(Byte(Adapter.adapter_address[4]), 2) + del +
IntToHex(Byte(Adapter.adapter_address[5]), 2);
end;
function GetMACAddress: string;
var
AdapterList: TLanaEnum;
NCB: TNCB;
begin
FillChar(NCB, SizeOf(NCB), 0);
NCB.ncb_command := Char(NCBENUM);
NCB.ncb_buffer := @AdapterList;
NCB.ncb_length := SizeOf(AdapterList);
Netbios(@NCB);
if Byte(AdapterList.length) > 0 then
Result := GetAdapterInfo(AdapterList.lana[0])
else
Result := "mac not found";
end;
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2004.12.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.033 c