网站运行速度优化,幸运星哪家制作公司,个人建设网站,二手网站建设目标基本原理#xff1a;有些vcl组件未注册的话#xff0c;会显示没有注册的信息#xff0c;但在设计期间不显示这些信息#xff0c;表示该组件会检查delphi的ide 环境#xff0c;解决办法就是让自己的exe带上ide的信息#xff1b;组件检查ide的办法无非就是使用api查找特定的…基本原理有些vcl组件未注册的话会显示没有注册的信息但在设计期间不显示这些信息表示该组件会检查delphi的ide 环境解决办法就是让自己的exe带上ide的信息组件检查ide的办法无非就是使用api查找特定的delphi窗体类名称如下是代码建立几个看不见的窗体名称和delphi ide的主要窗口一样当然这样做不见得100%破解检查ide环境的组件有些组件可以遍历窗体的子件类总之方法很多要更好的办法简单用dede反编译delphi的主程序把dfm资源搞出来到自己工程里加入就行了。以下是代码见笑{********************* 破解需要delphi IDE 的vcl 控件*****//请直接将该单元加入到工程中并放到最初启动位置无需调//用方法自动完成解密过程//版权所有随飞//该版为 Pascal 代码版本********************************************************}unit vclAntIde;Interface usesinterfaceuses Windows, Messages;const AppBuilder TAppBuilder; EditWindow TEditWindow; PropertyInspector TPropertyInspector; ObjectTreeView TObjectTreeView;implementationFunction WindowProc()function WindowProc(Window: Integer; AMessage, wParam, lParam: Integer): Integer; stdcall; export;begin WindowProc : 0; case AMessage of WM_DESTROY, WM_QUIT, WM_QUERYENDSESSION, WM_CLOSE: begin PostQuitMessage(0); Exit; end; end; WindowProc : DefWindowProc(Window, AMessage, wParam, lParam);end;Function WinRegister()function WinRegister(AppName: PAnsiChar): boolean;var WindowClass : TWndClass;begin WindowClass.Style : 2 or 1; WindowClass.lpfnWndProc : WindowProc; WindowClass.cbClsExtra : 0; WindowClass.cbWndExtra : 0; WindowClass.hInstance : HInstance; WindowClass.hIcon : LoadIcon(0, idi_Application); WindowClass.hCursor : LoadCursor(0, idc_Arrow); WindowClass.hbrBackground : HBrush(Color_Window); WindowClass.lpszMenuName : nil; WindowClass.lpszClassName : AppName; Result : RegisterClass(WindowClass) 0;end;Function WinCreate()function WinCreate(AppName: PAnsiChar): HWnd;var hWindow : HWnd;begin hWindow : CreateWindow(AppName, AppName, WS_OVERLAPPEDWINDOW, 0, 0, 1, 1, 0, 0, HInstance, nil); if hWindow 0 then begin // ShowWindow(hWindow, cmdShow); // UpdateWindow(hWindow); end; Result : hWindow;end;var AMessage : TMsg; hWindow : HWnd; begin//HWND handle GetSafeHwnd(); if GlobalFindAtom(TaskAgent)0 then begin GlobalAddAtom(TaskAgent); end; if not WinRegister(AppBuilder) then begin MessageBox(0, 注册失败!, nil, mb_Ok); Exit; end; if not WinRegister(EditWindow) then begin MessageBox(0, 注册失败!, nil, mb_Ok); Exit; end; if not WinRegister(PropertyInspector) then begin MessageBox(0, 注册失败!, nil, mb_Ok); Exit; end; if not WinRegister(ObjectTreeView) then begin MessageBox(0, 注册失败!, nil, mb_Ok); Exit; end; hWindow : WinCreate(AppBuilder); if hWindow 0 then begin MessageBox(0, 创建失败, nil, mb_Ok); Exit; end; hWindow : WinCreate(EditWindow); if hWindow 0 then begin MessageBox(0, 创建失败, nil, mb_Ok); Exit; end; hWindow : WinCreate(PropertyInspector); if hWindow 0 then begin MessageBox(0, 创建失败, nil, mb_Ok); Exit; end; hWindow : WinCreate(ObjectTreeView); if hWindow 0 then begin MessageBox(0, 创建失败, nil, mb_Ok); Exit; end;end. 转载于:https://www.cnblogs.com/Chinasf/archive/2005/10/24/260518.html
