我想在自己的程序中执行IE的“收藏夹”的功能，和IE的完全一样的那种，在菜单栏上设计一个“收藏夹”，点击后要与IE的一样，怎么办？

Question

呵呵，我来拿分，
用这种方法就很容易实现了，调试通过。const 
  CLSID_ShellUIHelper: TGUID = '{64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}'; procedure TForm1.Button1Click(Sender: TObject); 
var 
  H: HWnd; 
  p: procedure(Handle: THandle; Path: PChar); stdcall; 
begin 
        H := LoadLibrary(PChar('shdocvw.dll')); 
        if H <> 0 then 
          begin 
            p := GetProcAddress(H, PChar('DoOrganizeFavDlg')); 
            if Assigned(p) then p(Application.Handle, PChar(Hint)); 
          end; 
        FreeLibrary(h); 
end; 

Answer 1

动态生成菜单你知道吧 把结果写进INI文件 运行时通过读INI文件生成菜单