Защита Shareware приложения
Автор
daimond
, ��� 15 2008 05:29 , 2 ответов в теме
#1
Отправлено 15 ���� 2008 - 05:29
Автор: Олег Завгородний
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;
#3
Отправлено 01 ������� 2009 - 06:03
А по времени сессии ограничений нет? Тогда прост очеловек не будет прогу закрывать и все.. Пока нужна конечно... Неэффективная защита...