test.dpr

来自「ASProtect的2.4版」· DPR 代码 · 共 22 行

program Test;

uses
  Windows;


Function EnvelopeCheck: Boolean;
{$I Inc\DelphiEnvelopeCheckFunc.inc}


begin

  MessageBox(0,'Begin','',0);

  {$I Inc\DelphiEnvelopeCheck.inc}

  If EnvelopeCheck then MessageBox(0,'Envelope found!','',0) else
                        MessageBox(0,'Envelope not found!','',0);

  MessageBox(0,'End','',0);

end.