mxProtector x32 y x64

[genyus00]

Hola, de modo que compilara sin colocar problemas con las versiones delphi a la fecha aplique esta modificacion, espero les sirva.

Código Delphi [-]
procedure ShowAboutBox(const ComponentName: String);
begin
  with Tfrm_AboutBox.Create(Application) do
  try
    Lbl_ComponentName.Caption := ComponentName;

    Lbl_Delphi.Caption := 'Compiled in ' +

{$IFDEF VER80} 'Delphi 1.0' {$ENDIF}
{$IFDEF VER90} 'Delphi 2.0' {$ENDIF}
{$IFDEF VER100} 'Delphi 3.0' {$ENDIF}
{$IFDEF VER120} 'Delphi 4.0' {$ENDIF}
{$IFDEF VER130} 'Delphi 5.0' {$ENDIF}
{$IFDEF VER140} 'Delphi 6.0' {$ENDIF}

{$IF CompilerVersion = 15.0} 'Delphi 7.0' {$IFEND}
{$IF CompilerVersion = 16.0} 'Delphi 8.0' {$IFEND}
{$IF CompilerVersion = 17.0} 'Delphi 2005' {$IFEND}
{$IF CompilerVersion = 18.0} 'Delphi 2006' {$IFEND}
{$IF CompilerVersion = 18.5} 'Delphi 2007' {$IFEND}
{$IF CompilerVersion = 20.0} 'Delphi 2009' {$IFEND}
{$IF CompilerVersion = 21.0} 'Delphi 2010' {$IFEND}
{$IF CompilerVersion = 22.0} 'Delphi XE' {$IFEND}
{$IF CompilerVersion = 23.0} 'Delphi XE2' {$IFEND}
{$IF CompilerVersion = 24.0} 'Delphi XE3' {$IFEND}
{$IF CompilerVersion = 25.0} 'Delphi XE4' {$IFEND}
{$IF CompilerVersion = 26.0} 'Delphi XE5' {$IFEND}
{$IF CompilerVersion = 27.0} 'Delphi XE6' {$IFEND}
{$IF CompilerVersion = 28.0} 'Delphi XE7' {$IFEND}
{$IF CompilerVersion = 29.0} 'Delphi XE8' {$IFEND}
{$IF CompilerVersion = 30.0} 'Delphi 10 Seattle' {$IFEND}
{$IF CompilerVersion = 31.0} 'Delphi 10.1 Berlin' {$IFEND}
{$IF CompilerVersion = 32.0} 'Delphi 10.2 Tokyo' {$IFEND}
{$IF CompilerVersion = 33.0} 'Delphi 10.3 Rio' {$IFEND}
{$IF CompilerVersion = 34.0} 'Delphi 10.4 Sydney' {$IFEND}
{$IF CompilerVersion = 35.0} 'Delphi 11 Alexandria' {$IFEND}
{$IF CompilerVersion = 36.0} 'Delphi 12 Athens' {$IFEND}

    ;

    ShowModal;
  finally
    Free;
  end;
end;

[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?