ActiveDelphi

[sacripantas]

Olá amigos alguém poderia me esclarecer uma dúvida ? eu programei um sistema em Delphi 5 de Gerenciamento de Estoque e gostaria de fazer uma versão Trial que o cliente poderia usar por exemplo apenas por 30 dias, logo após esse prazo pedisse por exemplo uma numero seria gostaria de saber se é possivel eu fazer isso ? e como ? alguem pode me dar umas dicas ??


Valeeu !!l

[an.der.son]

Olá...

kra, existem varias maneiras de fazer isto.... ateh mesmo componentes de terceiros.

Mas, c vc quiser fazer na [i]munheca[/i], uma das maneiras de fazer, eh qdo o programa for executado pela primeira vez, vc cria uma chave no registro com a data de instalacao..
A cada execução vc verifica se já ultrapassou o data limite de uso (se ja passou de 30 dias).
Se passou vc grava uma chave dizendo que o programa estah expirado (para naum correr o risco do usuario voltar a data no calendario.
E por fim se estiver expirado vc cria uma rotina para solicitar uma chave de liberaçao....
E ao liberar o programa, vc pode criar uma chave (tb no registro) dizendo q o programa nunca expirará.

Qualquer dúvida sobre esta logica, poste aki q serei mais claro.

Abraços
_________________
Estou de volta!!!

[sacripantas]

Olá amigo obrigado pela atenção hehe...só tem um problema eu num sei montar essa lógica..vc pode me ajudar

OBRIGADOO

[Editado em 15/8/2005 por sacripantas]

[VirtualC]

Vc pode criar arquivos .ini tanto guardar nos registros do windows!!!!!! Guarde a data atual e a data de espiração.... A data atual vc altera sempre que o usuario executar o sistema... para ele naum ter a possibilidade de voltar a data!!!!
_________________
Caio Monteiro B. da Silva
Aluno de Mestrado
ITA - Instituto Tecnológico de Aeronáutica
Divisão de Ciência da Computação

[sacripantas]

Alguem poderia me dar umas dicas de como montar a Lógica do programa TRIAL, para ele pedir a chave após o prazo determinado

OBRIGADOO

[an.der.son]

Desculpem meu desabafo, mas, o pessoal deste forum adora resposta com código fonte.

[i]
//--------------------------------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
var
MyFile : String;
begin
MyFile := ExtractFilePath(Application.ExeName)+\'arq.ini\';

GravaIniS(\'Variaveis\',\'UltExec\',Date,MyFile);

if LerIni(\'Variaveis\',\'DtIntalacao\',MyFile) = \'\' then
//-- Grava data de instalacao
GravaIniS(\'Variaveis\',\'DtIntalacao\',Date,MyFile)
else if StrToDate(LerIni(\'Variaveis\',\'UltExec\',MyFile)) > Date then
//-- verifica se o usuario tentou burlar o calendario
MessageDlg(\'Você tentou atrasar a data pra usar o programa.\',mtWarning,[mbOk],0)
else if Date > StrToDate(LerIni(\'Variaveis\',\'DtIntalacao\',MyFile)) + 30 then
//-- Insira aki a rotina de solicitacao de liberacao
MessageDlg(\'Programa com data expirada.\',mtWarning,[mbOk],0)
end;


function LerIni(Secao, Variavel , Arquivo: String): String; overload;
var
ArqIni : tIniFile;
begin
ArqIni := tIniFile.Create(Arquivo);
Try
Result := ArqIni.ReadString(Secao, Variavel, Result);
Finally
ArqIni.Free;
end;
end;


Procedure GravaIniS(Secao,Variavel : String ; Valor : Variant ; Arquivo : String);
var
ArqIni : TIniFile;
begin
ArqIni := TIniFile.Create(Arquivo);
Try
ArqIni.WriteString(Secao,Variavel,Valor);
Finally
ArqIni.Free;
end;
end;

//--------------------------------------------------------------------------
[/i]

A rotina acima pode ser adaptada para registro do windows, o que dificultaria (um pouco soh) a localizacao do liberacao, melhoraria mais ainda se os valores fossem criptografados.

Abracos.
_________________
Estou de volta!!!

[Tchock]

Olá colega eu criei um pequeno sistema para fazer isso q vc quer so que ele trava com 28 dias e pede um numero de série para desbloquear o sistema