Создание триальных приложений в Delphi |
![]() |
![]() |
Статьи |
Если Вы делаете коммерческое или шароварное приложение, Вы должны защитить Ваши приложения от незаконного использования. Имеется много способов защиты приложений Delphi, но как сделать крутую защиту, да еще простую в разработке? Только одна программа за сеанс WindowsЕсли Вам нужно позволить пользователю выполнить Ваше приложение только один раз за сеанс Windows, Вы можете использовать следующую "уловку": Для простоты форма будет называться FormMain. Для создания приложения TrialSessionWindows, Вы должны вручную отредактировать исходный текст проекта (DPR). Использование функций API GlobalFindAtom и GlobalAddAtom, Вам потребуется использование модуля Windows в секции uses. Когда пользователь запускает приложение, код проверяет создана ли строка УНИКАЛЬНЫЙ-ТЕКСТ в глобальной таблице атомов Windows. Если атом не найден, приложение запускается, а строка добавляется в таблицу атомов. Когда пользователь запускает приложение второй раз, выскакивает предупреждение Защита триальной версии, а приложение прекращает работу, даже не запустившись. ![]() Пользователь может только запустить это приложение во второй раз, когда перезапустит Windows (когда будет очищена глобальная таблица переменных атомов).
Примечание: В Windows таблица атомов - это определенная системой таблица, которая хранит строки и соответствующие идентификаторы. Приложение помещает строку в таблицу атомов и получает 16-разрядное целое число, которое называется атомом, который может использоваться для обращения к строке. |
Комментарии
RSS лента комментариев этой записи