Propriedade DateEnd

Sumário - Índice

Exemplo de Uso

Neste exemplo é informado o período de liberação de uso da aplicação.

procedure TForm1.FormActivate(Sender: TObject);
begin
Label1.Caption := 'Aplicação liberada para use de ' +
FormatDateTime('dd/mm/yyyy', EvAppProtect1.DateStart) + ' até ' +
FormatDateTime('dd/mm/yyyy', EvAppProtect1.DateEnd);
end;