GetOrderDate

This function returns the date when order has been created.

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

Parameters

 iYear: PInteger   - Year in date of the order

 iMonth: PInteger  - Month in date of the order

 iDay: PInteger    - Day in date of the order

 iHour: PInteger   - Hours in date of the order

 iMinute: PInteger - Minutes in date of the order

Return value

 Returns nothing.

Requirements

 Library: IntelliProtectorDummy.lib

 Source: UnitIntelliProtector.pas

Example

uses UnitIntelliProtector;

//...

procedure TFormMain.ShowOrderDate();

var

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

begin

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

   if (iYear < 0) Then

       lOrderDate.Caption := '-1'

   else

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

end;