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