A menudo vemos que muchas versiones de prueba de software descargadas en línea tienen límites de tiempo de uso. Desde una perspectiva comercial, también es una medida para proteger los beneficios del software. Permite a los usuarios probarlo gratis durante un período de tiempo. pueden comprar software comercial. La función de código de ejemplo descrita en este artículo es cómo agregar una función de límite de tiempo al programa escrito en Delphi. El límite de tiempo predeterminado aquí es 30 días.
El código principal es el siguiente:
unidad Unidad1; interfaz utiliza Windows, Mensajes, SysUtils, Clases, Gráficos, Controles, Formularios, Registro, Diálogos; escriba TForm1 = clase (TForm) procedimiento FormCreate (Remitente: TObject privado {Declaraciones privadas} público {Declaraciones públicas} fin;var); Formulario1: TForm1;procedimiento de implementación{$R *.DFM} TForm1.FormCreate(Sender: TObject);var RegisterTemp: TRegistry; curDate: TDateTime;begin RegisterTemp:= TRegistry.Create; con RegisterTemp comienza RootKey:= HKEY_LOCAL_MACHINE //Determine si ejecutar el programa por primera vez si OpenKey( 'Software/MiSoftware', Verdadero) luego comience si ReadBool('Ejecutado') entonces //Esta no es la primera vez que se ejecuta comenzar curDate := Fecha; if (curDate-ReadTime('LastRunTime'))>=ReadInteger('Duración') luego comenzar // La hora actual del sistema excede el período de uso ShowMessage('La versión de prueba ha caducado'); comenzar DeleteKey('LastRunTime'); WriteTime('LastRunTime',Fecha final; fin si no comenzar //Ejecutar el programa por primera vez DeleteKey('Runned'); WriteBool('Runned',True); //Establece el período de prueba durante 30 días WriteInteger('Duration',30); //Escribe el tiempo de ejecución actual WriteTime('LastRunTime',Date); '¡Falla!'); fin; CerrarClave; fin;fin;fin.