Navigation:  »No topics above this level« InitUsageCodeUnlimited procedure 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.