====== Защита 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;