Existe sim, o procedimento é simples de fazer!
Você vai usar o BRCC32
que é responsável também por gerar os Recursos para o Delphi!
Vamos criar um teste!
- 1 - Crie e salve um projeto com apenas 1 botão no formulário.
- 2 - Na pasta onde foi salvo os fontes do projeto, copie para a mesma
o arquivo
BRCC32.EXE
que esta na pasta Bin de instalação do Delphi (eu sempre prefiro copiar).
- 3 - Adicione nessa pasta também um arquivo executável de sua escolha!
- 3.1 - Crie um arquivo de texto (qualquer nome) com a seguinte estrutura (sem o cabeçalho explicativo) na pasta do projeto salvo
anteriormente.
Nome do Recurso - Identificador - Caminho do Arquivo que será anexado
ArquivoTeste EXEs "caminho completo da pasta do projeto\nome do
arquivo e sua extensão" (3 paramentos, o ultimo deve estar em aspas
duplas)
- 3.2 - Troque a extensão desse arquivo de
.txt
para .rc
- 4 - Temos tudo pronto para criar nosso arquivo de recurso!
- 4.1 - No Executar do windows: 'Caminho da pasta' '\brcc32' 'nome do arquivo criado no 3.1 com extensão' (não use as aspas ex:
c:\temp\teste\brcc32 nome_desejado.rc
)
- 4.2 - Observe que na pasta do projeto foi criado um novo arquivo com o mesmo nome do
.rc
com a extensão .res
- 5 - Abra o projeto e abaixo de {$R *.DFM} adicione {$R nome do
arquivo res com extensão}
- 6 - No evento click do botão vamos efetuar a Extração do executável
para poder ser usado pelo sistema.
procedure frmTeste.btnIniciarClick(Sender: TObject);
var
Stream: TResourceStream;
begin
Stream := TResourceStream.Create(hInstance, 'ArquivoTeste', 'EXEs'); //Nome do recurso criado e Tipo
try
Stream.SaveToFile('caminho_completo\ArquivoTeste.exe'); //ex: c:\temp\teste\ArquivoTeste.exe
finally
Stream.Free;
end;
end;
- 7 - Compile o projeto, para certificar que deu tudo certo, apague os
arquivos RC, RES, e o executável que foi anexado!
- 7.1 - Execute a aplicação e teste!
Alguns recursos podem ser usados na memória, não precisando fazer a extração!
Esse roteiro acabei de montar, se tiver algo errado ou procedimento que falhou me avise que eu faço a correção!