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 (1212, 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.