EXECUTAVEL EM UM PENDRIVE
Boa tarde a todos
Estou tentanto criar um programa que execute direto de um pendrive , a idéia é a seguinte :
O cara pluga o pen drive ,e ao executar o meu sistema ele tenta localizar no windows/system32 uma determina ocx por exemplo (comctl32.ocx) .
Se ela não existe ele executa a cópia desta ocx do diretorio do pen drive para o c:\windows\system32 e ja registra ela.
Com isso poupo tempo com instalação para usuarios leigos.
Estou tentanto criar um programa que execute direto de um pendrive , a idéia é a seguinte :
O cara pluga o pen drive ,e ao executar o meu sistema ele tenta localizar no windows/system32 uma determina ocx por exemplo (comctl32.ocx) .
Se ela não existe ele executa a cópia desta ocx do diretorio do pen drive para o c:\windows\system32 e ja registra ela.
Com isso poupo tempo com instalação para usuarios leigos.
Faz ele fazer um copy da OCX/DLL/Componentes para um local [Ô]seguro[Ô] na maquina, e chama via [Ô]shell[Ô] o line command para registrar.
Acho que funcionaria assim!!!
Acho que funcionaria assim!!!
Isso só não vai funcionar se o usuário não for administrador da máquina.
Private Sub Form_Load()
Dim caminho As String
Dim strWindowsSysdir As String * 40
GetSystemDirectory strWindowsSysdir, 40
LOcx1.Caption = App.Path & [Ô]\Runtimes\[Ô] & [Ô][Ô] & [Ô]comctl32.ocx[Ô]
Ldiretoriosistemalocal = strWindowsSysdir
Localiza_arquivo
End Sub
Private Sub Localiza_arquivo()
If Dir(Environ([Ô]WINDIR[Ô]) & [Ô]\SYSTEM32\comctl32.ocx[Ô], vbArchive) = [Ô][Ô] Then
FileCopy LOcx1.Caption, Ldiretoriosistemalocal & [Ô]\[Ô] & [Ô]MSCOMCTL.OCX[Ô]
Call Shell([Ô]regsvr32 /s MSCOMCTL.OCX[Ô], vbNormalFocus)
LOcx1.Caption = [Ô]Ok - Registrado[Ô]
Else
LOcx1.Caption = [Ô]Ok - Aprovado[Ô]
End If
End Sub
Ta dando erro de path ????
Dim caminho As String
Dim strWindowsSysdir As String * 40
GetSystemDirectory strWindowsSysdir, 40
LOcx1.Caption = App.Path & [Ô]\Runtimes\[Ô] & [Ô][Ô] & [Ô]comctl32.ocx[Ô]
Ldiretoriosistemalocal = strWindowsSysdir
Localiza_arquivo
End Sub
Private Sub Localiza_arquivo()
If Dir(Environ([Ô]WINDIR[Ô]) & [Ô]\SYSTEM32\comctl32.ocx[Ô], vbArchive) = [Ô][Ô] Then
FileCopy LOcx1.Caption, Ldiretoriosistemalocal & [Ô]\[Ô] & [Ô]MSCOMCTL.OCX[Ô]
Call Shell([Ô]regsvr32 /s MSCOMCTL.OCX[Ô], vbNormalFocus)
LOcx1.Caption = [Ô]Ok - Registrado[Ô]
Else
LOcx1.Caption = [Ô]Ok - Aprovado[Ô]
End If
End Sub
Ta dando erro de path ????
Tópico encerrado , respostas não são mais permitidas