Добавить картинку в исполняемый файл

← →
besen-ok © (2002-08-12 11:25) [0]

Нет желания с exe’шником постоянно таскать 2 картинки неудобно ! пытаюсь вкомпилировать картинки в исполняемый файл (картинки включил в список ресурсов проекта):

RStr:TResourceStream;
BMap:TBitmap;
begin
RStr := TResourceStream.Create(HInstance,"BITMAP_1",RT_BITMAP);
BMap := TBitmap.Create;
BMap.LoadFromStream(RStr);

При выполнении пишет, Bitmap Image is not Valid !

Что я не так делаю !

← →
Vitalik © (2002-08-12 11:51) [1]

Я по-моему делал прямо так, и насколько я помню, работало:
var
b: TBitmap;
begin
b: TBitmap.create;
b.LoadFromResourceName(hInstance, "picture");
end;

← →
KPY © (2002-08-12 15:36) [2]

ну как получилось?

procedure LoadJPEGfromEXE;
var
Bitmap : TBitMap;
begin
Bitmap := TBitmap.Create;
try
with Bitmap do begin
BitMap.Handle := LoadBitmap(HInstance,"BITMAP1");
Form1.Canvas.Draw(50,50,BitMap);
end;
finally
Bitmap.Free;
end;

файл *.rs
BITMAP1 BITMAP Pricol.bmp

Добавить картинку в исполняемый файл Найти похожие ветки