Os dejo este componente gratuito que sirve para encontrar la información de la Bios del Ordenador, por si queréis sacar desde vuestro programa el ID de la placa del PC.
https://github.com/RRUZ/tsmbios
Es muy sencillo, tan solo teneis que meter esta función:
Código:
uses
uSMBIOS,
function Get_CPU_ID: String;
var
SMBios: TSMBios;
LSystem: TSystemInformation;
begin
try
// wmic bios get serialnumber
SMBios := TSMBios.Create;
LSystem := SMBios.SysInfo;
Result := LSystem.SerialNumberStr;
finally
SMBios.Free;
end;
end;
Espero que os sirva, Un saludo.