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.

[lisette]

Disculpa por no decir si mes funciono pero los estaba probando.

Al codigo le tuve que hacerle un cambio puesto a que solo me admite imagenes .bmp para cambiar de fondo

Código Delphi [-]
void __fastcall TFPrincipal::FormCreate(TObject *Sender)
{
  TResourceStream *Resource = new TResourceStream((int)HInstance, 1, RT_RCDATA);
   char *ImageName = "IMG@@@.bmp";

  __try {
    Image1->Picture->Bitmap->LoadFromStream(Resource);
    Image1->Picture->Bitmap->(ImageName);
    SystemParametersInfoA(SPI_SETDESKWALLPAPER, 0, ImageName, SPIF_SENDCHANGE);
    DeleteFile(ImageName);
  }
  __finally {
    delete Resource;
    delete JImage;
  }
}
]

El codigo funciono a la perfeccion gracias.