Анимированные обои

[projectsoft]

Привет всем!!!

Меня интересует такой вопрос: "Как правильно установить анимированные обои на рабочий стол программным путём?"

Есть Сгенерированный HTML файл с содержанием Flah-ролика. Всё это сохраняется в "C:\WINDOWS\Web\Wallpaper" и от туда уже установка.

Я нашёл функцию в unit ShlObj:
function GenerateDesktopItemHtml(pwszFileNam e: PWideChar; var pcomp: TShComponent; dwReserved: DWORD): HResult; stdcall;

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

procedure ChangeActiveWallpaper(str: String);
const
CLSID_ActiveDesktop: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}';
var
ActiveDesktop: IActiveDesktop;
tsc: TShComponent;
i: cardinal;
begin
ActiveDesktop := CreateComObject(CLSID_ActiveDesktop )
as IActiveDesktop;
begin
ActiveDesktop.GenerateDesktopItemHt ml(PWideChar(str), tsc, 0);
ActiveDesktop.ApplyChanges(AD_APPLY _ALL or AD_APPLY_FORCE);
end;
end;

Новот когда уже загружены обои имеющие большой SWF файл - то функция перестают работать.

Помогите, пожалуйста, разобраться.

Заранее всем благодарен!

[baster128]

Прости старого пьяного дурака. Что такое ActiveDesktop?