Юнит для снятия ограничений с компонентов, которые работают только в Delphi IDEDelphi , Компоненты и Классы , МодулиЮнит для снятия ограничений с компонентов, которые работают только в 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. Статья Юнит для снятия ограничений с компонентов, которые работают только в Delphi IDE раздела Компоненты и Классы Модули может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |