PROGRAMA QUE EH UM INSTALADOR

USUARIO.EXCLUIDOS 13/07/2005 00:54:56
#93803
seguinte galera, eu preciso da ajuda de vcs p/ fazer o seguite: eu tenho 3 arquivos (2 txt de configs e 1 dll) eu preciso fazer um programa q instale esses arquivos no PC... assim oh: eu crio um form no vb6 e compilo p/ se tornar um exe, soh q dai com esses 3 arquivos dentro dele, e qnd clico num botao do form, ele extrai esses arquivos p/ a pasta... tem como fazer isso??? (tipo um instalador...)

vlw
USUARIO.EXCLUIDOS 13/07/2005 12:26:22
#93896
por favor galera, preciso disso =//
PAGANINI 13/07/2005 13:12:20
#93911
Tem como sim

Vamos criar uma função que retorna o conteudo do arquivo passado:

Function RetornaConteudoBinario(CaminhoArquivo As String) As String
    Dim Canal As Byte
    Dim S As String
    Canal = FreeFile
    Open CaminhoArquivo For Binary As Canal
        S = Space(LOF(Canal))
        Get #Canal, 1, S
    Close Canal
    RetornaConteudoBinario = S
End Function


Agora vamos criar um arquivo executavel com vários arquivos dentro

    Dim Canal As Byte
    Dim S As String
    Dim Arq1 As String
    Dim Arq2 As String
    Dim Arq3 As String
    Arq1 = RetornaConteudoBinario("C:    este.exe")
    Arq2 = RetornaConteudoBinario("C:    este.txt")
    Arq3 = RetornaConteudoBinario("C:    este.bmp")
    Canal = FreeFile
    S = Arq1 & String(32, "*") & Arq2 & String(32, "*") & Arq3
    Open "C:\NovoArquivo.exe" For Binary As Canal
        Put #Canal, 1, S
    Close Canal


Para extrair os arquivos use esta rotina

Sub ExtrairArquivo(CaminhoExe As String, SalvarComo As String, IDArquivo As Long)
    Dim S As String
    Dim v As Variant
    Dim Canal As Byte
    S = RetornaConteudoBinario(CaminhoExe)
    v = Split(S, String(32, "*"))
    Canal = FreeFile
    Open SalvarComo For Binary As Canal
        Put #Canal, 1, v(IDArquivo)
    Close Canal
End Sub


Para usar basta fazer assim

ExtrairArquivo "C:\NovoArquivo.exe", "C:    este.txt", 1
ExtrairArquivo "C:\NovoArquivo.exe", "C:    este.bmp", 2


Qualquer dúvida poste
JEAN.JEDSON 13/07/2005 13:14:34
#93914
bem... o que vc precisa fazer exatamente? penso que seria mais fácil fazer um self-extract com o winzip, pois com o exe do vb vc precisaria no mínimo da dll de runtime do vb...
PAGANINI 13/07/2005 13:16:41
#93915
Se preferir esta lógica pode ser aplicada a um projeto DELPHI que não será preciso da DLL de RunTime
Tópico encerrado , respostas não são mais permitidas
Voltar