IE 问题 TO: zswang(伴水清清)(专家门诊清洁工)

Question

   http://blog.csdn.net/laoli/archive/2004/11/04/166719.aspx  我上午找了一上午呢...如上地址,,   IDM_FIND = 67;  我就是找不到 这个对应的值啊, 麻烦你能给出这个资料吗?

Answer 1

// 添加到收藏夹
procedure TWebBrowerForm.N32Click(Sender: TObject);
const
  CLSID_ShellUIHelper:   TGUID   =   '{64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}';   
  var     
  ShellUIHelper:   ISHellUIHelper;     
  url,   title:   Olevariant;
  
  begin
  try
  url:=WebBrowser.LocationURL;
  title:=WebBrowser.LocationName;
  ShellUIHelper   :=CreateComObject(CLSID_SHELLUIHELPER)   as   IShellUIHelper;
  ShellUIHelper.AddFavorite(url,   title);
  except
  end;
------------------------------------------------
目前我是用如上方式添加到收藏夹的, 但这种两方式都有一个共同点, 就是说弹出的查找框或收藏夹对话框 是独立的, 不像ie, 是IE 本身创建的.

Answer 2

IDM_ADDFAVORITES 添加收藏夹整理了一个MSHTML单元，放到blog上了http://blog.sina.com.cn/u/589d32f5010009jk

Answer 3

IDM_ADDFAVORITES 上午试了,出错, 那个IDM_ADDFAVORITES= xxx 这里要设置吧

Answer 4

看到了, 给分,非常感谢! 我是一个delphi业余爱好者,学了几个月了,还模糊得很,望往后多多指教.!!!!!!!!!!!!!!!!!!!!!!!!

Answer 5

来CSDN 5年参与了7000-8000个贴子，什么样的帖子不会碰到？这不又碰见一次平时要养成搜集整理资料的习惯，否则解决了一次再找就麻烦了，毕竟人的记忆力有限