Пример использования либ + Триал
В проэкте реализовано использование библиотек menu32, font32, vscroll,
об этом было много написано, но вся фишка заключяется в том, что после нескольких запусков Вам будет предложено ввести ключ из 8 символов т.е закончился период использования триальной версии. Не верный ввод - выход из приложения и так до без конечности.
Проверка на триальность выполнена ввиде отдельного модуля, так что можно прикручивать её к любому вашему приложению(ни я ни её автор не будем на Вас в обиде).
Ввод ключа
if (GetChar(code, 1) = 'q') and (GetChar(code, 3) = 'w') and (GetChar(code, 5) = 'e') then res:=true; // вторая буква должна быть q, четвёртая - w, шестая - e
пример "aqswdefr" - ok! ключ принят.
"asdfghjk" - no! не верный ввод ключа.
Количество пробных запусков приложения
if (StringToInteger(count) > 3) and (license = 'N') then //Исчерпали 3 пробных попыток
|