Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.08;
Скачать: 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 вся ветка

Текущий архив: 2002.08.08;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
3-23892
Ильдар
2002-07-17 12:53
2002.08.08
надо обновить отображение БД


3-23872
Alexandrda
2002-07-17 10:06
2002.08.08
Смена кодовой страницы у существующей базы программным способом


3-23957
werewolfDS
2002-07-18 11:51
2002.08.08
Бухгалтерские проводки


1-23980
иван
2002-07-25 16:11
2002.08.08
Господа великодушные


6-24163
ss18
2002-05-26 16:51
2002.08.08
Кто нибудь работал с DNS-сервером?