GetProtectionDate

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

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

Parameters

 iYear: PInteger   - Year in date of the protection

 iMonth: PInteger  - Month in date of the protection

 iDay: PInteger    - Day in date of the protection

 iHour: PInteger   - Hours in date of the protection

 iMinute: PInteger - Minutes in date of the protection

Return value

 Returns nothing.

Requirements

 Library: IntelliProtectorDummy.lib

 Source: UnitIntelliProtector.pas

Example

procedure TFuses UnitIntelliProtector;

//...

ormMain.ShowProtectionDate();

var

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

begin

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

   if (iYear < 0) Then

       lProtectionDate.Caption := '-1'

   else

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

end;