- program Test;
- uses
- Windows;
- Function EnvelopeCheck: Boolean;
- {$I IncDelphiEnvelopeCheckFunc.inc}
- begin
- MessageBox(0,'Begin','',0);
- {$I IncDelphiEnvelopeCheck.inc}
- If EnvelopeCheck then MessageBox(0,'Envelope found!','',0) else
- MessageBox(0,'Envelope not found!','',0);
- MessageBox(0,'End','',0);
- end.