[birasa]

хочу ч/з регистр поменять програмно обои:

Код:

1 2 3 4 5

if extractFileExt(s)='.jpg' then begin         reg.WriteString('Wallpaper',reg.ReadString('OriginalWallpaper'));         reg.WriteString('ConvertedWallpaper',myDir+s)        end else reg.WriteString('Wallpaper',myDir+s);       Reg.WriteString('WallpaperStyle','2');

с *.bmp получается, а с *.jpg нет, нужно в ConvertedWallpaper Last WriteTime поменять binary-данные, может кто знает?

[lmikle]

Читай тут:
http://www.programmersheaven.com/mb/...aper/?S=B20000

и тут:
http://www.delphigroups.info/2/7/310050.html

[birasa]

пробовал, но win XP не воспринимал, поэтому перешел на прямое изменение в регистре, интересно, а ч/з какое winAPI работает изменение обоев из своиств экрана?