TICKET BAI (TicketBAI); Nuevo sistema de la Agencia Tributaria del Pais Vasco

[elcharlie]

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:

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.