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