如何动态改变WinXP的墙纸？

Question

如何动态改变WinXP的墙纸？

Answer 1

做一个线程或是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;

Answer 2

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