Создание триальных приложений в Delphi

Только одна программа за сеанс Windows

Если Вам нужно позволить пользователю выполнить Ваше приложение только один раз за сеанс Windows, Вы можете использовать следующую "уловку":

Для простоты форма будет называться FormMain.

Для создания приложения TrialSessionWindows, Вы должны вручную отредактировать исходный текст проекта (DPR).

Использование функций API GlobalFindAtom и GlobalAddAtom, Вам потребуется использование модуля Windows в секции uses.

Когда пользователь запускает приложение, код проверяет создана ли строка УНИКАЛЬНЫЙ-ТЕКСТ в глобальной таблице атомов Windows. Если атом не найден, приложение запускается, а строка добавляется в таблицу атомов.

Когда пользователь запускает приложение второй раз, выскакивает предупреждение Защита триальной версии, а приложение прекращает работу, даже не запустившись.

Пользователь может только запустить это приложение во второй раз, когда перезапустит Windows (когда будет очищена глобальная таблица переменных атомов).

program OncePerSessionTrialTest;

uses
  Windows,
  Forms,
  mainUnit in 'mainUnit.pas' {FormMain};

{$R *.res}

begin
  Application.Initialize;

  if 0 = GlobalFindAtom('УНИКАЛНЫЙ-ТЕКСТ') then
  begin
    GlobalAddAtom('УНИКАЛЬНЫЙ-ТЕКСТ') ;

    Application.CreateForm(TFormMain, FormMain) ;
    Application.Run;
  end
  else
  begin
    Application.MessageBox(
      'Вы можете выполнить триальную версию ' + #13 +
      'этого приложения ' + #13 +
      'только один раз за сеанс Windows!',
      'Защита Триальной Версии') ;
  end;
end.

Примечание: В Windows таблица атомов - это определенная системой таблица, которая хранит строки и соответствующие идентификаторы. Приложение помещает строку в таблицу атомов и получает 16-разрядное целое число, которое называется атомом, который может использоваться для обращения к строке.