REGISTRAR OCX E DLL

FORMIGINHA 16/09/2006 18:59:24
#171893
como faço para quando meu sistema iniciar pela primeira vez ele registrar todas as ocxs e dlls que esta numa pasta ?

ex :

c:\ocx\*.ocx
c:\ocx\*.dll

ele pega todas com estas extenssões acima e resgistra.

t+
DENISSS 16/09/2006 19:13:29
#171896
no executar do windows digite regsvr32 + caminho e nome do componente
por exemplo C:\meu componente.ocx
ja no vb digite
Shell "regsvr32 C:\meu componente.ocx"
se te ajudei por favor me pontue.
USUARIO.EXCLUIDOS 16/09/2006 21:13:24
#171907
Shell ("regsvr32.exe MSDBRPTR.DLL /s")
Shell ("regsvr32.exe VB6STKIT.DLL /s")
Shell ("regsvr32.exe COMCAT.DLL /s")
Shell ("regsvr32.exe ASYCFILT.DLL /s")
Shell ("regsvr32.exe MSVBVM60.DLL /s")

Shell ("regsvr32.exe MSINET.OCX /s")
Shell ("regsvr32.exe COMCTL32.OCX /s")
Shell ("regsvr32.exe TABCTL32.OCX /s")
Shell ("regsvr32.exe COMDLG32.OCX /s")
Shell ("regsvr32.exe MSWINSCK.OCX /s")

Shell ("regsvr32.exe MSCOMCTL.OCX /s")
Shell ("regsvr32.exe MSFLXGRD.OCX /s")
Shell ("regsvr32.exe MSSTDFMT.DLL /s")
Shell ("regsvr32.exe Flash8.ocx /s")
Shell ("regsvr32.exe WININET.DLL /s")
Shell ("regsvr32.exe NCSUpdat.dll /s")

ai estão as padrões e algumas outras.
USUARIO.EXCLUIDOS 17/09/2006 00:46:07
#171945
Espero que seja isto!

Dim Ocxs as Variant
Dim dlls as Variant

Ocxs = dir("c:\ocx\*.ocx")
while Ocxs <> ""
   Shell ("regsvr32.exe " & "c:\ocx\" & Ocxs) 
   Ocxs = Dir
Wend

Dlls = dir("c:\ocx\*.dll")
while Ocxs <> ""
   Shell ("regsvr32.exe " & "c:\ocx\" & Dlls) 
   Dlls = Dir
Wend
USUARIO.EXCLUIDOS 17/09/2006 10:20:54
#171961
registrar via regsvr32.exe causa o incoveniente de abrir uma MsgBox alertando sobre o registro.

Se estas DLLs e OCX são as básicas para o programa funcionar, ae meu filho vc tá perdendo tempo, pq elas tem que estas registradas primeiro, senão o aplicativo num roda.

Mas, se não for isso, dá uma olhada nesta matéria do Macoratti.

Abraço.
USUARIO.EXCLUIDOS 17/09/2006 12:04:10
#171975
Citação:

registrar via regsvr32.exe causa o incoveniente de abrir uma MsgBox alertando sobre o registro.



Não se for usado o parametro /S ou -S

FORMIGINHA, não sei se funfa, mas tente:

Shell "RegSvr32 C:\Ocx\*.ocx /S"
Shell "RegSvr32 C:\Dll\*.dll /S"


Se não tente o exemplo do MARCELOHF...flw
USUARIO.EXCLUIDOS 17/09/2006 12:57:14
#171984
Moçada, Olha os exemplos que dei acima , é exatamente isso /s.
Faço isso em meus projetos para evitar incovenientes do tipo
o pacote de install não funcionar , então deposito manualmente
as ocx e dll, e pronto.
USUARIO.EXCLUIDOS 17/09/2006 13:15:54
#171986 Resposta escolhida
O exemplo do MARCELOHF tá ótimo, só que poderia colocar silent aí pra não ficar dando a mensagem:

Dim Ocxs as Variant
Dim dlls as Variant

Ocxs = dir("c:\ocx\*.ocx")
while Ocxs <> ""
   Shell ("regsvr32.exe /S " & "c:\ocx\" & Ocxs)
   Ocxs = Dir
Wend

Dlls = dir("c:\ocx\*.dll")
while Ocxs <> ""
   Shell ("regsvr32.exe /S " & "c:\ocx\" & Dlls)
   Dlls = Dir
Wend


O mérito pelo código ainda é do MARCELO...flw
USUARIO.EXCLUIDOS 17/09/2006 14:15:00
#171996
pow... bem lembrado MATIOLI, nem me recordava do silent...rsrs
USUARIO.EXCLUIDOS 17/09/2006 14:16:14
#171998
Pà', o MATIOLI vive salvando a gente mesmo.

Até eu gostei dessa dae.

VALEU !!

Abraço.
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar