1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52
   |  
//
// DECLARATION DES VARIABLES DATE
//
  TDateTime iDate ,
            dDate ,
            mDate ,
            cDate ;
 
  int nExec ;
 
  cDate = Date() ;
 
//
// INSTANCIATION SUR LE REGISTRE
//
  TRegistry *RegEdit = new TRegistry();
 
  try
    {
      RegEdit -> RootKey = HKEY_LOCAL_MACHINE ;
 
      if(RegEdit -> OpenKey("\\Software\\kmaniche\\", false))
         {
           iDate = RegEdit -> ReadDate   ("iDate") ;
           dDate = RegEdit -> ReadDate   ("dDate") ;
           mDate = RegEdit -> ReadDate   ("mDate") ;
           nExec = RegEdit -> ReadInteger("nExec") ;
 
           if(nExec != 1350)
             if((nExec != 27414)||((cDate<iDate)||(cDate>mDate)||(cDate<dDate)))
               {
                 RegEdit -> WriteInteger("nExec", 41472) ;
                 Application -> Terminate() ;
               }
             else
                 RegEdit -> WriteDate("dDate", cDate) ;
         }
      else
         {
          RegEdit -> OpenKey("\\Software\\kmaniche\\", true) ;
          RegEdit -> WriteDate   ("iDate", cDate) ;
          RegEdit -> WriteDate   ("dDate", cDate) ;
          RegEdit -> WriteDate   ("mDate", cDate+30) ;
          RegEdit -> WriteInteger("nExec", 27414) ;
         }
    }
  __finally
    {
      if(RegEdit)
        delete RegEdit ;
    } | 
Partager