VMProtect Software » Forum

Code: Select all

try
  VMProtectBeginVirtualizationLockByKey('');
  ...
  VMProtectEnd();
  try
    ...
  except
    ...
  end 
finally
  ...
end;

Code: Select all

try
  VMProtectBeginVirtualizationLockByKey('');
  ...
  VMProtectEnd();
finally
  ...
end;

try
  try
     ...
     [код где происходит ошибка]
     ...
   except
     ...
   end;
finally
end;

Code: Select all

var S: String;
begin
try
  // ваш код здесь и и вам не нужно вызывать деструктор S, потому что, компилятор делает это сам в собственном finally блоке
finally
  S.Free();
end;
end;

Code: Select all

procedure TForm1.Button1Click(Sender: TObject);
var sList : TStringList;
begin
  VMProtectBeginUltraLockByKey('Test.Protect');
  VMProtectEnd;

  try
    sList[0] := 'Test string'; // тут будет AccessViolation
  finally
    ShowMessage('finally for s[0]');
  end;
end;

Code: Select all

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses VMProtectSDK;

procedure TForm1.Button1Click(Sender: TObject);
var sList : TStringList;
begin
  VMProtectBeginUltraLockByKey('Test.Protect');
  VMProtectEnd;

  try
    sList[0] := 'Test string';
  finally
    ShowMessage('finally for s[0]');
  end;
end;

end.

Code: Select all

program Project1;

uses
  Vcl.Forms,
  Unit1 in 'Unit1.pas' {Form1},
  VMProtectSDK in '..\..\..\Borland Studio Projects\Project\Common.VCL.VMProtect\VMProtectSDK.pas';

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.