Brazão
|
SÃO VICENTE
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 04/05/2006 10:21 hs
Meus amigos, bom dia. ALguém tem alguma dica de como fazer o registro automático das DLLs quando ocorre uma atualização sem que o usuário precise clicar duplamente para registrar? Obrigado. |
|
|
|
|
|
Croda
|
OSASCO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 04/05/2006 23:34 hs
Mas esta atualização como será feita? Qualquer coisa crie um bat que registra a dll Exemplo: regsvr32 NomeDaDll.dll É isto? Qualquer coisa melhore sua pergunta, esta confusa. Um abraço. |
|
|
|
JCarlos809
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 05/05/2006 08:24 hs
'Verifica se neste computador ainda não foi registrado. Este exemplo supoe que o arquivo a ser registrado encontra-se no mesmo local da aplicação(App.path)
If Not File_Exists("c:WindowssystemComdlg32.ocx", False) Then
FileCopy App.Path & "ComDlg32.oca", "C:WindowssystemComDlg32.oca"
FileCopy App.Path & "ComDlg32.dll", "C:WindowssystemComDlg32.dll"
FileCopy App.Path & "ComDlg32.dep", "C:WindowssystemComDlg32.dep"
FileCopy App.Path & "ComDlg32.ocx", "C:WindowssystemComDlg32.ocx"
Call Shell("regsvr32 ComDlg32.ocx", vbNormalFocus)
End If
'Função que verifica se o arquivo já existe
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
|
|
|
|
LCRamos
|
GOIANIA
GO - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 07/05/2006 21:32 hs
Amigo JCarlos809, também estou atrás disto, e uso o regsvr, e me retorna uma mensagem que a dll ou ocx foi carregada, mas não pode ser registrada. Voce pode me informar o porque? O que está acontecendo? vlu// |
|
|
|
Daniel
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 08/05/2006 16:52 hs
Normalmente quando o windows não aceita registrar uma ocx, é que deve estar faltando alguma dll
dsmn
|
|
|
|
