mxProtector x32 y x64

[genyus00]

Hola, en la unidad msProtector.pas antes de la linea Function TmxProtector.InternalGetHardwareID: String; agregar funcion:

Código Delphi [-]
function GetCPUVendorStr: string;//
var
  Vendor: TVendor;
begin
  Vendor := GetCPUVendor;
  SetString(Result, PAnsiChar(@Vendor[0]), Length(Vendor));
end;
// *************************************************************************************
// ** TmxProtector.InternalGetHardwareID, 10/12/01 2:04:03 PM
// *************************************************************************************

Function TmxProtector.InternalGetHardwareID: String;

y dentro de Function TmxProtector.InternalGetHardwareID: String; modificar:

Código Delphi [-]
//Quitar: W1057 Implicit string cast from 'AnsiChar' to 'string' por cambio en TVendor = array[0..11] de Char por AnsiChar;
ID_5 := GetCPUVendor;   =>  ID_5 := GetCPUVendorStr;

espero les sirva.

[Neftali [Germán.Estévez]]

[MAXIUM]

Hola, muchas gracias.

Lo he implementado en Delphi 10.4.2 pero sigue diciendo que el número de serie no funciona
https://delphiallimite.blogspot.com/...otector-2.html

Empezado por genyus00

Hola, en la unidad msProtector.pas antes de la linea Function TmxProtector.InternalGetHardwareID: String; agregar funcio:

Código Delphi [-]
function GetCPUVendorStr: string;//
var
  Vendor: TVendor;
begin
  Vendor := GetCPUVendor;
  SetString(Result, PAnsiChar(@Vendor[0]), Length(Vendor));
end;
// *************************************************************************************
// ** TmxProtector.InternalGetHardwareID, 10/12/01 2:04:03 PM
// *************************************************************************************

Function TmxProtector.InternalGetHardwareID: String;

y dentro de Function TmxProtector.InternalGetHardwareID: String; modificar:

Código Delphi [-]
//Quitar: W1057 Implicit string cast from 'AnsiChar' to 'string' por cambio en TVendor = array[0..11] de Char por AnsiChar;
ID_5 := GetCPUVendor;   =>  ID_5 := GetCPUVendorStr;

espero les sirva.

[MAXIUM]

Empezado por MAXIUM

Lo he implementado en Delphi 10.4.2 pero sigue diciendo que el número de serie no funciona
https://delphiallimite.blogspot.com/...otector-2.html

OK, el componente viene con código de ejemplo como mxProtector\Demo\KeyGenerator\Application pero no funciona porque siempre arroja el mensaje This serial number is invalid! cuando se quiere proteger por número de serie.

La solución sería agregar este código al igual como aparece la app encargada de generar el número de serie

Código Delphi [-]
procedure Tfrm_MainWindow.mxProtectorGetHardwareID(Sender: TObject; var HardwareID: string);
begin
     HardwareID := Edit_HWID.Text;
end;

[MAXIUM]

Hola,

Quiero probar la opción de Trial y tengo la siguiente inquietud.

¿Qué ocurre si dejo corriendo el programa hasta más allá de la fecha límite? ¿Alguien sabe si se activa el trial o solo funciona al arrancar la app?