Delphi中Ocx的动态注册方法
来源:互联网 发布:java 抛出一个异常 编辑:程序博客网 时间:2024/04/29 18:36
Delphi中Ocx的动态注册方法
方法1
uses windows;
type
TDllRegisterServer = function: HResult; stdcall;
function RegisterOCX(FileName: string): Boolean;
var
OCXHand: THandle;
RegFunc: TDllRegisterServer;
begin
OCXHand := LoadLibrary(PChar(FileName));
RegFunc := GetProcAddress(OCXHand, 'DllRegisterServer');
if @RegFunc <> nil then
Result := RegFunc = S_OK
else
Result := False;
FreeLibrary(OCXHand);
end;
function UnRegisterOCX(FileName: string): Boolean;
var
OCXHand: THandle;
RegFunc: TDllRegisterServer;
begin
OCXHand := LoadLibrary(PChar(FileName));
RegFunc := GetProcAddress(OCXHand, 'DllUnregisterServer');
if @RegFunc <> nil then
Result := RegFunc = S_OK
else
Result := False;
FreeLibrary(OCXHand);
end;
方法2
procedure TForm1.Button1Click(Sender: TObject);
var
astr:String;
bstr:String;
ProcAddr:Pointer;
DllAddr:Integer;
begin
od1.Execute;
astr:=od1.FileName+chr(0);
DllAddr:=LoadLibrary(PChar(astr));
if DllAddr<>0 then
begin
bstr:='DllregisterServer'+chr(0);
//只要将以上处改为DllUnRegisterServer即不注册ActiveX控件
ProcAddr:=GetProcAddress(DllAddr,PChar(bstr));
if ProcAddr<>nil then
CallWindowProc(ProcAddr,DllAddr,0,0,0)
else
ShowMessage(od1.FileName+'不是有效的控件');
FreeLibrary(DllAddr);
end
else
ShowMessage(od1.FileName+'无法装载');
end;
uses OLEctl {, ....};interface{...}var OCXHandle: THandle; RegFunc: TDllRegisterServer;begin OCXHandle:= LoadLibrary('c:/XXX.ocx'); RegFunc := GetProcAddress(OCXHandle, 'DllRegisterServer'); if RegFunc <> 0 then ShowMessage('Error!'); FreeLibrary(OCXHand);end;或者WinExec("regsvr32.exe/s yourocx.ocx",SW_NORMAL);
- Delphi中Ocx的动态注册方法
- 【DLL(OCX)】动态注册方法
- 在程序中动态的注册或注销OCX
- 注册DLL、OCX的方法
- 注册DLL、OCX的方法
- 注册DLL、OCX的方法
- 注册ocx文件的方法
- 动态注册OCX---转载
- win10下msadodc.ocx、mscomm32.ocx、MSDATLST.ocx等OCX控件的安装注册方法步骤
- Delphi安装/卸载OCX控件的方法
- ocx控件注册方法
- 在delphi中ocx控件的安装
- Delphi中动态调用DLL的方法
- Delphi中动态调用DLL的方法
- ocx 注册的 inf
- ocx控件的注册
- VC++ OCX注册方法总结
- OCX和DLL的特点、注册方法、区别
- 掌握 Ajax,第 4 部分: 利用 DOM 进行 Web 响应
- Ajax在.NET中与Server控件的交互
- SQL Server 宝典
- 另一种方法清理磁盘垃圾文件
- PetShop的系统架构设计
- Delphi中Ocx的动态注册方法
- 任务管理器五大奇招
- 几招将电脑调整到完美
- PetShop数据访问层之数据库访问设计
- 【总结】XP技巧集锦3
- 程序“根据地”减肥进行时
- 浙大毕业 年收入十几万。。。
- 一方水土养育一方人
- 系统六大用户组功能分析