GetSupportExpirationDate

This function gets the date, when support will be expired.

procedure GetLicenseExpirationDate(iYear:PInteger; iMonth:PInteger; iDay:PInteger; iHour:PInteger; iMinute:PInteger);

Parameters

 iYear: PInteger   - Year in date

 iMonth: PInteger  - Month in date

 iDay: PInteger    - Day in date

 iHour: PInteger   - Hours in date

 iMinute: PInteger - Minutes in date

Return value

 Returns nothing.

Requirements

 Library: IntelliProtectorDummy.lib

 Source: UnitIntelliProtector.pas

Example

uses UnitIntelliProtector;

//...

procedure TFormMain.ShowSupportExpirationDate();

var

 iYear, iMonth, iDay, iHour, iMinute: Integer;

begin

   IntelliProtector.GetLicenseExpirationDate(Addr(iYear), Addr(iMonth), Addr(iDay), Addr(iHour), Addr(iMinute));

   if (iYear < 0) Then

       lSupportExpirationDate.Caption := '-1'

   else

       lSupportExpirationDate.Caption := Format('%d.%d.%d %d:%d', [iDay, iMonth, iYear, iHour, iMinute]);

end;