如何在程式中註冊 OCX/ActiveX/DLL

bestlong

一般處理註冊 OCX/ActiveX/DLL 的方式有修改系統機碼或用 RegSvr32.exe 來手動處理
不過也可以在程式中透過呼叫 Windows API 來處理

1. type
   
2.   TDllRegisterServer = function: HResult; stdcall;
   
3. 
   
4. function RegisterOCX(FileName: string): Boolean;
   
5. var
   
6.   OCXHand: THandle;
   
7.   RegFunc: TDllRegisterServer;
   
8. begin
   
9.   OCXHand := LoadLibrary(PChar(FileName));
   
10.   RegFunc := GetProcAddress(OCXHand, 'DllRegisterServer');
    
11.   if @RegFunc <> nil then
    
12.     Result := RegFunc = S_OK
    
13.   else
    
14.     Result := False;
    
15.   FreeLibrary(OCXHand);
    
16. end;
    
17. 
    
18. function UnRegisterOCX(FileName: string): Boolean;
    
19. var
    
20.   OCXHand: THandle;
    
21.   RegFunc: TDllRegisterServer;
    
22. begin
    
23.   OCXHand := LoadLibrary(PChar(FileName));
    
24.   RegFunc := GetProcAddress(OCXHand, 'DllUnregisterServer');
    
25.   if @RegFunc <> nil then
    
26.     Result := RegFunc = S_OK
    
27.   else
    
28.     Result := False;
    
29.   FreeLibrary(OCXHand);
    
30. end;

複製代碼

1. function RegisterServer(const aDllFileName: string; aRegister: Boolean): Boolean;
   
2. type
   
3.   TRegProc = function: HResult; stdcall;
   
4. const
   
5.   cRegFuncNameArr: array [Boolean] of PChar = ('DllUnregisterServer', 'DllRegisterServer');
   
6. var
   
7.   vLibHandle: THandle;
   
8.   vRegProc: TRegProc;
   
9. begin
   
10.   Result := False;
    
11.   vLibHandle := LoadLibrary(PChar(aDllFileName));
    
12.   if vLibHandle = 0 then Exit;
    
13.     @vRegProc := GetProcAddress(vLibHandle, cRegFuncNameArr[aRegister]);
    
14.   if @vRegProc <> nil then
    
15.     Result := vRegProc = S_OK;
    
16.   FreeLibrary(vLibHandle);
    
17. end;

複製代碼

不過需要注意的是，當你的程式是可以重複執行的話就要注意 UnRegister 的時機，若是先關閉的程式做了 UnRegister 處理的話，尚未結束執行的程式可是會出問題的。

參考資料來源 http://www.swissdelphicenter.ch/en/showcode.php?id=1281

bestlong

另外要注意的是 DllRegisterServer 與 DllUnregisterServer 兩個參數的大小寫都要正確