Como registar através de programação e desregistar ficheiros .ocx

Voltar ao topo

Exemplo passo a passo

1. Crie um novo projecto Exe padrão no Visual Basic.
2. Adicione um módulo (Módulo1) ao projecto.
3. Adicione o seguinte código à secção General Declarations do Module1:

         Public Declare Function RegComCtl32 Lib "ComCtl32.OCX" _
            Alias "DllRegisterServer" () As Long
   
         Public Declare Function UnRegComCtl32 Lib "ComCtl32.OCX" _
            Alias "DllUnregisterServer" () As Long
   
         Public Const S_OK = &H0
   
         Sub RegisterComCtl32()
            On Error GoTo Err_Registration_Failed
            If RegComCtl32 = S_OK Then
               MsgBox "Registered Successfully"
            Else
               MsgBox "Not Registered"
            End If
         Exit Sub
         Err_Registration_Failed:
            MsgBox "Error: " & Err.Number & " " & Err.Description
         End Sub
   
         Sub UnRegisterComCtl32()
            On Error GoTo Err_Unregistration_Failed
            If UnRegComCtl32 = S_OK Then
               MsgBox "Unregistered Successfully"
            Else
               MsgBox "Not Unregistered"
            End If
         Exit Sub
         Err_Unregistration_Failed:
            MsgBox "Error: " & Err.Number & " " & Err.Description
         End Sub
   
   					

4. Visualizar a janela Immediate (CTRL+G) e tipo:
   
   UnRegisterComCtl32
   Prima a tecla ENTER para anular o registo ComCtl32.OCX e, em seguida, escreva:
   
   RegisterComCtl32
   e prima a tecla ENTER para registar o controlo.

• "RegComCtl32" e "UnRegComCtl32" são nomes definidos pelo utilizador e podem ser alterados de acordo com as suas necessidades.
• O exemplo do passo-a-passo acima pressupõe que ComCtl32.OCX está localizado na pasta Windows\System do disco rígido local. Se não estiver localizado lá, tem de especificar o caminho completo para o ficheiro .ocx na instrução Declare.
• "DllRegisterServer" e "DllUnregisterServer" são sensíveis a maiúsculas e minúsculas. É importante que caso correcto ser utilizada ao declarar estas funções.

Voltar ao topo