Examples

uses
enigma_ide;// the module contains a definitions of Enigma APIprocedure CheckTrial;var
TotalDays :integer;
LeftDays :integer;beginif EP_TrialDays(TotalDays, LeftDays)thenbeginif LeftDays =0thenbegin
MessageBox(0,'Your trial period has expired! You must purchase application to take effect!','Application',0);
ExitProcess(0);end;endelse
MessageBox(0,'I seem that you have forgotten to define days trial limit in Enigma!','Application',0);end;

#include "include/enigma_api.h"// the module contains a definitions of Enigma API#pragma link "include/enigma_ide.lib"void CheckTrial(){int TotalDays;int LeftDays;if(EP_TrialDays(&TotalDays,&LeftDays)){if(LeftDays ==0){MessageBox(0,"Your trial period has expired! You must purchase application to take effect!","Application",0);ExitProcess(0);}}else{MessageBox(0,"I seem that you have forgotten to define days trial limit in Enigma!","Application",0);}}

See function examples in the installation folder, Examples\Trial subfolder.