Papel de Parede

O exemplo a seguir leva um Button e um OpenPictureDialog no Form. Quando o usuário dá um clique no Button, a caixa de diálogos se abre permitindo ao usuário a escolha de uma imagem para papel de parede.

void __fastcall TForm1::Button1Click(TObject *Sender)
{
OpenPictureDialog1->Filter = "*.bmp";
AnsiString FileName;
if (OpenPictureDialog1->Execute())
        FileName = OpenPictureDialog1->FileName;
             SystemParametersInfo(SPI_SETDESKWALLPAPER,0,FileName.c_str(),
                     SPIF_UPDATEINIFILE + SPIF_SENDWININICHANGE);

}