用delphi实现壁纸更换

　　在windows95/98中，都是使用注册表对系统数据进行管理,有关壁纸的设置数据保存在hkey_current_user\control panel\desktop的wallpaper和tilewallpaper 等键值中,只要成功修改了这两个键值,然后发消息给windows即可更换壁纸。在本例的程序中,使用了一个tform;两个tspeedbutton(speedbutton1用于接受用户的浏览命令,speedbutton2用于接受用户的更换壁纸命令);一个timage(用于显示图片)。另外，还用到一组文件控件：tfilelistbox,tdrivecombobox,tdirectorylistbox,用于选择图片文件，可以设置filelistbox的mask属性，筛选显示在filelistbox 中的文件类型(如只显示.bmp文件)。下面的两个程序段是实现浏览图片和更换壁纸的关键代码。

　　procedure tform1.speedbutton1click(sender:tobject);

　　begin

　　if (filelistbox1.filename=

　　′′) then {判断filelistbox1中文件有没有被选中}

　　　　messagedlg(′请先选择一幅位图′,mtinformation,[mbok],0)

　　else

　　image1.picture.loadformfile(filelistbox1.filename);{加载图片文件并显示}

　　end;

　　proceduretform1.speedbutton2click(sender:tobject);

　　var

　　reg:tregistry;{tregistry 对象在registry 单元中声明，需用uses令引用registry单元}

　　}

　　begin

　　if (filelistbox1.filename=′′) then

　　messagedlg(′请先选择一幅位图′,mtinformation,[mbok],0)

　　else

　　begin

　　reg:=tregistry.create;{创建tregistry对象的实例}

　　reg.rootkey:= hkey_current_user;{设置根键名称}

　　reg.openkey′control panel\desktop′,false); {打开control panel\desktop 路径对应的主键}

　　reg.writestring (′tilewallpaper′,

　　′0′);

　　reg.writestring

　　′wallpaper′，fileli

　　stbox1.filename);{向tilewallpaper 和wallpaper串覆盖写入新值}

　　systemparametersinfo(spi_setdeskwallpaper,0,nil,spif_sendchange);{向windows发送消息，通知windows更换壁纸}

　　reg.closekey;{将更改内容写入注册表并关闭}

　　reg.free;{释放对象}

　　end;

　　end;

　　　　代码中用到的一些函数可以察看delphi的联机帮助。需要注意的是:调用打开子键的函数openkey时，第二个参数一定要设为false。

ICP备案编号:粤ICP备06052964号

www.sosof.com

选择显示字体大小

用delphi实现壁纸更换

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准网站致力的规范

www.sosof.com

选择显示字体大小

用delphi实现壁纸更换

shouchang();

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准 网站致力的规范

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

标准网站致力的规范