Юнит для снятия ограничений с компонентов, которые работают только в Delphi IDE

Delphi , Компоненты и Классы , Модули

Автор: Сергей Гаврилие

Засовываем его в projekt.dpr в раздел uses, причём самым первым и всё очень круто!

unit AntiTrial;

interface

implementation
uses windows;
const
  WndClassName = 'TAppBuilder';

var
  HWindow: HWnd;
  WndClass: TWndClass;
initialization
  fillchar(wndclass, sizeof(twndclass), #0);
  with WndClass do
  begin
    style := 0;
    lpFnWndProc := @DefWindowProc;
    cbClsExtra := 0;
    cbWndExtra := 0;
    hIcon := LoadIcon(0, idi_Application);
    hCursor := LoadCursor(0, idc_Arrow);
    hbrBackground := GetStockObject(white_Brush);
    lpszMenuName := '';
    lpszClassName := WndClassName;
  end;
  wndclass.hInstance := Hinstance;
  if RegisterClass(WndClass) = 0 then
    Halt(255);
  HWindow := CreateWindowEx(0, WndClassName, 'Delphi 5 - AntiTrial',
    ws_OverlappedWindow, 0, 0, 0, 0, 0, 0, Hinstance, nil);
finalization
  DestroyWindow(HWindow);
  UnRegisterClass(WndClassName, hinstance);
end.

Единица AntiTrial предназначена для обхода ограничений пробной версии компонентов Delphi при запуске проекта вне среды разработки (Integrated Development Environment).

Вот подробное описание, что делает этот код:

1. Определен модуль AntiTrial, содержащий раздел интерфейса и реализации.
2. В разделе интерфейса не объявлены методы или переменные.
3. В разделе реализации объявлены глобальные переменные:
   • HWindow: обрабатываемый объект окна, создаваемого позднее в коде
   • WndClass: структура TWndClass, определяющая свойства класса окна
4. Блок инициализации выполняется при инициализации модуля (т. е. при запуске проекта). Он:
   • Заполняет структуру WndClass значениями по умолчанию
   • Устанавливает имя класса окна в 'TAppBuilder'
   • Регистрирует класс окна с помощью функции RegisterClass, передавая Hinstance как обрабатываемый объект. Если регистрация неудачна, программа завершается с фатальным ошибкой.
   • Создает окно класса, указанного в WndClass, с заголовком 'Delphi 5 - AntiTrial'
5. Блок finalize выполняется при finalize модуля (т. е. при окончании проекта). Он:
   • Уничтожает созданное окно с помощью функции DestroyWindow
   • Дeregister класс окна с помощью функции UnRegisterClass, передавая имя зарегистрированного класса и обрабатываемый объект

Чтобы использовать этот модуль, вам нужно добавить его в список используемых модулей в файле project.dpr проекта, как указано в примечании автора. Порядок модулей важен; размещение AntiTrial на верхнем уровне должно работать.

Обратите внимание, что использование этого модуля может не быть законным или этичным, в зависимости от условий лицензии Delphi. Кроме того, это код может вызвать проблемы с другими компонентами или частями вашего проекта. Важно протестировать и проверить его эффективность перед разверткой в производственной среде.

Юнит AntiTrial - решение для снятия ограничений с компонентами Delphi, работающими только в IDE, которое нужно добавить в файл проекта dpr и использовать в разделе uses.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Модули ::