Buscar por:

Programa Funciona por um periodo

Código

Faça um banco de dados com campos Instal (Date), Periodo(N),Trava(Alfa)(1), No form que inicia do programa digite a sequinte rotina:

procedure TFrm_Login.FormShow(Sender: TObject);

begin

 Dm.Tb_Config.Open;

 Dm.Tb_Config.Edit;

 If Date() - Dm.Tb_ConfigInstal.Value > Dm.Tb_ConfigPeriodo.Value then

  Begin

   ShowMessage('O Prazo de utilização do Sistema Expirou,entre em contato com'#13'o desenvolvedor 8145-9686 - pss.maia@hotmail.com.');

   Dm.Tb_ConfigTrava.Value:='S';

   Dm.Tb_Config.Post;

   Dm.Tb_Config.Close;

   Close;

  end

 Else

  Begin

   If Dm.Tb_ConfigTrava.Value='S' then

    Begin

     ShowMessage('Não adianta mudar a data do sistema, o problema não é esse.');

     Dm.Tb_Config.Close;

     Close;

   end;

end;

end;