InitUsageCodeUnlimited
procedure InitUsageCode (const Key : TKey; var Code : TCode);
InitUsageCodeUnlimitedprocedure InitUsageCode (const Key : TKey; var Code : TCode); |
  
|
InitUsageCodeUnlimited creates and initializes a usage code using Key, Count=65535, Expires=65535, and LastChange=1.
Count is stored as part of the Code.
The resulting code is valid until the internal Count is 0 or the date stored in Expires is reached.
This routine is defined in the OgUtil unit.
Added in 1.15.
Only available if the conditional define OgUsageUnlimited is enabled.