Powershell script from shortcut to change desktop

by

rundll32.exe user32.dll, UpdatePerUserSystemParameters didn’t actually change the wallpaper for me on a 2008 x64 box. This does did though… It calls the Win32 API to invoke changing the wallpaper. If you save this as your ChangeDesktop.ps1 script it should work. As it is below it will remove any desktop wallpaper. However if you do want to set one you can edit the last line with the path of a supported image file like this:

[Wallpaper.Setter]::SetWallpaper( 'C:\Wallpaper.bmp', 0 )

The second argument is for the styling:

0: Tile
1: Center
2: Stretch
3: No Change

The script:

Add-Type @"
using System;
using System.Runtime.InteropServices;
using Microsoft.Win32;
namespace Wallpaper
{
   public enum Style : int
   {
       Tile, Center, Stretch, NoChange
   }
   public class Setter {
      public const int SetDesktopWallpaper = 20;
      public const int UpdateIniFile = 0x01;
      public const int SendWinIniChange = 0x02;
      [DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]
      private static extern int SystemParametersInfo (int uAction, int uParam, string lpvParam, int fuWinIni);
      public static void SetWallpaper ( string path, Wallpaper.Style style ) {
         SystemParametersInfo( SetDesktopWallpaper, 0, path, UpdateIniFile | SendWinIniChange );
         RegistryKey key = Registry.CurrentUser.OpenSubKey("Control Panel\\Desktop", true);
         switch( style )
         {
            case Style.Stretch :
               key.SetValue(@"WallpaperStyle", "2") ; 
               key.SetValue(@"TileWallpaper", "0") ;
               break;
            case Style.Center :
               key.SetValue(@"WallpaperStyle", "1") ; 
               key.SetValue(@"TileWallpaper", "0") ; 
               break;
            case Style.Tile :
               key.SetValue(@"WallpaperStyle", "1") ; 
               key.SetValue(@"TileWallpaper", "1") ;
               break;
            case Style.NoChange :
               break;
         }
         key.Close();
      }
   }
}
"@

[Wallpaper.Setter]::SetWallpaper( '', 0 )

Originally from PoshCode: http://poshcode.org/491

More Related Contents:

  1. this code my teacher gave it to us as homework and it does not work with me idk why
  2. How can you use an object’s property in a double-quoted string?
  3. Powershell: passing json string to curl
  4. How can I replace every occurrence of a String in a file with PowerShell?
  5. How do I pass variables with the Invoke-Command cmdlet?
  6. Loop through files in a directory using PowerShell
  7. Custom RoboCopy Progress Bar in PowerShell
  8. Difference between ForEach and ForEach-Object in powershell
  9. How to reference .NET assemblies using PowerShell
  10. Any way to double-click on .PS1 file & open them in PowerShell?
  11. Get current user’s credentials object in Powershell without prompting
  12. Redirect Write-Host statements to a file
  13. How to get started with PowerShell? [closed]
  14. Powershell ConvertTo-json with embedded hashtable
  15. How to convert to UInt64 from a string in Powershell? String-to-number conversion
  16. How to process a file in PowerShell line-by-line as a stream
  17. How to unzip a file in Powershell?
  18. How to fail the build from a PowerShell task in TFS 2015
  19. VS code terminal can’t find AWS SAM even though windows terminal can
  20. Script has two variables when done, but when I pipe to SELECT-object only first one returns data to console
  21. Accessing Windows Credential Manager from PowerShell
  22. Why do integers in PowerShell compare by digits?
  23. How do I encode Unicode character codes in a PowerShell string literal?
  24. How can I find the source path of an executing script? [duplicate]
  25. Start-process raises an error when providing Credentials – possible bug
  26. Escaping dollar signs in PowerShell path is not working
  27. Git Shell in Windows: patch’s default character encoding is UCS-2 Little Endian – how to change this to ANSI or UTF-8 without BOM?
  28. Adding an App Settings to existing Azure Web Application using Azure Power Shell
  29. List of all colors available for PowerShell?
  30. Expand variable inside single quotes

Leave a Comment