如何动态改变WinXP的墙纸？

[瓦琦儿]

如何动态改变WinXP的墙纸？

[Danphel]

做一个线程或是Timer调用下面就可以了。
procedure ChangeWallpaper(bitmap: string); {bitmap contains filename: *.bmp}

var pBitmap : pchar;

begin
bitmap:=bitmap+#0;
pBitmap:=@bitmap[1];
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, pBitmap, SPIF_UPDATEINIFILE);
end;

[kejian]

两种方法。一是BMP二是JPG
BMP二楼的所述。
JPG又有两种方法。一是转成BMP。windows就是这样做。
还有就是用activewindows 直接使用JPG文件。


====================================================================

像和尚的唐僧。。。

====================================================================