标题: [转载代码] [PowerShell每日技巧]更改桌面壁纸(20140110) [打印本页]
作者: DAIC 时间: 2014-1-17 13:22 标题: [PowerShell每日技巧]更改桌面壁纸(20140110)
To change the current desktop wallpaper and make this change effective immediately, PowerShell can tap into the Windows API calls. Here is a function that changes the wallpaper immediately:- function Set-Wallpaper
- {
- param(
- [Parameter(Mandatory=$true)]
- $Path,
-
- [ValidateSet('Center', 'Stretch')]
- $Style = 'Stretch'
- )
-
- Add-Type @"
- using System;
- using System.Runtime.InteropServices;
- using Microsoft.Win32;
- namespace Wallpaper
- {
- public enum Style : int
- {
- Center, Stretch
- }
- 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;
- }
- key.Close();
- }
- }
- }
- "@
-
- [Wallpaper.Setter]::SetWallpaper( $Path, $Style )
- }
-
- Set-Wallpaper -Path 'C:\Windows\Web\Wallpaper\Characters\img24.jpg'
复制代码
http://powershell.com/cs/blogs/tips/archive/2014/01/10/change-desktop-wallpaper.aspx
作者: ivor 时间: 2014-1-18 10:46
好长的代码
作者: DAIC 时间: 2014-1-20 09:39
回复 2# ivor
把你的短的拿出来分享一下吧
欢迎光临 批处理之家 (http://www.bathome.net/) |
Powered by Discuz! 7.2 |