Fórum Codigo de Trial #332611

bom pessoal é o seguinte, eu estou fazendo um programa trial aqui so que esta dando um probleminha, pois quando pula de data por exemplo passa um dia ele ja aparece a caixa pedindo pra digitar o codigo de ativação novamente sendo que eu coloquei pra expirar em 90 dias.

vou colocar o código abaixo pra vcs darem uma olhada e ver se tem alguma coisa errada ta ok....valeu pessoal conto com a ajuda de vcs.

[b:dcf2e99d60]codigo:[/b:dcf2e99d60]

//arquivo que verifica se é 1º vez que é aberto
if FileExists(´C:\Arquivos de programas\mrmidia\mrmconf.mrm´)then
begin
AssignFile(Arquivo,´C:\Arquivos de programas\mrmidia\mrmconf.mrm´);
Reset(Arquivo);
Readln(Arquivo,linha);
end
else
begin
ShowMessage(´Arquivo nao encontrado´);
Application.Terminate;
end;
if linha = ´0´then // Testa se é a primeira vez que o sistema é acessado
begin
linha:=´1´;
ReWrite(Arquivo);
Writeln(Arquivo,linha);
CloseFile(Arquivo);
IncData:= TStringList.Create;
//dll que grava informações de expiração
FileName:= (´C:\Arquivos de programas\mrmidia\mrm.dll´);
//FileName:= Decriptografar(´C:\Arquivos de programas\mrmidia\mrm.dll´,1);
if not FileExists(FileName) then
begin
IncData.Add(DateToStr(Date));
IncData.Add(DateToStr(Date));
IncData.Add(´0´);
IncData.Add(´1´);
IncData.Add(ExtractDiskSerial(´C´));
IncData.SaveToFile(FileName);
end;
IncData.Free;
end
else
begin
FileName:= Decriptografar(´C:\Arquivos de programas\mrmidia\mrm.dll´,1);
if FileExists(FileName) then
begin
IncData:= TStringList.Create;
IncData.LoadFromFile(FileName);
if (IncData[4] <> ExtractDiskSerial(´C´)) then
begin
Application.MessageBox(´Esse sistema está protegido com um dispositivo anti-cópia. Então não será possível acessa-lo em outro microcomputador sem autorização. Para maiores informações entre em contatgList.Create;
//dll que grava informações de expiração
FileName:= (´C:\Arquivos de programas\mrmidia\mrm.dll´);
//FileName:= Decriptografar(´C:\Arquivos de programas\mrmidia\mrm.dll´,1);
if not FileExists(FileName) then
begin
IncData.Add(DateToStr(Date));
IncData.Add(DateToStr(Date));
IncData.Add(´0´);
IncData.Add(´1´);
IncData.Add(ExtractDiskSerial(´C´));
IncData.SaveToFile(FileName);
end;
IncData.Free;
end
else
begin
FileName:= Decriptografar(´C:\Arquivos de programas\mrmidia\mrm.dll´,1);
if FileExists(FileName) then
begin
IncData:= TStringList.Create;
IncData.LoadFromFile(FileName);
if (IncData[4] <> ExtractDiskSerial(´C´)) then
begin
Application.MessageBox(´Esse sistema está protegido com um dispositivo anti-cópia. Então não será possível acessa-lo em outro microcomputador sem autorização. Para maiores informações entre em contato com o suporte[(33)3275-4567].´, ´Erro - Acesso Negado´, MB_IconError + MB_OK);
Application.Terminate;
end;
end
else
begin
Application.MessageBox(´Acesso incorreto ao sistema. Um arquivo .dll requerido está faltando. Entre em contato com o suporte[(33)3275-4657].´, ´Acesso Incorreto´, MB_IconExclamation + MB_OK);
Application.Terminate;
end;
IncData.Free;
end;
FileName:= (´C:\Arquivos de programas\mrmidia\mrm.dll´);
IncData:= TStringList.Create;
IncData.LoadFromFile(FileName);
if (IncData[3]) = ´1´ then
begin
IncData:= TStringList.Create;
FileName:= Decriptografar(´C:\Arquivos de programas\mrmidia\mrm.dll´,1);
end;
if FileExists(FileName)then
begin
IncData.LoadFromFile(FileName);
if IncData[1] > DateToStr(Date) then
begin
IncData.Strings[2]:= ´90´;
end
else
if (IncData[0]) + IntToStr(90) >= DateToStr(Date) then
begin
IncData.Strings[1¬o com o suporte[(33)3275-4567].´, ´Erro - Acesso Negado´, MB_IconError + MB_OK);
Application.Terminate;
end;
end
else
begin
Application.MessageBox(´Acesso incorreto ao sistema. Um arquivo .dll requerido está faltando. Entre em contato com o suporte[(33)3275-4657].´, ´Acesso Incorreto´, MB_IconExclamation + MB_OK);
Application.Terminate;
end;
IncData.Free;
end;
FileName:= (´C:\Arquivos de programas\mrmidia\mrm.dll´);
IncData:= TStringList.Create;
IncData.LoadFromFile(FileName);
if (IncData[3]) = ´1´ then
begin
IncData:= TStringList.Create;
FileName:= Decriptografar(´C:\Arquivos de programas\mrmidia\mrm.dll´,1);
end;
if FileExists(FileName)then
begin
IncData.LoadFromFile(FileName);
if IncData[1] > DateToStr(Date) then
begin
IncData.Strings[2]:= ´90´;
end
else
if (IncData[0]) + IntToStr(90) >= DateToStr(Date) then
begin
IncData.Strings[1]:= (DateToStr(Date));
IncData.Strings[2]:= IntToStr(ContaDias(StrToDate(IncData.Strings[0]), Date));
end
else
if (IncData.Strings[0] + IntToStr(90)) > DateToStr(Date) then
begin
IncData.Strings[2]:= ´90´;
end;
//Teste:=Decriptografar(IncData[2],1);
if (IncData.Strings[2]) >= ´90´ then
begin
IncData[2] := ´0´;
IncData[3] := ´1´;
IncData.SaveToFile(FileName);
end
end;
if not (IncData[2] >= ´90´) then
begin
IncData[1]:= (DateToStr(Date));
IncData.SaveToFile(FileName);
end;
if not FileExists(Filename) then
begin
Application.MessageBox(´Acesso incorreto ao sistema. Um arquivo .dll requerido está faltando. Entre em contato com o suporte[(33)3275-4567].´, ´Acesso Incorreto´, MB_IconExclamation + MB_OK);
Application.Terminate;
end;
if (IncData[3]) = ´1´ then
begin
FrmDigCodigo:= TFrmDigCodigo.Create(Application);
5D:= (DateToStr(Date));
IncData.Strings[2]:= IntToStr(ContaDias(StrToDate(IncData.Strings[0]), Date));
end
else
if (IncData.Strings[0] + IntToStr(90)) > DateToStr(Date) then
begin
IncData.Strings[2]:= ´90´;
end;
//Teste:=Decriptografar(IncData[2],1);
if (IncData.Strings[2]) >= ´90´ then
begin
IncData[2] := ´0´;
IncData[3] := ´1´;
IncData.SaveToFile(FileName);
end
end;
if not (IncData[2] >= ´90´) then
begin
IncData[1]:= (DateToStr(Date));
IncData.SaveToFile(FileName);
end;
if not FileExists(Filename) then
begin
Application.MessageBox(´Acesso incorreto ao sistema. Um arquivo .dll requerido está faltando. Entre em contato com o suporte[(33)3275-4567].´, ´Acesso Incorreto´, MB_IconExclamation + MB_OK);
Application.Terminate;
end;
if (IncData[3]) = ´1´ then
begin
FrmDigCodigo:= TFrmDigCodigo.Create(Application);
FrmDigCodigo.ShowModal;
FrmDigCodigo.Free;
IncData.Free;
end;
end;