2 Astral_Master
ДЫк тебе нужно подрубить к проекту файл с ресурсами.
Мож прям a форму дабавить {$R myres.res}
Ну файлы с ресурсами можешь создать с какомнить левом редакторе ресурсов.
К примеру можно заюзать от VC++
Или еще лучше - юзай RC файлы.
т.е. это файл в котором описываются ресурсы. потом его можно добавить к ресурсу.
Мож вырозился не так. Но суть такова. В этом файле прописываешь тип ресурса и его имя и файл от куда берутся данные.
К примеру чтобы грузануть звук. ТО файл выглядет так:
-.-.-.-.
110 WAVE sound1.wav
120 WAVE sound2.wav
-.-.-.-.
Для включения ширта юзай вот такую вот вешь:
MY_FONT ANYOL1 "Bauhs93.ttf"
Имя, Тип ресурса, файл где хранятся данные.
Вот так вот можно засунуть JPEG:
1 RCDATA "MyPic.jpg"
И тогда чтобы юзать его. Нужно:
Код:
uses jpeg;
-.-.-.-.-
procedure LoadJPEGfromEXE;
var
MyJPG: TJPEGImage; // Объект - JPEG
ResStream: TResourceStream; // Объект - поток ресурсов
begin
try
MyJPG := TJPEGImage.Create;
ResStream := TResourceStream.CreateFromID(HInstance, 1, RT_RCDATA);
MyJPG.LoadFromStream(ResStream);
Canvas.Draw(12, 12, MyJPG);
finally
MyJPG.Free;
ResStream.Free;
end;
end; // procedure