HOW TO:墙纸设置

Imports System.Security
Imports System.Runtime.InteropServices

<SuppressUnmanagedCodeSecurity()> _
Friend NotInheritable Class UnsafeNativeMethods
    <DllImport("user32.dll", CharSet:=CharSet.Auto)> _
    Public Shared Function SystemParametersInfo( _
        ByVal nAction As Integer, _
        ByVal nParam As Integer, _
        ByVal lpvParam As String, _
        ByVal nUpdate As Integer _
    ) As Boolean

    End Function

    Public Const SPI_SETDESKWALLPAPER As Integer = &H14

    Public Const SPIF_UPDATEINIFILE As Integer = &H1
    Public Const SPIF_SENDWININICHANGE As Integer = &H2
End Class

Public Class DesktopWallpaper
    Private Sub New()
    End Sub

    Public Shared Function Clear(ByVal update As UpdateType) As Boolean
        Return InternalChange("", update)
    End Function

    Public Shared Function Change(ByVal bmpFile As String, ByVal update As UpdateType) As Boolean
        Return InternalChange(bmpFile, update)
    End Function

    Public Shared Function Change(ByVal path As String, ByVal bmpFilename As String, ByVal update As UpdateType) As Boolean
        Dim bmpFile As String = Microsoft.VisualBasic.FileIO.FileSystem.CombinePath(path, bmpFilename)
        Return InternalChange(bmpFile, update)
    End Function

    Private Shared Function InternalChange(ByVal bmpFile As String, ByVal update As UpdateType) As Boolean
        Return UnsafeNativeMethods.SystemParametersInfo( _
            UnsafeNativeMethods.SPI_SETDESKWALLPAPER, _
            0, _
            bmpFile, _
            GetUpdateValue(update))
    End Function

    Private Shared Function GetUpdateValue(ByVal update As UpdateType) As Integer
        Select Case update
            Case UpdateType.Save
                Return UnsafeNativeMethods.SPIF_UPDATEINIFILE
            Case UpdateType.Reflesh
                Return UnsafeNativeMethods.SPIF_SENDWININICHANGE
            Case UpdateType.SaveAndReflesh
                Return UnsafeNativeMethods.SPIF_UPDATEINIFILE Or UnsafeNativeMethods.SPIF_SENDWININICHANGE
        End Select
    End Function

    Public Enum UpdateType
        ''' <summary>
        ''' 保存设置,重启系统后有效
        ''' </summary>
        Save = 1
        ''' <summary>
        ''' 更新设置,本次有效,重启系统后无效
        ''' </summary>
        Reflesh = 2
        ''' <summary>
        ''' 保存设置并生效
        ''' </summary>
        SaveAndReflesh = 3
    End Enum
End Class



'没全部测试。在我的简单测试中,SaveOnly都会Reflesh了。
Public Class Demo

    Public Shared Sub RefleshOnly()
        DesktopWallpaper.Change("c: /test.bmp", DesktopWallpaper.UpdateType.Reflesh)
    End Sub

    Public Shared Sub SaveOnly()
        DesktopWallpaper.Change("c:/ test.bmp", DesktopWallpaper.UpdateType.Save)
    End Sub

    Public Shared Sub Update()
        DesktopWallpaper.Change("c:/ test.bmp", DesktopWallpaper.UpdateType.SaveAndReflesh)
    End Sub

    Public Shared Sub Clear()
        DesktopWallpaper.Clear(DesktopWallpaper.UpdateType.SaveAndReflesh)
    End Sub
End Class