GetCurrentRegistrationDate

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

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

Parameters

 iYear: PInteger   - Year in date of the registration

 iMonth: PInteger  - Month in date of the registration

 iDay: PInteger    - Day in date of the registration

 iHour: PInteger   - Hours in date of the registration

 iMinute: PInteger - Minutes in date of the registration

Return value

 Returns nothing.

Requirements

 Library: IntelliProtectorDummy.lib

 Source: UnitIntelliProtector.pas

Example

uses UnitIntelliProtector;

//...

procedure TFormMain.ShowCurrentRegistrationDate();

var

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

begin

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

   if (iYear < 0) Then

       lCurrentRegistrationDate.Caption := '-1'

   else

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

end;