Travar o Sistema depois de 30 Dias

Question

Pessoal,Algu�m tem alguma solu��o para depois de 30 dias do cliente utilizando o sistema, se ele n�o pagar o sistema ap�s 30 dias bloqueia o acesso.S� mediante o pagamento eu poderia estar dizendo uma...

Zacca · Answer

amigo procure o componente avlock...

Wagner · Answer

Colega eu uso esse codigo e bem simple e facil, mais tambem e facil de ser burlado se a data do sistema for alterado, em compensa��o se o cliente usar consulta por data do sistema os dados n�o aparece atualizado :wink:

var
dias : double;
data : tdate;
begin
Data := Date();
if data > strtodate(�15/03/2004�) then
begin
showmessage(�Aten��o! Contacte o programador responsavel�);
Application.Terminate;
end
else
begin
dias := strtodate(�15/03/2004�) - date();
showmessage(�ATEN��O, essa e uma vers�o TRIAL voc� tem � + floattostr(dias) + � dias para o termino de avalia��o e o programa expirar, contacte o programador�)
end;
end;

Essa j� foi uma dica que me deram e funciona para o que eu quero espero ter ajudado :P

F�rum Travar o Sistema depois de 30 Dias #217604