发信人: redfox (Z掉了几乎所有的版...), 信区: BorlandDev
标  题: Delphi编程 -- 4.7 控制壁纸
发信站: 哈工大紫丁香 (2000年09月01日16:05:07 星期五), 站内信件

控制壁纸 

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

 

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.107]