Не могу сменить картинку на раб столе:

Reg := TRegIniFile.Create('Control Panel');
Reg.WriteString('desktop', 'Wallpaper', reg_str);
Reg.WriteString('desktop', 'TileWallpaper', reg_type_scr1);
Reg.WriteString('desktop', 'WallpaperStyle', reg_type_scr2);
Reg.Free;

Работает только если картинка в формате *.bmp а мне надо в jpg.
C jpeg-ом в XP экран становится черным а в 98 просто ничего не происходит
Пробовал обновить Экран

   hDesktop := FindWindowEx(FindWindowEx(FindWindow('Progman', 'Program Manager'), 0,'SHELLDLL_DefView', ''), 0, 'SysListView32', '');
   PostMessage(hDesktop, WM_KEYDOWN, VK_F5, 0);
  PostMessage(hDesktop, WM_KEYUP, VK_F5, 1 shl 31);

Тоже ничего что делать