2

我正在寻找一种以编程方式将文件夹添加到 Windows 资源管理器中的收藏夹的方法。它的 Windows 资源管理器特定并基于此项目: http: //www.codeproject.com/Tips/132804/Open-folders-using-a-Run-Command

到目前为止,我已经尝试过 Process Monitor 并搜索注册表,但我似乎无法在regedit.


Microsoft 在 Windows 8 中对此进行了更改,因此我相应地标记了我的问题。有关 Win8 等详细信息,请参阅标记答案中的评论。

4

4 回答 4

6

您可以执行以下操作,而不是读取注册表:

string favoritesFolder = 
    Environment.GetFolderPath(Environment.SpecialFolder.Favorites);
于 2011-09-20T22:02:52.313 回答
4

PS:请务必查看@bsegraves 的解决方案,我认为它比我的要好得多。

我不确定这是否是您要查找的内容,但我认为可以通过以下注册表值找到最喜欢的文件夹:

HKEY_CURRENT_USER\
  Software\
    Microsoft\
      Windows\
        CurrentVersion\
          Explorer\
            User Shell Folders\
              Favorites

您应该能够使用以下代码检索此文件夹名称:

using Microsoft.Win32;
...

RegistryKey topLevel = Registry.CurrentUser;
RegistryKey key = topLevel.OpenSubKey(
    @"Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders",
    true);

string favoriteFolder = key.GetValue("Favorites").ToString();

然后只需在指定文件夹中创建链接或文档即可。

(请注意,此键的值可能类似于; 环境变量应该通过上面调用%USERPROFILE%\Favorites的方法自动扩展。).GetValue(..)

于 2010-11-24T21:47:42.773 回答
3

对于 Windows 8,此位置已更改为 %USERPROFILE%\Links。请参考这个答案

于 2013-05-20T19:00:23.300 回答
0

从 Vista FOLDERID_Links 开始添加了常量。它指向 Windows 资源管理器的收藏夹。我的代码(Delphi,但主要思想是可见的):

procedure AddFileObjectToFavorites(AParent: HWND; const AObjectFileName: UnicodeString);

  function GetFavorites: PItemIDList;
  begin
    if IsWindowsVistaOrLater then
      OleCheck(SHGetKnownFolderIDList(FOLDERID_Links, 0, 0, Result))
    else
      OleCheck(SHGetFolderLocation(AParent, CSIDL_FAVORITES, 0, 0, Result));
  end;

var
  Desktop: IShellFolder;
  Eaten: DWORD;
  Attr: DWORD;
  ObjectIDList: PItemIDList;
  ObjectParentFolder: IShellFolder;
  ObjectChildIDList: PItemIDList;
  LinksIDList: PItemIDList;
  LinksParentFolder: IShellFolder;
  LinksChildIDList: PItemIDList;
  DataObject: IDataObject;
  LinksDropTarget: IDropTarget;
  Effect: Integer;
begin
  OleCheck(SHGetDesktopFolder(Desktop));
  try
    Attr := 0;
    OleCheck(Desktop.ParseDisplayName(AParent, nil, PWideChar(AObjectFileName), Eaten, ObjectIDList, Attr));
    try
      SHBindToParent(ObjectIDList, IShellFolder, Pointer(ObjectParentFolder), ObjectChildIDList);
      try
        LinksIDList := GetFavorites;
        try
          OleCheck(SHBindToParent(LinksIDList, IShellFolder, Pointer(LinksParentFolder), LinksChildIDList));
          try
            OleCheck(LinksParentFolder.GetUIObjectOf(AParent, 1, LinksChildIDList, IDropTarget, nil, LinksDropTarget));
            try
              OleCheck(ObjectParentFolder.GetUIObjectOf(AParent, 1, ObjectChildIDList, IDataObject, nil, DataObject));
              try
                Effect := DROPEFFECT_LINK;
                OleCheck(LinksDropTarget.DragEnter(DataObject, 0, Point(0, 0), Effect));
                if Effect and DROPEFFECT_LINK = 0 then
                  begin
                    OleCheck(LinksDropTarget.DragLeave);
                    raise Exception.Create('Cannot drop');
                  end;
                Effect := DROPEFFECT_LINK;
                OleCheck(LinksDropTarget.Drop(DataObject, 0, Point(0, 0), Effect));
              finally
                DataObject := nil;
              end;
            finally
              LinksDropTarget := nil;
            end;
          finally
            LinksParentFolder := nil;
          end;
        finally
          CoTaskMemFree(LinksIDList);
        end;
      finally
        ObjectParentFolder := nil;
      end;
    finally
      CoTaskMemFree(ObjectIDList);
    end;
  finally
    Desktop := nil;
  end;
end;
于 2014-12-13T07:55:40.477 回答