Пример защиты типа SHAREWARE

Следующая статья: Форматирование носителя.

В качестве примера приведен небольшой участок программного кода, позволяющий быстро создать защиту для программ SHAREWARE, которая, не влияет на функциональность самой программы, но настоятельно «просит» ее зарегистрировать и закрывает при каждом повторном запуске.

Технология данного метода заключается в том, что пользователь может запустить программу только один раз за текущий сеанс Windows.

Используйте обработчик события FormShow:

procedure TForm1.FormShow(Sender : TObject);
var
atom: integer;
text: string;
begin
 if GlobalFindAtom('THIS_IS_SOME_OBSCUREE_TEXT')=0 then 
 begin 
  atom:=GlobalAddAtom('THIS_IS_SOME_OBSCUREE_TEXT');
 end
 else
 begin
  text:='Данная версия предусматривает только один запуск в Windows. ';
  text:=text+'Для запуска необходимо перезапустить Windows';
  text:=text+' или, что лучше, - ЗАРЕГИСТРИРУЙТЕСЬ!';
  ShowMessage(text);
  Close;
 end;
end;

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