Skip Navigation Links
Novas Tecnologias
Ferramentas Adicionais
Ferramentas Adicionais


Dica No :
74
Assunto : Visual Basic
Titulo: Como registrar um componente via código

Gostou do texto ? Vote e dê sua opinião! Pontuação atual :

Translate this page now :






Adicione aos Favoritos!
BlogBlogs Rec6 Linkk Ueba Technorati Delicious DiggIt! StumbleUpon



Cedo ou tarde surge essa necessidade em uma aplicação profissional : Seja para evitar falhas do usuário, garantindo que seus componentes estão corretamente registrados, seja para fazer automaticamente a instalação de novos componentes, enfim, a aplicação acaba tendo que registrar por si só seus componentes.

Quando utilizamos RegSvr32 para registrar um componente o que ocorre é que é disparada um função existente dentro da própria dll do componente. Assim sendo, quem faz o seu registro é a própria dll.

Desta forma, para registrarmos uma dll via código a única coisa que precisamos fazer é disparar essa função que já existe na dll.

Assim sendo, precisamos fazer a declaração da função. Veja :

Private Declare Function RegisterTestDLL Lib "Test.Dll" _
Alias "DllRegisterServer" () As Long
Const ERROR_SUCCESS = 0&

Essa constante que foi definida é o valor de retorno em caso de sucesso.

A partir dai poderemos chamar a função dentro da DLL chamada test.dll Para que o registro funcione, porém, é necessário que estejamos no diretório onde esta dll se encontra. Veja :

Dim retCode As Long
On Error Resume Next

ChDrive "C:"
ChDir "C:\MyApp"

Foi definida uma variável para guardar o código de retorno e foi habilitado o tratamento de erro in-line, além, claro, de ter sido trocado o disco e diretório corrente para a localização da dll.

O próximo passo é chamar a funcão de registro e testar o resultado :

retCode = RegisterTestDLL()

If Err <> 0 Then
' Provavelmente a dll não existe
MsgBox "Unable to find the Test.Dll file"
ElseIf retCode <> ERROR_SUCCESS Then
' O registro executou, mas falhou
MsgBox "O Registro falhou"
End If

Nome :
E-mail:
Comentarios :
 
 
Os Últimos Comentários
data: 4/1/2017 6:28:00 PM
nome: mlqHAmfozueCme
email: jimos4581rt1@hotmail.com
comentário:
ZXL3aG http://www.LnAJ7K8QSpkiStk3sLL0hQP6MO2wQ8gO.com

data: 2/1/2017 2:14:00 AM
nome: ckvWIHjlswZnZqJ
email: derby451@hotmail.com
comentário:
kN2r0H http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com

data: 1/31/2017 10:56:00 AM
nome: ZniQgcVnIu
email: derby451@hotmail.com
comentário:
eVGnrw http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com

data: 1/30/2017 1:21:00 AM
nome: AHNDIVfBgcTmq
email: derby451@hotmail.com
comentário:
5yvzAp http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com

data: 1/30/2017 12:07:00 AM
nome: QBNqGQotHaeda
email: jogcbfn@hotmail.com
comentário:
oPbGNA http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com

 1  
Dicas
Dica do Dia
Receba Dicas Por Email
E-mail :  
 


 (help)
Aceito receber informativos do devASPNet, informações de eventos e treinamentos

Veja Quais Informativos Você Receberá

Pesquisar Dicas
Pesquisar Artigos, Dicas e Noticias

Banco de Dados
Algumas Entrevistas
Links Importantes

Búfalo Informática, Treinamento e Consultoria
R. Alvaro Alvim, 37/920 Centro - Cinelândia - Rio de Janeiro Cep: 20031-010
Tel : (21) 2262-1368 (21) 9240-5134 E-mail : Contato@bufaloinfo.com.br