Licence Protector 5

ExpiredOn

Name

ExpiredOn

Purpose

Gets the date when the module expires.

Params

Parameter	Type	Example	Note
ModuleID	String	D1001	Unique ModuleID – identifies the module to be tested

Returncode

Type Date

Note

1899-12-30 representing 0 as float value

The module never expires or an error occurred. Check LastReturncode!

Other dates

Date when that module expires

Usage

E.g. to show the user when a part of your software isn’t usable any more.

Sample

dtExpire := lic.ExpiredOn (‘D1006’);

if dtExpire = 0 then

begin

iErr := lic.LastReturnCode;

if iErr <> 0 then

begin

<< react on error code >>

...

end

else

begin

<< module never expires >>

...

end

else

begin

<< module expires at dtExpire >>

...