Inserir Arquivos dentro do Executavel

[Progr'amador]

Inserir Arquivos dentro do Executavel

1 - Crie uma pasta no Local desejado. Exemplo 'C:\WAV Res'.

2 - Copie todos os arquivos que deseja inserir em seu executavel.

3 - Crie um arquivo de texto(.txt) nessa pasta. Exemplo 'WavRes.txt'.

4 - No Arquivo texto: será informado um nome qualquer que será usando como referencia; o tipo de arquivo (WAVFILE, MP3FILE, ZIPFILE, etc...); e por ultimo o nome do arquivo real com a extensão. Exemplo: MUSICA01.WAV.

Exemplo geral( VMUSICA WAVFILE MUSICA01.WAV ) .

5 - Compile o arquivo de texto usando o Brcc32.exe(no diretório Delphi\Bin) por linha de comando. De preferencia crie na pasta um atalho para o Brcc32, depois dê um clique com o botão esquerdo do mouse sobre o arquivo de atalho e clique em 'Propriedades', no campo objeto depois do "C:\...\Delphi\Bin\brcc32.exe" dê um espaço e digite entre aspas duplas o nome do arquivo de texto que você criou com o caminho completo. Exemplo: "C:\Wav Res\WavRes.txt".

Pronto para compilar o arquivo dê um clique duplo no atalho.

6 - O Brcc32 vai gerar um arquivo de recursos com o mesmo nome do arquivo de texto. Exemplo 'Wav.RES'.

7 - Copie este arquivo para a pasta onde está o projeto.

8 - Agora no Delphi abra o projeto que você deseja inserir o arquivo de recursos, click no menu Projects | View Source e digite {$R Wav.RES}.

9 - Pronto agora é só Compilar o projeto e os arquivos vão estar dentro do aplicativo.

Como usar os arquivos?

Abaixo está o procedimento que vamos usar para extrair o arquivo Musica01.wav e grava-lo no disco.

procedure Form1.Button1Click(Sender: TObject);

var

  Arq: TResourceStream;

begin

  Arq:= TResourceStream.Create(HInstance, 'VMUSICA', 'WAVFILE');

  try

    Arq.SaveToFile('Musica01.wav');

  finally

    Arq.Free;

  end;

end;

OBS.: Se os arquivos estiverem compactados inclua o algoritmo de descompactação antes de salvar o arquivo.

-------------------------

Abs. Progr'amador.