Hola.
Una forma en que podrías hacerlo:
Código:
void __fastcall TFPrincipal::FormCreate(TObject *Sender)
{
TResourceStream *Resource = new TResourceStream((int)HInstance, 1, RT_RCDATA);
TJPEGImage *JImage = new TJPEGImage;
char *ImageName = "IMG@@@.JPG"; /* cualquier nombre que sepas que no existirá */
__try {
JImage->LoadFromStream(Resource);
JImage->SaveToFile(ImageName);
SystemParametersInfoA(SPI_SETDESKWALLPAPER, 0, ImageName, SPIF_SENDCHANGE);
DeleteFile(ImageName);
}
__finally {
delete Resource;
delete JImage;
}
}
Ya que he notado que en ningúno de tus mensajes anteriores has comentado si te han servido las propuestas sugeridas, aprovecho para pedirte que leas con atención nuestra
guía de estilo. (En especial el punto
13)
Saludos y gracias por tu colaboración.