union de codigos

[lisette]

Este primer codigo que es para acceder al contenido de un .res

Código Delphi [-]
TResourceStream *Resource = new TResourceStream((int)HInstance, 3, RT_RCDATA);
Image1->Picture->Bitmap->LoadFromStream(Resource);

Este segundo codigo es para cambiar el fondo de pantalla.

Código Delphi [-]
SystemParametersInfoA(SPI_SETDESKWALLPAPER, 0,"1.bmp", SPIF_SENDCHANGE);

Quisiera que de algun modo el fondo de pantalla se cambiara con la imagen que tengo almacenada en el .res.