Ola Claudiney...
É isso mesmo q vc pensou e a sua solução é mesmo bem pratica, estou
implementando aqui, porque vai servir direitinho.
Obrigado!
Paulo
--- Em delphi-br@yahoogrupos.com.br, "Claudiney Cogo - Listas"
<[EMAIL PROTECTED]> escreveu
>
> Olá Paulo...
>
> Acredito que o que você queira é enviar o executável do sistema e
junto com ele algum outro arquivo necessário e caso precise,
descompactar esse arquivo, correto??? Se for você pode usar os
resource files...
>
> Abra um editor de texto simples (tipo notepad) e crie um arquivo
com os arquivos que você quer incluir, dessa maneira:
> Cada linha consiste do nome do recurso, seu tipo e o recurso em
si, como no exemplo abaixo:
>
> midas dlls c:\windows\system32\midas.dll
> doc docs c:\documentos\arquivo.doc
> util exes c:\sistema\util.exe
>
> Crie quantas linhas precisar para todos os arquivos que você
deseja incluir.
> Salve esse arquivo com o a extensão .rc (meurecurso.rc)
> Compile usando o resource compiler: BRCC32.EXE
>
> brcc32 meurecurso
>
> Será criado o arquivo de recursos (meurecurso.res)
>
> Inclua o arquivo de recursos no form principal de seu projeto
incluindo uma linha na sessão implementation:
>
> {$R ANEXO.RES}
>
> Lá já existe a linha {$R *.dfm}.. acrescente abaixo.
>
> Recompile o projeto... o exe já vai incluir os arquivos que você
especificou.
>
> ***** Lembre-se que o executável vai crescer o tamanho dos
arquivos que você acrescentar.******
>
> Para extrair um arquivo do executável quando precisar, use algo do
tipo:
>
> procedure TformPrincipal.ExtraiAnexosRES;
> var
> myresource: TResourceStream;
> Begin
> myresource := TResourceStream.Create(Hinstance, 'UTIL', 'EXES');
> Try
> if not FileExists('UTIL.EXE') then
> myresource.SavetoFile('UTIL.EXE');
> finally
> myresource.Free;
> end;
> end;
>
> Você pode anexar qualquer coisa como recurso, inclusive ícones,
imagens, etc, para ser usado no sistema.
>
> Espero ter ajudado.
>
> Abraço.
>
> Claudiney Cogo
> N2 Sistemas e Soluções em Informática
> Maringá - Paraná
>
>
>
>
>
> ----- Original Message -----
> From: pcinfowave
> To: delphi-br@yahoogrupos.com.br
> Sent: Tuesday, January 16, 2007 4:34 PM
> Subject: [delphi-br] Embutir arquivo em executável
>
>
> Ola...
> Gostaria de saber qual a melhor maneira de fazer para embutir em
um
> executável um determinado arquivo.
>
> Assim, tenho alguns arquivos de configuração de BDE (Base dados
> Access97), que preciso manter num executável, de modo que se
houver
> algum problema de perca de configuração, eu possa restaurar esta
> configuração, retrando o arquivo do executável e colocando este
de
> volta no lugar correto.
>
> Alguem poderia dar uma idéia de como implementar isso?
>
> De já agradeço.
> []´s
> Paulo
>
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
