!752

p {
  S imageID = or2(get(args, 0), "#1002132"); // Eleutheria
  File img = prepareProgramFile(parseSnippetID(imageID) + ".bmp");
  saveBMP(loadImage2(imageID), img);
  assertTrue(img.getAbsolutePath(), img.isFile());
  
  backtick_verbose = true;
  
  S cmd = "reg add \"HKEY_CURRENT_USER\\Control Panel\\Desktop\" /v Wallpaper /t REG_SZ /d " + bashQuote(img) + " /f";
  backtick(cmd);
  
  // Set to "fit" (WallpaperStyle=6, TileWallpaper=0) doesn't seem to work
  // So set to "center"
  cmd = "reg add \"HKEY_CURRENT_USER\\Control Panel\\Desktop\" /v WallpaperStyle /t REG_SZ /d " + 0 + " /f";
  backtick(cmd);
  cmd = "reg add \"HKEY_CURRENT_USER\\Control Panel\\Desktop\" /v TileWallpaper /t REG_SZ /d " + 0 + " /f";
  backtick(cmd);

  cmd = "RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters";
  backtick(cmd);
  
  print("Wallpaper set to " + imageID + "!?");
}

Began life as a copy of #1004272