Proteção contra pirataria simples -DEMO

Pequeno e simples codigo de proteção para sistema demo.

Sistema de proteção para programas demo.

Abra o delphi e coloque no form um Timer;

feito isso vamos codificar o sisteminha:

crie um procedimento chamado verificar;//procedimento privado;
PRIVATE
procedure verificar;   //depois de criado pressione Ctrl+Shift+C

crie uma variavel chamada sharedata; // varivel global

var

sharedata:Tdatetime;

Procedure Tformpricipal.verificar;
begin
sharedata:=strtodate(''''20/05/211'''');//aqui vc escolha a data de expiração do sisteminha.
if date > sharadata  then
begin
showmessage(''''Programa expirou , procure um administrador'''');
application.terminate;
end;

click no timer e coloque o procedimento
verificar;

no Oncrate do formulario coloque tambem o procedimento.
verificar;

pronto! seu sistema de expiração esta apto a modificações fique a vontade.



Artigos relacionados