union de codigos

[ecfisa]

Hola.

Una forma en que podrías hacerlo:

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.