Registrar OCX por dentro do Sistema


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Registrar OCX por dentro do Sistema

Webmagno

GUAÇUÍ
ES - BRASIL

ENUNCIADA !

Postada em 18/03/2008 11:49 hs

Caros Colegas,

Gostaria de saber se é possível registrar uma ocx pelo sistema sem que o windows exiba a mensagem de confirmação de registro ?

Na verdade o meu problema é que quando instalo algum controle novo em minha aplicação, tenho que avisar meus clientes que eles precisam registrar as ocx novas. Isso foi parcialmente resolvido quando implantei a rotina para registro automático, porém para cada ocx que registro o windows exibe uma mensagem de confirmação.

Desde já agradeço...

Paulo Moraes

Analista de Sistemas

J.Carlos

PRESIDENTE PRUDENTE
SP - BRASIL

ENUNCIADA !

Postada em 19/03/2008 20:31 hs

Copie a ocx de uma pasta especificada para Windowssystem e em seguida chame o registrador para registrá-la.

Só precisa fazer um controle pra executar uma vez. No caso eu uso a função file_Exists.

If Not File_Exists("c:WindowssystemComdlg32.ocx", False) Then

FileCopy App.Path & "ComDlg32.ocx", "C:WindowssystemComDlg32.ocx"
Call Shell("regsvr32 ComDlg32.ocx", vbNormalFocus)

endif

Function File_Exists(ByVal PathName As String, Optional Directory As Boolean) As Boolean
    If PathName <> "" Then
        If IsMissing(Directory) Or Directory = False Then
            File_Exists = (Dir$(PathName) <> "")
        Else
            File_Exists = (Dir$(PathName, vbDirectory) <> "")
        End If
    End If
End Function

Espero tê-lo ajudado.

"Se Deus é por nós, quem será contra nós?"

Cardoso G
não registrado

ENUNCIADA !

Postada em 20/03/2008 07:29 hs

webmagno é so colocar o /s

exemplo

regsvr32 /s c:/windows/system/ComDlg32.ocx

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR