Obtener direccion MAC de mi PC

[migvaz5]

Miren encontre un link donde esxplica como obtener la direccion mac
espero les sirva

Aclaro
Lo encontre en una pagina de internet.
Pascal and Delphi Code Snippet

1. uses NB30;
2. function GetAdapterInfo(Lana: Char): String;
3. var
4. Adapter: TAdapterStatus;
5. NCB: TNCB;
6. begin
7. FillChar(NCB, SizeOf(NCB), 0);
8. NCB.ncb_command := Char(NCBRESET);
9. NCB.ncb_lana_num := Lana;
10. if Netbios(@NCB) <> Char(NRC_GOODRET) then
11. begin
12. Result := 'mac not found';
13. Exit;
14. end;
15. FillChar(NCB, SizeOf(NCB), 0);
16. NCB.ncb_command := Char(NCBASTAT);
17. NCB.ncb_lana_num := Lana;
18. NCB.ncb_callname := '*';
19. FillChar(Adapter, SizeOf(Adapter), 0);
20. NCB.ncb_buffer := @Adapter;
21. NCB.ncb_length := SizeOf(Adapter);
22. if Netbios(@NCB) <> Char(NRC_GOODRET) then
23. begin
24. Result := 'mac not found';
25. Exit;
26. end;
27. Result :=
28. IntToHex(Byte(Adapter.adapter_address[0]), 2) + '-' +
29. IntToHex(Byte(Adapter.adapter_address[1]), 2) + '-' +
30. IntToHex(Byte(Adapter.adapter_address[2]), 2) + '-' +
31. IntToHex(Byte(Adapter.adapter_address[3]), 2) + '-' +
32. IntToHex(Byte(Adapter.adapter_address[4]), 2) + '-' +
33. IntToHex(Byte(Adapter.adapter_address[5]), 2);
34. end;
35. function GetMACAddress: string;
36. var
37. AdapterList: TLanaEnum;
38. NCB: TNCB;
39. begin
40. FillChar(NCB, SizeOf(NCB), 0);
41. NCB.ncb_command := Char(NCBENUM);
42. NCB.ncb_buffer := @AdapterList;
43. NCB.ncb_length := SizeOf(AdapterList);
44. Netbios(@NCB);
45. if Byte(AdapterList.length) > 0 then
46. Result := GetAdapterInfo(AdapterList.lana[0])
47. else
48. Result := 'mac not found';
49. end;
50. // usage
51. procedure TForm1.Button1Click(Sender: TObject);
52. begin
53. ShowMessage(GetMACAddress);
54. end;