Enter topic text here.

 TCode = packed record

   CheckValue : Word;               {magic value}

   Expiration : Word;               {expiration date or 0, if none}

   case Byte of

     0 : (FirstDate    : Word;      {for date code}

          EndDate      : Word);

     1 : (Days         : Word;      {for days code}

          LastAccess   : Word);

     2 : (RegString    : LongInt);  {for reg code}

     3 : (SerialNumber : LongInt);  {for serial number code}

     4 : (UsageCount   : Word;      {for usage count code}            {!!.02}

          LastChange   : Word);                                       {!!.02}

     5 : (Value        : LongInt);  {for specail codes}

     6 : (NetIndex     : LongInt);  {for net codes}

 end;

Defined in ogutil unit.

Usable date range: 1996-Jan-02 through 2175-Jun-06.

A 0 date will be returned as 9999-Jan-1 via the ExpandDate function.

The CheckValue field is one of the following:

 DaysCheckCode    = $649B

 DateCheckCode    = $A4CB

 NetCheckCode     = $9341

 RegCheckCode     = $D9F6

 SerialCheckCode  = $3C69

 UsageCheckCode   = $F3D5

 SpecialCheckCode = $9C5B