在xp环境下如何使用jpg做壁纸？ ( 积分: 100 )

如题，使用SystemParametersInfo只能设置bmp的壁纸，请问如果能够使用jpg呢，前提是不做图像转换，直接使用，主要是我觉得windows的壁纸设置程序就没有进行转换，谢谢！

如题，使用SystemParametersInfo只能设置bmp的壁纸，请问如果能够使用jpg呢，前提是不做图像转换，直接使用，主要是我觉得windows的壁纸设置程序就没有进行转换，谢谢！

procedure SetDesktopBackground(const AFileName: string)
var
ADeskTop: IActiveDesktop;
wallpaper: PwideChar;
begin
ADeskTop := CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop;
wallpaper := PwideChar(WideString(AFileName));
ADeskTop.SetWallpaper(wallpaper, 0);
ADeskTop.ApplyChanges(AD_APPLY_ALL);
end;

搞定，谢谢！顺便说一下要引用shlobj,ComObj