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

破解

开发平台:

Others

  1. program Test;
  2. uses
  3.   Windows;
  4. Function EnvelopeCheck: Boolean;
  5. {$I IncDelphiEnvelopeCheckFunc.inc}
  6. begin
  7.   MessageBox(0,'Begin','',0);
  8.   {$I IncDelphiEnvelopeCheck.inc}
  9.   If EnvelopeCheck then MessageBox(0,'Envelope found!','',0) else
  10.                         MessageBox(0,'Envelope not found!','',0);
  11.   MessageBox(0,'End','',0);
  12. end.