Плавная смена обоев(как в windows 7)

[rokweb]

Доброго времени суток! Интересует вопрос как сделать плавную смену обоев, как в Windows 7?

Обычная смена обоев реализуется довольно просто, следующей процедурой:

procedure SetWallpaper(sWallpaperBMPPath: string);
var

  reg: TRegIniFile;
begin
  reg := TRegIniFile.Create('Control Panel\Desktop');
  with reg do
  begin
    WriteString('', 'Wallpaper', sWallpaperBMPPath);
    WriteString('', 'TileWallpaper', '0');
    WriteString('', 'WallpaperStyle', '2');
  end;
  reg.Free;
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
end;

[rokweb]

Вопрос актуален. Кто-нибудь может помочь?

[Пепел Феникса]

а как в семерке то?
думаю это функция оболочки, коей не было в хрюше.

[rokweb]

Вот видео описывающее то, что мне нужно - плавную смену обоев в Windows 7:

http://rghost.ru/38009962
http://dump.ru/file/5723841
http://narod.ru/disk/48668124001.b62...Video.rar.html

P.S. При попытке прикрепить видео к сообщению пишет "Загрузка файла прошла неудачно".

[rokweb]

Апну перед сном. Помогите кто-нибудь, пожалуйста.

[lux16]

Хм, у самого семерка, понимаю про что ты говоришь, но к сожалению в ХР это не реализуемо, если ты только не будешь накладывать на рабочий стол свою прогу и в ней меняй с помощью альфа слоя изображения. По другому наверное никак

[denisbrain]

Сообщение от lux16

Хм, у самого семерка, понимаю про что ты говоришь, но к сожалению в ХР это не реализуемо, если ты только не будешь накладывать на рабочий стол свою прогу и в ней меняй с помощью альфа слоя изображения. По другому наверное никак

можно наверное затолкать Image на Desktop и в нем проводить манипуляции, но проблема есть - значки

[rokweb]

Сообщение от lux16

Хм, у самого семерка, понимаю про что ты говоришь, но к сожалению в ХР это не реализуемо, если ты только не будешь накладывать на рабочий стол свою прогу и в ней меняй с помощью альфа слоя изображения. По другому наверное никак

Сообщение от denisbrain

можно наверное затолкать Image на Desktop и в нем проводить манипуляции, но проблема есть - значки

Делал так. Форму на весь скрин, и на самой форме проводишь манипуляции(т.е. делается скрин всего рабочего стола, этот скрин накладывается на форму, которая в свою очередь моментально ложится поверх всего рабочего стола таким образом форма плавно исчезает - по сути задача решена - но недостаток(серьёзный): во время смены обоины не получится управлять рабочим столом(ибо клики и все прочее производится не на рабочий стол, а на нашу форму), поэтому ищу другой способ. Ведь в Windows 7 во время плавной смены обоев - кликать и управлять ярлыками получается - значит способ есть.

[Пепел Феникса]

в семерке это поддерживает оболочка рабочего стола.
в ХР нет.

[rokweb]

Дык мне и нужно для семерки. Как это в ней сделать с помощью Delphi?