 |
BCX Console Demonstration Program S98.bas
|
' ============================================================================
' BCX Console mode sample program
' Win32 command line utility to change the desktop wallpaper. Passing an
' invalid filename has the effect of setting the wallpaper to <none>
' ============================================================================
IF
COMMAND$
=
""
THEN
PRINT
"<S>et <W>all <P>aper by Kevin Diggins (2000)"
PRINT
"Usage: SWP filename.bmp"
END
END
IF
SystemParametersInfo(
SPI_SETDESKWALLPAPER, 0
, COMMAND$
, SPIF_UPDATEINIFILE )