Защита 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;
 
faq/delphi/system/shareware_lock.txt · Последние изменения: 2006/05/14 14:40 (внешнее изменение)
 
Recent changes RSS feed Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki