quarta-feira, 5 de março de 2008

Anexando arquivo ao executável - (Enclosing file to the executable)


1º Criar um método

var
lResource : TResourceStream;

begin
lResource := TResourceStream.Create(hInstance, 'MeuArquivo', Pchar('MeuTipo'));
lResource.SavetoFile('putty.exe');
lResource.Free;

abaixo do implementation

{$R 'putty.res' 'putty.rc'}


2º Criar um arquivo com notepad

MeuArquivo MeuTipo "d:\putty.exe"

Obs.: Salvar arquivo com a extensão .rc

3º Compilar Arquivo

Compilar o arquivo rc com o utilitário "brcc32" que no delphi 2006 encontra-se em
C:\Arquivos de programas\Borland\BDS\4.0\Bin

ex.: brcc32 "d:\temp\putty.rc"

  © Blogger template 'Perfection' by Ourblogtemplates.com 2008

Back to TOP