改变桌面 (2000年12月29日).txt

来自「delphi 编程技巧」· 文本 代码 · 共 17 行

改变桌面 (2000年12月29日) 

网友更新  分类:Win API   作者: maming(推荐)  推荐:maming   阅读次数:422  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
PROCEDURE CHANGWALLPAPER;
var Reg:TregIniFile;
BEGIN
REG:=TREGINIFILE.CREAE('CONTROLPANEL');
REG.WRITESTRING('DESKTOP','WALLPAPER','C:\WINDOWS\TMP.BMP');
REG.WRITESTRING('DESKTOP','TILEWALLPAPER','1');
REG.FREE;
SYSTEMPARAMETERSINFO(SPI_SETDESKWALLPAPER,0,NIL,SPIF_SENDWININICHANGE);
END;