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

Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...

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

Засовываем его в 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.