Изменение фона рабочего стола

[Granus]

как его изменить? (в винде)
я имею в виду где хранится информация об этом

[spamer]

Uses ShlObj, ComObj;

procedure ChangeWallpaper;
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;

Например по нажатию кнопки вызовите процедуру ChangeWallpaper;

[Granus]

ыть)))
честно говоря не ожидал такого...хм, хорошего ответа))
спасибо огромное