vb高手搜集-常见问题总结4(终章)

　　Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As String, ByVal fuWinIni As Long) As Long

　　Const SPI_SETDESKWALLPAPER = 20
　　Const SPIF_UPDATEINIFILE = &H1
　　Const SPIF_SENDWININICHANGE = &H2

　　Private Sub Command1_Click()
　　Dim X As Long
　　X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, "(None)", SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
　　MsgBox "桌面底图 (Wallpaper) 已经被移除"
　　End Sub

　　Private Sub Command2_Click()
　　Dim FileName As String
　　Dim X As Long
　　FileName = "c:\windows\test.bmp"
　　X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, FileName, SPIF_UPDATEINIFILE Or　SPIF_SENDWININICHANGE)
　　MsgBox "桌面底图 (Wallpaper) 已经被更改"
　　End Sub