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.
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
-
Artigo
-
Artigo
-
Artigo
-
Artigo
-
Artigo