Muitas vezes vemos que muitas versões de teste de software baixadas online têm limites de tempo de uso. Do ponto de vista comercial, também é uma medida para proteger os benefícios do software. eles podem comprar software comercial. A função de código de exemplo descrita neste artigo é como adicionar uma função de limite de tempo ao programa escrito em Delphi. O limite de tempo padrão aqui é de 30 dias.
O código principal é o seguinte:
unit Unit1;faz interface com Windows, Mensagens, SysUtils, Classes, Gráficos, Controles, Formulários, Registro, Diálogos;tipo TForm1 = class(TForm) procedimento FormCreate(Sender: TObject) private { Declarações privadas } public { Declarações públicas } end;var); Form1: TForm1;procedimento de implementação{$R *.DFM} TForm1.FormCreate(Sender: TObject);var RegisterTemp : TRegistry; curDate : TDateTime;begin registerTemp := TRegistry.Create; com registerTemp do start RootKey := HKEY_LOCAL_MACHINE; 'Software/MySoftware' ,True) então comece if ReadBool('Runned') then //Esta não é a primeira vez que a execução começa curDate := Data if (curDate-ReadTime('LastRunTime'))>=ReadInteger('Duration') then start //O tempo atual do sistema excede o período de uso ShowMessage('A versão de teste expirou end else'); start DeleteKey('LastRunTime'); WriteTime('LastRunTime',Date; end else begin //Executa o programa pela primeira vez DeleteKey('Runned'); WriteBool('Runned',True); //Definir o período de teste por 30 dias WriteInteger('Duration',30); //Escrever o tempo de execução atual WriteTime('LastRunTime',Date end else Begin ShowMessage(); 'Falha!'); fim;FecharKey;fim;fim;fim.