Delphi内更换墙纸

      Reg:=TRegistry.Create;
      Reg.RootKey:=HKEY_CURRENT_USER;
      Reg.OpenKey('Control PanelDesktop',False);
      Reg.WriteString('TileWallpaper','0');
      Reg.WriteString('WallPaperStyle','0');
      Reg.WriteString('Wallpaper','C:MyWallpaper.bmp');
      Reg.CloseKey;
      Reg.Free;
      SystemParametersInfo(SPI_SETDESKWALLPAPER,0,nil,SPIF_SENDCHANGE + SPIF_UPDATEINIFILE);