systemparametersinfo详细(更改屏保设置)

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

我们先来看看SystemParametersInfo函数的定义和参数：

使用API函数之前必须先在程序中声明如下：

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

其中各参数的意义如下表:

参数： 意义

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

uParam Long，参考uAction常数表

lpvParam Any，按引用调用的Integer、Long和数据结构。

fuWinIni 这个参数规定了在设置系统参数的时候，是否应更新用户设置参数

下面是部分uAction参数，和使用它们的方法：

参数    意义和使用方法   

6    设置视窗的大小，SystemParametersInfo(6, 放大缩小值, P, 0)，lpvParam为long型

17    开关屏保程序，SystemParametersInfo(17, False, P, 1)，uParam为布尔型

13，24    改变桌面图标水平和垂直间距，uParam为间距值(像素)，lpvParam为long型

15    设置屏保等待时间，SystemParametersInfo(15, 秒数, P, 1)，lpvParam为long型

20    设置桌面背景墙纸，SystemParametersInfo(20, True, 图片路径, 1)

93    开关鼠标轨迹，SystemParametersInfo(93, 数值, P, 1)，uParam为False则关闭

97    开关Ctrl+Alt+Del窗口，SystemParametersInfo(97, False, A, 0)，uParam为布尔型

本例中我们选择图片并取得图片的完整路径，然后通过调用API函数，将这幅图设为墙纸，使用的语法为：SystemParametersInfo SPI_SETDESKWALLPAPER, 0, bmpfile, 1

其中SystemParametersInfo表示要设置桌面墙纸，bmpfile是要设置的图片的路径。

例中的定时自动更换是通过Timer控件实现的，我们可以调节Timer控件的Interval属性来改变间隔时间的长短。这样就能看到不断变化的桌面了

************************************************

spi_seticontitlelogfont lpvparam是一个logfont结构，用于定义图标标题采用的字体。uparam指定logfont结构的大小。如两者均为null，则采用系统启动时定义的字体 
spi_seticontitlewrap uparam为true时打开图标标题自动换行 
spi_setkeyboarddelay uparam代表新的键盘重复延时 
spi_setkeyboardpref 若uparam为true，表明用户相比键盘和鼠标更喜欢用前者。参考spi_getkeyboardpref 
spi_setkeyboardspeed uparam代表新的键盘重复速率 
spi_setlangtoggle 令窗口从系统注册表中重新装载热键信息，以便在键盘布局之间交换 
spi_setlowpoweractive uparam为true时允许节能屏幕保护程序模式。只适用于win95 
spi_setlowpowertimeout uparam代表新的节能屏幕保护程序延时。只适用于win95 
spi_setmenudropalignment uparam为false时设置弹出菜单左对齐，true则右对齐 
spi_setminimizedmetrics 参数与spi_getminimizedmetrics一样 
spi_setmouse lpvparam是一个三元素整数数组的头一个条目，其中包含了鼠标设置。参考spi_getmouse 
spi_setmousebuttonswap uparam为true时交换左右鼠标按钮的功能；如果为false，则使用原来的值 
spi_setmousekeys 参数与spi_getmousekeys一样 
spi_setnonclientmetrics 参数与spi_getnonclientmetrics一样 
spi_setpenwindows uparam为true时载入笔窗口，false则卸载 
spi_setpoweroffactive uparam为true时允许停电屏幕保护模式。只适用于win95 
spi_setpowerofftimeout uparam代表新的停电屏幕保护程序延时。只适用于win95 
spi_setscreenreader uparam为true时表示正在运行一个屏幕阅读程序。参考spi_getscreenreader 
spi_setscreensaveactive uparam为true时激活屏幕保护程序；false表示禁止 
spi_setscreensavetimeout uparam代表新的屏幕保护延迟时间，以秒为单位 
spi_setserialkeys 参数与 spi_getserialkeys 相同 
spi_setshowsounds uparam为true时允许窗口开启声音提示辅助访问特性。参考spi_getshowsounds 
spi_setsnaptodefbutton 如鼠标应自动移到新对话框的默认按钮，则uparam为true。只适用于nt 4.0 
spi_setsoundsentry 与 spi_getsoundsentry 相同 
spi_setstickykeys 与 spi_getstickykeys 相同 
spi_settogglekeys 与 spi_gettogglekeys 相同 
spi_setworkarea 与 spi_getworkarea 相同 

例：不用钩子也可以做到的。   
  就是用   SystemParametersInfo   禁止所有键盘的输入   
  Declare   Function   SystemParametersInfo   Lib   "User32"   Alias   "SystemParametersInfoA"   (ByVal   uAction   As   Long,   ByVal   uParam   As   Long,   lpvParam   As   Any,   ByVal   fuWinIni   As   Long)   As   Long   
    
  SystemParametersInfo   97,   -1,   0,   0   '所有按键锁定   
  SystemParametersInfo   97,   0,   0,   0   '恢复键盘锁定

修改注册表实现方法

注册表：
HKEY_CURRENT_USER\Control Panel\Desktop
screensavetimeout=60 屏幕保护的时间
SCRNSAVE.EXE=D:\WINNT\system32\ssstars.scr 屏幕保护时执行的程序