Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 11634
Последний выпуск: 19.06.2015

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

Автор: Олег Завгородний
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; 

Оставить комментарий

Комментарий:
можно использовать BB-коды
Максимальная длина комментария - 4000 символов.
 

Комментарии

1.
Аноним
Мне нравитсяМне не нравится
22 января 2006, 00:24:43
Честно говоря - это несерьезная защита.
2.
Аноним
Мне нравитсяМне не нравится
25 ноября 2005, 09:11:40
Не могли бы вы писать коментарии для некоторых строк кода???
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог