Buenos día a todos! cuanto tiempo sin pasar por aquí!
Os pongo en antecedentes! encontré hace tiempo una función por aquí que me devolvía la MAC y está genial pero tengo un ligero problemilla!
Dicha función la uso para el registro de mi aplicación yhace tiempo me paso en un cliente pero uno entre más de 300 pensaba que sería problema suyo y lo arreglé saltándome ésa validación pero debería meter un código que solo yo conozco y me mandaba un mail cada vez que lo hacía con varias características del ordenador, por si me hackeaban la aplicación.
Bien el problema es que me ha vuelto a pasar con otro cliente totalmente distinto, cada vez que apaga el ordenador la función me devuelve una MAC distinta y por tanto me des-registra la aplicación.
Os pongo la función para ver si me sabéis decir el por qué de éste problema porque yo llevo dos semanas volviéndome loco y no lo encuentro.
Código:
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;
Gracias de antemano!
Quique~