自动更换墙纸的小程序

fuWinIni -------  Long，取决于不同的参数及操作系统，随同这个函数设置的用户配置参数保存在win.ini或注册表里，或同时保存在这两个地方。这个参数规定了在设置系统参数的时候，是否应更新用户设置参数。可以是零（禁止更新），或下述任何一个常数：

SPIF_UPDATEINIFILE
更新win.ini和（或）注册表中的用户配置文件

SPIF_SENDWININICHANGE
倘若也设置了SPIF_UPDATEINIFILE，将一条WM_WININICHANGE消息发给所有应用程序。否则没有作用。这调消息告诉应用程序已经改变了用户配置设置

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

设置墙纸

Const SPI_SETDESKWALLPAPER = 20

更新windows ini 文件

Const SPIF_UPDATEINIFILE = &H1; Const SPIF_SENDWININICHANGE = &H2;

当“添加墙纸”按钮被按下时

Private Sub CmdAdd_Click()

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  下一页