Hola de nuevo, por lo que he entendido, entonces puedes utilizar un archivo de recurso:
Primero, te creas en la ruta donde estan tus imagenes, un archivo con extención rc, digamos "img.rc" el cual debe contener lo siguiente:
Código:
1 RCDATA azul.jpg
2 RCDATA verde.jpg
3 RCDATA rojo.jpg
Despues lo ejecutas en línea de comandos:
Código:
C:\path\brc32 -r -v img.rc
En la parte de implementation añades:
[delphi]
implementation
{$R *.dfm}
{$R img.res}
........................................
[delphi]
Para ver la imagen:
Código Delphi
[-]
var
Recursos: TResourceStream;
Imagen: TJPegImage;
begin
Imagen := TJPegImage.Create;
Recursos := TResourceStream.Create(hInstance,'#2', RT_RCDATA);
Try
Recursos.Seek(0, soFromBeginning);
Imagen.LoadFromStream(Recursos);
Image1.Canvas.Draw(0, 0,Imagen);
Finally
Recursos.Free;
Imagen.Free;
end;
Saluditos