Смена обоев, проблема с записью в реестр

[Cooler2]

Здравствуйте!
вопрос в следующем, делаю программку для смены обоев в Windows Seven Starter.
Механизм смены обоев мне известнен. Все обходится записью в реестр значений и посылке системе сообщения, что реестр обновлен. Надо открыть HKCU, далее Control Panel
и Desktop. Так вот возникли проблемы с открытием раздела Desktop. Проблемы заключается в следующем: что этот раздел можно открыть только для чтения.
А если в самом реестре (через regedit) открыть все права, то запись значений происходит, но после вызова функции SystemParametrsInfo Windows записанные значения перезаписывает своими,т.е. вставляет свою стандартную обоину.
Теперь пришло время запросить при запуске моей программы повышенные права у системы через UAC используя манифест. Сделал. Права запрашивает, нажимаю да, = результат тот же. Доступа к разделу Desktop для записи я по прежнему не имею.
Подскажите, в чем моя ошибка. Что не так. Исходник прилагаю).

Еще хочу добавить, что программа personalization под той же учеткой и с тем же запросом повышенных прав со своей задачей справляется и данные в реестр вносит.

[dmitriegorovih]

Вот возьмите вот эти функции меняют картинку на рабочем столе и сохраняет при этом её

uses
  ...ComObj, ShlObj;

...

 function StringToPWide(sStr: string; var iNewSize: integer): PWideChar;
var
  pw: PWideChar;
  iSize: 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;

procedure TForm1.Button1Click(Sender: TObject);
var
isize:integer;
begin
ChangeActiveWallpaper(StringToPWide('D:\Wallpaper1.bmp',isize));
end;

P.S. Проанализировав реестр я заключил следующие: что-бы поменять картинку на рабочем столе нужно менять не путь а саму картинку по вот этому пути C:\Users\Пользователь\AppData\Roami ng\Microsoft\Windows\Themes\Transco dedWallpaper.jpg