Obtener la dirección MAC (MAC ADDRESS)

[[rretamar]]

Un código que usé una vez:

Código Delphi [-]
Function GetPrimaryNicMacAddress: String;
Type
  TGUID = Record
    A, B: word;
    D, M, S: word;
    MAC: Array[ 1..6 ] Of byte;
  End;
Var
  UuidCreateFunc: Function(Var guid: TGUID): HResult; stdcall;
  handle: THandle;
  g: TGUID;
  WinVer: _OSVersionInfoA;
  i: integer;
  //  ErrCode : HResult;
Begin
  Try
    WinVer.dwOSVersionInfoSize := sizeof(WinVer); // Tamaño
    getversionex(WinVer);  // Obtiene info del Windows en uso
    handle := LoadLibrary('RPCRT4.DLL'); // Obtiene el handle de la DLL
    If WinVer.dwMajorVersion >= 5 Then {Windows 2000 ó superior}
      @UuidCreateFunc := GetProcAddress(Handle, 'UuidCreateSequential')
    Else // (Win98 o menor)
      @UuidCreateFunc := GetProcAddress(Handle, 'UuidCreate');
    UuidCreateFunc(g); // Obtiene la info
    Result := '';
    For i := 1 To 6 Do Result := Result + IntToHex(g.MAC[ i ], 2); // Concatena la MAC Address
  Except
    Result := ''; // Resultado nulo
  End;
End;

[marcial]

Gracias Rretamar, con esta rutina no hace falta tener el cable de red enchufado ni el NB30 en el uses

[[rretamar]]

Empezado por marcial

Gracias Rretamar, con esta rutina no hace falta tener el cable de red enchufado ni el NB30 en el uses

¿ Es una pregunta ?

No, no se necesita que la placa de red esté funcionando. Basta con que esté instalada para obtener su dirección MAC.

[alquimista]

He probado esta rutina y no muestra la mac de la tarjeta de red instalada..

En mi caso tengo instalada una maquina virtual y obtiene la mac de la tarjeta virtual...


Alguien conoce una solución que obtenga la mac de la tarjeta real???
gracias