开机自动更换墙纸
每次开机都面对同样的墙纸，真让人感到单调乏味。是不是可以在每次开机的时候，都能给你一个意外的惊喜，自动地更换墙纸呢？笔者用VB5.0编了一个小程序，可以轻松地解决这个问题。而其关键在于一个WINDOWSAPI函数的使用，该函数的功能是用来设置或询问系统范围参数的，其表达形式如下：
DeclareFunctionSystemParametersInfoLib“user32"Alias“SystemParametersInfoA"(ByValuActionAsLong,ByValuParamAsLong,ByVallpvParamAsAny,ByValfuWinIniAsLong)AsLong
1、第一个参数uAction是用来动作设置的，该参数分GET和SET两种行动，有约80种不同的参数设置，其中设置墙纸的参数为SPI_SETDESKWALLPAPER=20。
2、第二个参数uParam的设置是随第一个参数的设置作相应调整的。这里置空值。
3、第三个参数lpvParam是用来设置要更换上去的图片路径。该参数的设置也是随第一个参数作相应调整的。
4、第四个参数fulWIni规定了在设置系统参数的时候，是否应更新用户设置参数。
...[ 查看全文 ]
