自动更换墙纸的小程序

下一页 1 2 3 4 5 6 7 

　　 

　　应用SystemParametersInfo函数可以获取和设置数量众多的windows系统参数。这个小程序就是运用了SystemParametersInfo函数来设置桌面的墙纸，而且程序可以让我们选择多幅墙纸图片，程序会以一定的时间间隔自动改变墙纸。

---------------------------------------------
              自动更换墙纸的小程序
---------------------------------------------
   SystemParametersInfo函数应用的一个例子
---------------------------------------------
【VB声明】

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long

【说明】
允许获取和设置数量众多的windows系统参数

【返回值】
Long，非零表示成功，零表示失败。会设置GetLastError

【备注】
在调用这个函数之前，特别要注意将lpvParam参数定义成正确的数据类型

【参数表】
uAction --------  Long，指定要设置的参数。参考uAction常数表

uParam ---------  Long，参考uAction常数表
lpvParam -------  Any，按引用调用的Integer、Long和数据结构。对于String数据，请用SystemParametersInfoByval函数。具体用法参考uAction常数表

原文转自：http://www.ltesting.net