如何在程序中激活"活动桌面"(50分)

如何在程序中激活"活动桌面":就是在普通桌面下通过程序设置活动桌面，然后激活"活动桌面"使其可以显示出来.

uses shlobj,comobj;
{ 打开活动桌面 }
function SetActiveDesktop(const b: Boolean): integer;
var
Desktop: IActiveDesktop;
Info: TComponentsOpt;
begin
DeskTop := CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop;
Result := GetLastError;
info.dwSize := sizeof(info);
info.fActiveDesktop := b;
info.fEnableComponents := false;
Desktop.SetDesktopItemOptions(info, 0);
DeskTop.ApplyChanges(AD_APPLY_ALL);
end;

太感谢了，如果能提供这两个组件的相关信息就更好了：
Desktop: IActiveDesktop;
Info: TComponentsOpt;

有关活动桌面的也可以,谢谢。
这分给你了.

接受答案了.