union de codigos

[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.