荔园在线

荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀

[回到开始] [上一篇][下一篇]


发信人: Peter (小飞侠), 信区: Program
标  题: DelphiTips 036 - 控制壁纸
发信站: BBS 荔园晨风站 (Thu Jan 21 21:36:02 1999), 转信


                                 控制壁纸

控制Windows 95的壁纸,以下程序使壁纸变为我们想要的位图,如果THEPCHAR为空,
那么就取消壁纸,变为Win默认色彩; 但这种方法只是暂时的,在WINDOWS重新启动后
还是原来的位图,这时就需要对WIN.INI文件进行写操作,才能保存住我们改动的图片
不被替换。
var THEPCHAR:pchar;
begin
THEPCHAR:='e:\a.bmp';
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, THEPCHAR, SPIF_SENDWININICHANGE)
end;

--
※ 来源:.BBS 荔园晨风站 bbs.szu.edu.cn.[FROM: 192.168.1.3]


[回到开始] [上一篇][下一篇]

荔园在线首页 友情链接:深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店