Смена картинки в windows 8

[DiDfree]

Здравствуйте!
Подскажите пожалуйста, почему данная процедура смены картинки рабочего стола не работает в windows 8.
ps: в windows 7 работает нормально.

Заранее спасибо за любую помощь!

procedure SetWallpaper;
const
  CLSID_ActiveDesktop: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}';
var
  ActiveDesktop: IActiveDesktop;
begin
  ActiveDesktop := CreateComObject(CLSID_ActiveDesktop)
    as IActiveDesktop;
  ActiveDesktop.SetWallpaper(PWChar(WideString(Application.ExeName)+'\img\background.jpg'), 0);
  ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
end;

[Человек_Борща]

В MSDN смотрите =)

[DiDfree]

Кстати почему то в xp тоже не работает, только в windows 7...

[Человек_Борща]

Все работает и в XP и в 8-ке, у меня по крайней мере.

[DiDfree]

Человек_Борща, Вы с bmp картинкой работали или с jpg?
Почему тогда у меня не работает?