Мы часто видим, что многие пробные версии программного обеспечения, загруженные в Интернете, имеют ограничения по времени использования. С коммерческой точки зрения это также мера для защиты преимуществ программного обеспечения. Это позволяет пользователям бесплатно опробовать его в течение определенного периода времени. они могут приобрести коммерческое программное обеспечение. В примере функции кода, описанном в этой статье, показано, как добавить функцию ограничения по времени в программу, написанную на Delphi. Ограничение по времени здесь составляет 30 дней.
Основной код выглядит следующим образом:
unit Unit1; интерфейсы Windows, сообщения, SysUtils, классы, графика, элементы управления, формы, реестр, диалоги; тип TForm1 = класс (TForm) процедура FormCreate (отправитель: TObject } public { публичные объявления } end; var); Форма1: TForm1;процедура реализации{$R *.DFM} TForm1.FormCreate(Sender: TObject);var RegisterTemp : TRegistry; curDate : TDateTime;begin RegisterTemp := TRegistry.Create; с помощью RegisterTemp do Begin RootKey := HKEY_LOCAL_MACHINE; //Определяем, запускать ли программу в первый раз, если OpenKey( 'Software/MySoftware' ,True) then start if ReadBool('Runned') then //Это не первый запуск start curDate := Date; if (curDate-ReadTime('LastRunTime'))>=ReadInteger('Duration') then Begin //Текущее системное время превышает период использования ShowMessage('Срок действия пробной версии истек'); Begin DeleteKey('LastRunTime'); WriteTime('LastRunTime',Date end; end else Begin //Запускаем программу в первый раз. DeleteKey('Runned'); WriteBool('Runned',True); //Устанавливаем пробный период на 30 дней WriteInteger('Duration',30); //Записываем текущее время работы WriteTime('LastRunTime',Date); end else Begin ShowMessage(); 'Не удалось!'); Конец;Конец;конец.