test.dpr
上传用户:graphite
上传日期:2020-09-09
资源大小:2587k
文件大小:1k
源码类别:

破解

开发平台:

Others

  1. program Test;
  2. uses
  3.   SysUtils,
  4.   Windows;
  5. //-------------------------------------------------------------------------------
  6. Procedure Main( SecureValue : DWORD );
  7. begin
  8.   {$I IncDelphiCrcBegin.inc}
  9.   MessageBox(0,PChar(IntToHex(SecureValue,4)),'Under protection',0);
  10.   {$I IncDelphiCrcEnd.inc}
  11. end;
  12. //-------------------------------------------------------------------------------
  13. begin
  14.   MessageBox(0,'Begin','',0);
  15.   {$I IncDelphiCrcBegin.inc}
  16.   Main( $12345678 );
  17.   {$I IncDelphiCrcEnd.inc}
  18.   MessageBox(0,'End','',0);
  19. end.