如何用delphi将jpg文件设为墙纸（pc上）？

Question

如何用delphi将jpg文件设为墙纸（pc上）？

Answer 1

JPG必须ActiveDesktop才支持。代码如下：   
  uses   comobj,shlobj;   
    
  procedure   TForm1.Button1Click(Sender:   TObject);     
  var     
  ADeskTop:IActiveDesktop;     
  wallpaper:PwideChar;     
  begin     
  ADeskTop:=CreateComObject(CLSID_ActiveDesktop)   as   IActiveDesktop;     
  wallpaper:='d:\2.bmp';     
  ADeskTop.SetWallpaper(wallpaper,0);     
  ADeskTop.ApplyChanges(AD_APPLY_ALL);     
  end;