Главная страница
    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.54 MB
Время: 0.02 c
1-24068
Dmitry Toropov
2002-07-25 18:22
2002.08.08
И снова удаление файлов :((


14-24238
Феликс
2002-07-11 19:09
2002.08.08
Объясните (если вам не сложно, конечно!) принцип шифрования.


3-23959
Alex_M
2002-07-19 10:59
2002.08.08
IB6


4-24273
Azo
2002-06-03 09:41
2002.08.08
Вызов почтовой программы.


7-24242
arbiter
2002-04-02 20:20
2002.08.08
Properties файлов





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский