"AND" "OR"
Главная Информер Журнал Форум

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