Перейти к содержимому

Фотография

Защита Shareware приложения

- - - - -

  • Авторизуйтесь для ответа в теме

#1
daimond

Отправлено 15 ���� 2008 - 05:29

daimond

    Свояк

  • Пользователи
  • 232 сообщений
Автор: Олег Завгородний www.исходники.ru После добавления следующего кода в программу, она запустится только один раз за время сессии Windows. Для повторного запуска программы необходимо будет перезагрузить Windows. procedure TForm1.FormShow(Sender : TObject); var atom : integer; CRLF : string; begin if GlobalFindAtom('THIS_IS_SOME_OBSCUREE_TEXT') = 0 then atom := GlobalAddAtom('THIS_IS_SOME_OBSCUREE_TEXT') else begin CRLF := #10 + #13; ShowMessage('This programm will start only once' + CRLF + for next start reboot windows please, or...' + CRLF + 'REGISTER PROGRAM !!'); Close; end; end;

#2
mus32

Отправлено 07 ������ 2008 - 05:32

mus32

    Новоприбывший

  • Пользователи
  • 34 сообщений
а куда именно добавлять??

#3
jenya123

Отправлено 01 ������� 2009 - 06:03

jenya123

    Мудрец

  • Пользователи
  • 1�454 сообщений
А по времени сессии ограничений нет? Тогда прост очеловек не будет прогу закрывать и все.. :) Пока нужна конечно... Неэффективная защита...