HanDs
管理员

[Delphi文章] 控制壁纸 





学习中请遵循国家相关法律法规,黑客不作恶。没有网络安全就没有国家安全

本站需要登陆后才能查看

控制Windows的桌面壁纸是一些看图工具常有的功能,要实现该功能是非常容易的,以下的程序使壁纸换为我们想要的图片,如果THEPCHAR为空,那么就取消壁纸,变为Win默认色彩;但这种方法只是暂时的,在WINDOWS重新启动后还是恢复原来的位图,所以要永久保留还需要对WIN.INI文件进行改写操作,才能保存住我们改动的图片不被替换。但这种暂时性也好在让我们可以实现定时更换桌面图片功能:

  var THEPCHAR:pchar;
begin
THEPCHAR:=e:\a.jpg;
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, THEPCHAR, SPIF_SENDWININICHANGE)
end;


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
控制 壁纸
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组
快速回复