Buscar

Expirar Sistema

Código


procedure TDM.DataModuleCreate(Sender: TObject);
Var Venc: TDateTime;
Texto: String;
ArquivoTexto: TextFile; {handle do arquivo texto}
DataAtual,UltimaData,DataFinal: String;
Var I, I2: Integer;
begin
AssignFile(ArquivoTexto,'C:Guard.ini'); {Associa o arquivo a uma variável do tipo TextFile}
Reset(ArquivoTexto); {Abre o arquivo texto}

//verifica se o sistema ja foi expirado
Readln(ArquivoTexto,Texto); {Armazena a linha atual do arquivo na string Texto e salta para a próxima linha}
If Texto[10] = 'S' then begin
ShowMessage('Periodo de validade expirado' + #13 + 'Contate o Programador');
Application.Terminate;
end;

//verifica ultima data em que o sistema foi aberto;
Readln(ArquivoTexto,Texto); {Armazena a linha atual do arquivo na string Texto e salta para a próxima linha}
For I:= 12 to 19 do begin
UltimaData:= UltimaData + Texto[I];
end;

//verifica data da expiração;
Readln(ArquivoTexto,Texto);
For I:= 15 to 22 do begin
DataFinal:= DataFinal + Texto[I];
end;

//verifica se o usuario não voltou a data do sistema;
If StrToDate(UltimaData) > Date then begin
ShowMessage('Verifique a data do sistema');
Application.terminate;
end
else begin
//recria o arquivo com as configurações atuais
Rewrite(ArquivoTexto);
Append(ArquivoTexto);

//verifica se a data de abertura é maior que a data de expiração
//para alterar o valor de expired;
If StrToDate(DataFinal) > Date then
Writeln(ArquivoTexto,'Expired: N')
else
Writeln(ArquivoTexto,'Expired: S');

Writeln(ArquivoTexto,'Last Date: ' + DateToStr(Date));
Writeln(ArquivoTexto,'Expires Date: ' + DataFinal);
end;
CloseFile(ArquivoTexto); {Fecha o arquivo texto}

 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Object pascal
Adicionada dia: 08/11/09
Por: Christian
Visualizada: 12537 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009