Setting the desktop wallpaper

BlitzMax Forums/BlitzMax Beginners Area/Setting the desktop wallpaper

TomToad
 #1
how about
Extern "win32"
  Function SystemParametersInfo(uiAction, uiParam, pvParam Var, fWinIni) = "SystemParametersInfoA@16"
  Function SystemParametersInfo2(uiAction, uiParam, pvParam$z, fWinIni) = "SystemParametersInfoA@16"

End Extern

Function SetWallpaper(File:String)
	SystemParametersInfo2(20, 0, file, 1)
End Function

Local file:String = "C:\Windows\web\wallpaper\bliss.bmp"
SetWallpaper(file)