Görüntülenme Sayısı:  921
Bilgisayarın MAC Adresini Almak
Toplam: 0 Oy - Ortalama: 0 | Oyla:
  • Toplam: 0 Oy - Ortalama: 0
  • 1
  • 2
  • 3
  • 4
  • 5
Şu anda bu konuyu okuyanlar: 1 Ziyaretçi

OZDEM!R İzinli

OZDEM!R

Ölüme İnat..
Cezalı Kullanıcı Grubu
Kod:
ses NB30;

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 := [MENTION=107642]adapter[/MENTION];
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) + '-' +
   IntToHex(Byte(Adapter.adapter_address[1]), 2) + '-' +
   IntToHex(Byte(Adapter.adapter_address[2]), 2) + '-' +
   IntToHex(Byte(Adapter.adapter_address[3]), 2) + '-' +
   IntToHex(Byte(Adapter.adapter_address[4]), 2) + '-' +
   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 := [MENTION=107642]adapter[/MENTION]List;
NCB.ncb_length := SizeOf(AdapterList);
Netbios(@NCB);
if Byte(AdapterList.length) > 0 then
   Result := GetAdapterInfo(AdapterList.lana[0])
else
   Result := 'mac not found';
end;

// usage
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetMACAddress);
end;
Tüm Mesajlarına BakAra
Alıntı ile CevaplaAlıntı
emirhan.62 Çevrimdışı

emirhan.62

Yeni Üye
****
Üye Grubu
bişey anlamadım

Tüm Mesajlarına BakAra
Alıntı ile CevaplaAlıntı


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Delphi Api Kullanımı -5 - Ekran Görüntüsü Almak OZDEM!R 0 957 27.08.2013 13:22
Son Yorum: OZDEM!R



| SitemapSub | RssSub | ArchiveSub |