Mandar uma mensagem quando o sistema expirar por determinada data....
27/02/2013
0
#Código
procedure TF_Principal.FormCreate(Sender: TObject);
begin
// bloqueia o sistema pela Data//
if not (now < strtodate('30/02/2013')) then
application.terminate;
end;
Francielio Medeiros
Posts
27/02/2013
Luiz Menin
Você pode tentar assim:
if not (now < strtodate('30/02/2013')) then begin MessageDlg('Entre em contato com o ....', mtWarning, [mbOK], 0); application.terminate; end; end;
28/02/2013
Francielio Medeiros
Você pode tentar assim:
if not (now < strtodate('30/02/2013')) then begin MessageDlg('Entre em contato com o ....', mtWarning, [mbOK], 0); application.terminate; end; end;
Deu certinho Muito obrigado...
28/02/2013
Perivaldo Martins
Você pode tentar assim:
if not (now < strtodate('30/02/2013')) then begin MessageDlg('Entre em contato com o ....', mtWarning, [mbOK], 0); application.terminate; end; end;
Deu certinho Muito obrigado...
Só lembrando que este é um metodo pouco eficiente, porque se ele apenas verificar a data alguém pode ter a idéia de altarar a data para o último dia em que o sistema funcionou, como a checagem é feita no OnCreate do Form principal, depois que ele for carregado é só voltar a data atual, trabalhaso para o usuário, pode até ser, espero que tenha sido apenas uma primeira idéia, se for guardar essa data em algum arquivo, banco de dados por exemplo, faça a criptografia.
Boa sorte e bons códigos!
01/03/2013
Francielio Medeiros
Você pode tentar assim:
if not (now < strtodate('30/02/2013')) then begin MessageDlg('Entre em contato com o ....', mtWarning, [mbOK], 0); application.terminate; end; end;
Deu certinho Muito obrigado...
Só lembrando que este é um metodo pouco eficiente, porque se ele apenas verificar a data alguém pode ter a idéia de altarar a data para o último dia em que o sistema funcionou, como a checagem é feita no OnCreate do Form principal, depois que ele for carregado é só voltar a data atual, trabalhaso para o usuário, pode até ser, espero que tenha sido apenas uma primeira idéia, se for guardar essa data em algum arquivo, banco de dados por exemplo, faça a criptografia.
Boa sorte e bons códigos!
Você Poderia me dar uma dica de como fazer isso porque ainda sou iniciante...
01/03/2013
Perivaldo Martins
Boa sorte e bons códigos.
01/03/2013
Luiz Menin
Até hoje não precisei deste tipo de proteção, porém, vou estudar caso um dia necessite.
Clique aqui para fazer login e interagir na Comunidade :)