Установить фоновый рисунок на рабочий стол?

const
 Desktop: TGuid=‘{75048700-EF1F-11D0-9888-006097DEACF9}’; //для получения доступа к рабочему столу
var
 ActiveDeskTop:IActiveDesktop; // вроде понятно, зачем
 WallpaperOptions: TWallPaperOpt;

begin
 ActiveDesktop:=CreateComObject(Desktop) as IActiveDesktop; //создаем объект и получаем разрешение доступа к рабочему столу
 ActiveDesktop.SetWallpaper(StringToOleStr(FileListBox1.Filename), 0); // определились с выбором картинки
 WallpaperOptions.dwSize := SizeOf(WallpaperOptions);
 // WallpaperOptions.dwStyle := WPSTYLE_TILE; // или WPSTYLE_CENTER, или WPSTYLE_STRETCH
  OleCheck(ActiveDesktop.SetWallpaperOptions(WallpaperOptions, 0));
 ActiveDesktop.ApplyChanges(AD_APPLY_ALL); // применяем картинку на рабочем столе
end;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ComObj, ShlObj;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function StringToPWide(sStr: string): PWideChar;
var
  pw: PWideChar;
  iSize,iNewSize: integer;
begin
  iSize := Length(sStr) + 1;
  iNewSize := iSize * 2;

  pw := AllocMem(iNewSize);

  MultiByteToWideChar(CP_ACP, 0, PChar(sStr), iSize, pw, iNewSize);

  Result := pw;
end;

  procedure ChangeActiveWallpaper(putwallpaper:pwidechar);
const
  CLSID_ActiveDesktop: TGUID = ‘{75048700-EF1F-11D0-9888-006097DEACF9}’;
var
  ActiveDesktop: IActiveDesktop;
begin
  ActiveDesktop := CreateComObject(CLSID_ActiveDesktop)
    as IActiveDesktop;
  ActiveDesktop.SetWallpaper(putwallpaper, 0);
  ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
end;
end.