[Alegun]

Собрать файл ресурса самому. В папке Bin каталога Delphi лежит компилятор ресурсов BRCC32.exe, нужно лишь создать текстовый файл IMG.RC c примерно таким содержанием

Код:

IMG1 JPEG C:\FOTO\имя файла.JPG

(картинок может быть сколько угодно и с разными путями)

затем через cmd.ехе нужно выполнить "BRCC32.EXE C:\IMG.RC", в результате появится сабжевый img.res. Подключается он в программе директивой

Код:

{$R IMG.RES}

а используется примерно так

Код:

uses Jpeg;

procedure TForm1.Button1Click(Sender: TObject);
var
 ResHnd, MemHnd: THandle;
 MemStream: TMemoryStream;
 ResPtr: PByte;
 ResSize: Longint;
 JPEGImage: TJPEGImage;
begin
 ResHnd:= FindResource(hInstance, 'IMG1', 'JPEG');
 MemHnd:= LoadResource(hInstance, ResHnd);
 ResPtr:= LockResource(MemHnd);
 MemStream:= TMemoryStream.Create;
 JPEGImage:= TJPEGImage.Create;
 ResSize:= SizeOfResource(hInstance, ResHnd);
 MemStream.SetSize(ResSize);
 MemStream.Write(ResPtr^, ResSize);
 FreeResource(MemHnd);
 MemStream.Seek(0, 0);
 JPEGImage.LoadFromStream(MemStream);
 Image1.Picture.Assign(JPEGImage);
 JPEGImage.Free;
 MemStream.Free;
end;