关于如何判定系统启动的问题

Question

www.21code.com
系统控制有一个更换墙纸的好例子，去看看吧

Answer 1

用修改注册表的函数到：HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System（如果想为所有用户指定墙纸，则到：
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System）下，新建一个字符串（REG_SZ）类型的值项　Wallpaper,值为墙纸文件路径。
再新建一个字符串类型的值项　WallpaperStyle ,0 表示在桌面正中间，1　表示平铺，２表示拉伸。

Answer 2

改变墙纸：
声明：
Const SPI_SETDESKWALLPAPER = 20Const SPIF_UPDATEINIFILE = &H1Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long用法：Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, BMP名称, SPIF_UPDATEINIFILE)例子：' 1. 把桌面图片设为 c:\windows\setup.bmpCall SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:\windows\setup.bmp", SPIF_UPDATEINIFILE)' 2. 将桌面图片清除Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "", SPIF_UPDATEINIFILE)