Сейчас изображение загружается из файла (работает):
| Код |
img := TGPBitmap.Create(extractfilepath(Application.ExeName)+'background.png', True);
|
Но, в идеале хочется загружать изображение из ресурса программы (изображение добавлено, 'Background', RCData), при этом я что-то не правильно делаю.
| Код |
hResource: THandle;
pData: Pointer;
hResource := LoadResource(hInstance, FindResource(hInstance, 'Background', RT_RCDATA));
try
pData := LockResource(hResource);
if pData = nil then
raise Exception.Create('Cannot read Background');
img := TGPBitmap.Create(hResource); // как здесь правильно будет?
finally
FreeResource(hResource);
end;
|
Изображение загружено в ресурс:
| Код |
Background RCData "background.png"
|
|