VMProtect Software » Forum

Code: Select all

procedure OnBeforeCompilation;
var I:Integer;
    A:int64;
begin
 with VMProtector do
   for I:=0 to Count-1 do with Procedures[I] do if codeType=otString then
     for A:=Address to BreakAddress do pByte(A)^:=0; // не важно что туда пишем, вопрос можно ли?
end;

Code: Select all

with VMProtector do
   for I:=0 to InputFile.MapRecords.Count-1 do
    with InputFile.MapRecords.Items[I] do
     if CodeType=otString then
       begin  
         ...
       end;