Delphi中Ocx的动态注册方法.rar_delphi ocx_ocx

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);