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}
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009