Защита Shareware приложения средствами Delphi

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

Источник: http://codenet.ru

16.02.2006