Jump to content
Fórum Script Brasil
  • 0

Inserir Arquivos dentro do Executavel


Progr'amador
 Share

Question

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.

Link to comment
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      151k
    • Total Posts
      649.1k
×
×
  • Create New...