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

自己对DELPHI学习的一点体会

改变桌面 (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;