| SPI_SETDESKWALLPAPER |
|
|
| Private Declare Function SystemParametersInfo Lib "user32" _ |
| Alias "SystemParametersInfoA" (ByVal uAction As Long, _ |
| ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long |
|
| Private Const SPI_SETDESKWALLPAPER = 20 |
| Private Const SPIF_SENDWININICHANGE = &H2 |
| Private Const SPIF_UPDATEINIFILE = &H1 |
|
| Function SetWallpaper(ByVal sFile As String) As Boolean |
| Dim RetVal As Long |
| RetVal = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, sFile, _ |
| SPIF_SENDWININICHANGE Or SPIF_UPDATEINIFILE) |
| SetWallpaper = RetVal <> 0 |
| End Function |
|
| Sub Button_Click() |
| SetWallpaper "C:\test.bmp" |
| End Sub |
|
|
|
|
|
|
|
|
|
zurück