Как "перекрасить" рабочий стол?

[t3ns0r]

Доброго времени суток
Реально ли на дельфи сделать прогу, чтоб менять обои на рабочем столе? Если да, то как?

[Net]

http://narod.yandex.ru/cgi-bin/yands...%EE%E8&where=2

[_SERGEYX_]

Писал когда-то такую программку. Вот здесь лежит. Можешь посмотреть. Если нужно - могу исходники прислать. Но, там в общем-то, всего пара процерур: поиск картинок в указанных каталогах, конвертирование jpg в bmp и установка обоев на Десктоп. Думаю сам такое напишешь минут за 20.

[mutabor]

Вот собственно и весь код:

procedure TForm1.Button1Click(Sender: TObject);
const
  CLSID_ActiveDesktop: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}';
var 
  ActiveDesktop: IActiveDesktop;
begin
  ActiveDesktop := CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop; 
  ActiveDesktop.SetWallpaper('путь к файлу', 0);
  ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE); 
end;

[Fainder]

2mutabor: А зачем так усложнять. Обои меняются одной командой:

SystemParametersInfo(SPI_SETDESKWAL LPAPER,1,Pointer(FileName),SPIF_UPD ATEINIFILE);

Конечно перед этим надо конвертить в бмп и ещё не помешает изменить размер, отследить пропорции и т.д.
У меня есть творение, которое легко это всё делает. Могу дать исходники модуля. Прога лежит здесь

[mutabor]

в том коде что я дал можно сразу jpeg передавать