Imagem - jpg dentro de um exe |
Top Previous Next |
|
Para colocar um arquivo qualquer dentro de um arquivo .exe, primeiramente crie um arquivo com extensão .rc no Bloco de Notas. O formato de um arquivo .rc é o seguinte:
1 RCDATA "MyPic.jpg"
onde "1" é o índice do arquivo, "RCDATA" é significa que é um tipo de arquivo não-padrão (os padrões são bitmaps, ícones e cursores) e ""MyPic.jpg"" é o nome do arquivo. Salve e execute o programa BRCC32.EXE que fica no subdiretório Bin do Delphi (BRCC32 arquivo.rc). Será criado um arquivo .res (arquivo.res) cujo conteúdo terá o próprio JPG.
Nota: Você pode colocar mais de um arquivo no arquivo .res, desde que os índices sejam diferentes.
Para colocá-lo no executável, coloque a linha:
{$R arquivo.res} após a linha:
{$R *.DFM} Ok, ele já vai ficar no executável. E como eu rodo esse JPG? Simples:
procedure LoadJPEGfromEXE; var MyJPG : TJPEGImage; ResStream : TResourceStream; Index : Integer;
begin Index := 1; try MyJPG := TJPEGImage.Create; ResStream := TResourceStream.CreateFromID (HInstance, Index, RT_RCDATA); MyJPG.LoadFromStream (ResStream); Canvas.Draw (12, 12, MyJPG); finally MyJPG.Free; ResStream.Free; end; end; // Troque o valor de Index pelo valor do índice que você criou para o arquivo que deseja abrir. |