/*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);

}