delphi使用web桌面的问题

前一段时间遇到了一个需求，要求要能够在桌面上展示用户需求的图片并能够点击链接展开url链接，使用web桌面是最简单的办法，但是遇到问题，delphi的iactiveDesktop无论如何设置都不能展示，后来网上查了许久资料都没有找到结果，后来终于在一个不起眼的角落发现解决方法，据说是delphi的ShlObj.PAS中_tagCOMPONENT声明有误 = = ！ 不敢独享，现与各位分享之，已在delphi2007编译通过：

var
fileName:string;
ad : IActiveDesktop;
di : TShComponent;
hr : HRESULT;
co : TComponentsOpt;
cp : TCompPos;
ItemName : WideString;
ItemURL : WideString;
ItemCount : Integer;
I : Integer;
begin
//activeDesktop进行web桌面处理
ad := CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop;//创建
ZeroMemory(@co, SizeOf(co));
co.dwSize := SizeOf(co);
hr := ad.GetDesktopItemOptions(co, 0);//取得当前activeDesktop状态
//  if hr <> S_OK then
//    Memo1.Lines.Add(SysErrorMessage(HResultCode(hr)));
if not co.fActiveDesktop or not co.fEnableComponents then//未启用状态则开启
begin
co.dwSize := SizeOf(co);
co.fEnableComponents := True;
co.fActiveDesktop := True;
hr := ad.SetDesktopItemOptions(co, 0);
//    if hr <> S_OK then
//      Memo1.Lines.Add(SysErrorMessage(HResultCode(hr)));
//    hr := ad.ApplyChanges(AD_APPLY_ALL);
//    if hr <> S_OK then
//      Memo1.Lines.Add(SysErrorMessage(HResultCode(hr)));
end;
ZeroMemory(@cp, SizeOf(cp));
cp.dwSize := SizeOf(cp);//设置web桌面大小
cp.dwWidth := 1024;     //宽度，重要属性
cp.dwHeight := 768;     //高度，重要属性
cp.fCanResize := True;  //是否可重绘
ZeroMemory(@di, SizeOf(di));
di.dwSize := SizeOf(di);
di.dwID := 0;           //必须为0
di.fDirty := False;
di.fChecked := True;
di.fNoscroll := True;   //是否允许滚动条
di.iComponentType := COMP_TYPE_WEBSITE;//类别
di.fChecked := True;
di.cpPos := cp;         //将设定好的大小传过来
ItemName := '桌面项';   //名称，该名称可以在桌面->自定义桌面->web中看到
ItemURL:='http://www.baidu.com'; //url链接，重要属性，可设置本地web文件
//  ItemURL := 'D:/web/stock.htm';
Move(ItemName[1], di.wszFriendlyName, Length(ItemName)*SizeOf(WideChar));
Move(ItemURL[1], di.wszSource, Length(ItemURL)*SizeOf(WideChar));
hr := ad.AddDesktopItem(di, 0);
hr := ad.ApplyChanges(AD_APPLY_ALL);//刷新

//下面这一段代码是获取当前生效的web桌面的
//  hr := ad.GetDesktopItemCount(ItemCount,0);
//  for I := 0 to ItemCount - 1 do
//  begin
//    ZeroMemory(@di, SizeOf(di));
//    di.dwSize := SizeOf(di);
//    hr := ad.GetDesktopItem(I, di, 0);
//    if hr <> S_OK then
//    begin
//      Memo1.Lines.Add(SysErrorMessage(HResultCode(hr)));
//    end
//    else
//      Memo1.Lines.Add(di.wszFriendlyName + '->' + di.wszSource);
//  end;
end;

需要注意的是用这段代码时别忘了把ShlObj.PAS中的声明改一下，这里有一个技巧，把ShlObj.PAS 考到工程目录再改，可以不影响原有的，然后编译就行了，据说是delphi的ShlObj.PAS声明有误，需要修改的地方如下

_tagCOMPONENT = packed record
dwSize: DWORD; // Size of this structure
dwID: DWORD; // Reserved: Set it always to zero.
iComponentType: Integer; // One of COMP_TYPE_*
fChecked: BOOL; // Is this component enabled?
fDirty: BOOL; // Had the component been modified and not yet saved to disk?
fNoScroll: BOOL; // Is the component scrollable?
cpPos: TCompPos; // Width, height etc.,
wszFriendlyName: array[0..MAX_PATH-1] of WideChar; // Friendly name of component.
wszSource: array[0..2083] of WideChar; //URL of the component.主要就是这两个不同
wszSubscribedURL:  array[0..2083] of WideChar; //Subscrined URL主要就是这两个不同
end;