深藍色論壇

代碼: 選擇全部

     
    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;