|
|
Защита 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; |
| Категория: Примеры на Delphi7 | Добавил: DelphiAiX (27.07.2011)
|
| Просмотров: 1067
| Рейтинг: 5.0/1 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] |
|
