GetCurrentActivationDate

This function gets the date, when software has been activated.

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

Parameters

 iYear: PInteger   - Year in date of the activation

 iMonth: PInteger  - Month in date of the activation

 iDay: PInteger    - Day in date of the activation

 iHour: PInteger   - Hours in date of the activation

 iMinute: PInteger - Minutes in date of the activation

Return value

 Returns nothing.

Requirements

 Library: IntelliProtectorDummy.lib

 Source: UnitIntelliProtector.pas

Example

uses UnitIntelliProtector;

//...

procedure TFormMain.ShowCurrentActivationDate();

var

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

begin

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

   if (iYear < 0) Then

       lCurrentActivationDate.Caption := '-1'

   else

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

end;