function TfmMain.GetCRC32(FileName: string): string;

 

begin

 

 {$I VM_Start.inc}             // the following block of code is protected with an "VM" macro

                                 

 BuildCRCTable;                  

 CRC := $FFFFFFFF;              

                                 

 AssignFile(F, FileName);        

 FileMode := 0;                  

 Reset(F);                      

 

{$I VM_End.inc}               // end of "VM" macro

 

 GetMem(Buffer, SizeOf(B));

 

{$I Registered_Start.inc}       // the following block of code is protected with a "Registered" macro

 

 repeat

   FillChar(b, SizeOf(b), 0);

   BlockRead(F, b, SizeOf(b), e);

   for i := 0 to (e-1) do

    CRC := RecountCRC(b[i], CRC);

 until (e < 255) or (IOresult <> 0);

 

{$I Registered_End.inc}         // end of "Registered" macro

 

 {$I Mutate_Start.inc}             // the following block of code is protected with an "Mutate" macro

 

 FreeMem(Buffer, SizeOf(B));

 CloseFile(F);

 CRC := Not CRC;

 Result := '$' + HextL(CRC);

 

 {$I Mutate_End.inc}               // end of "Mutate" macro

 

end;

LRESULT CALLBACK MainHandler(HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam)

{

   switch (message)

   {

   case WM_INITDIALOG:

       

      VM_START                       // the following block of code is protected with a "CodeReplace" macro

 

       if (WLRegGetStatus(NULL) == 1)

       {

           WLRegGetLicenseInfo(Name, Company, ExtraData);

           SetDlgItemText(hDlg, IDC_NAMEEDIT, Name);

           SetDlgItemText(hDlg, IDC_COMPANYNAME, Company);

           SetDlgItemText(hDlg, IDC_EXTRAEDIT, ExtraData);

       }

 

      VM_END                         // end of "VM" macro

       

       return TRUE;

 

   case WM_COMMAND:

 

       if (LOWORD(wParam) == IDCANCEL)

       {

          MUTATE_START                       // the following block of code is protected with an "Encode" macro

           

           EndDialog(hDlg, LOWORD(wParam));

 

          MUTATE_END                         // end of "Mutate" macro

 

           return TRUE;

       }

       break;

   }

   return FALSE;

}

Private Sub CheckStatusButton_Click()

 

  If AppStatus <> 1 Then

   

        Call VarPtr("VMStart")    

   

       TrialDaysLeftLabel.Caption = WLTrialDaysLeft

       TrialExecLeftLabel.Caption = WLTrialExecutionsLeft

       MinutesLabel.Caption = WLTrialGlobalTimeLeft

       RuntimeLabel.Caption = WLTrialRuntimeLeft

       

      Call VarPtr("VMEnd")        

       

   End If

   

End Sub