Исходники.Ру - Программирование
Исходники
Статьи
Книги и учебники
Скрипты
Новости RSS
Магазин программиста

Главная » Статьи по программированию » Delphi - Приложения и распространение программ »

Обсудить на форуме Обсудить на форуме

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

После добавления следующего кода в программу, она запустится только один раз за время сессии 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; 

Может пригодится:


Автор: Олег Завгородний
Прочитано: 4197
Рейтинг:
Оценить: 1 2 3 4 5

Комментарии: (0)

Добавить комментарий
Ваше имя*:
Ваш email:
URL Вашего сайта:
Ваш комментарий*:
Код безопастности*:

Рассылка новостей
Рейтинги
© 2007, Программирование Исходники.Ру