Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2002.08.08;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.007 c
6-24160
начинающий програмер
2002-05-24 22:29
2002.08.08
Баннеры


1-24061
Vladislav
2002-07-25 12:12
2002.08.08
Перемешать массив


4-24271
DeMoN-777
2002-06-02 03:31
2002.08.08
Элементы листбокса чужой программы.


1-24050
zetta
2002-07-24 19:03
2002.08.08
файлы по таймеру


3-23904
Galinka
2002-07-17 10:09
2002.08.08
Снова вопрос к мастерам. Нужна идея.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский