SHELL编程：利用CSIDL打开特殊文件夹 (转)

SHELL编程：利用CSIDL打开特殊文件夹 (转)[@more@]

CSIDL描述及使用说明：
  CSIDL 表示的是windows shell中一个特殊文件夹的标识值。这里说的特殊文件夹指的是由windows shell所定义的文件夹,例如："我的文档"，"回收站"，"Ine.NET Cache文件夹"就是一些由SHELL指定的特殊文件夹.这些特殊文件夹可以是一个磁盘上的物理路径，也可以是一个虚拟文件夹(Virtual Folder)!
  注：Virtual Folder
  虚拟文件夹是一个由windows shell定义过的文件夹，但这个文件夹并没有与你的电脑上的任何物理 路径相对应.例如：“我的电脑 ”就是一个包含了所有驱动器的虚拟文件夹，还有如“控制面板”也是一个虚拟文件夹，等等。虚拟文件夹很少应用于非shell函数。
 在Windows2000/NT中，许多csidl所涉及的文件夹都是针对各个用户的。但类似于CSIDL_COMMON_* 可以供所有用户使用。

 在许多应用中，一个CSIDL可以与下面的标识之一进行组合使用：

  CSIDL_FLAG_CREATE($8000)
  Windows 2000:如果这个CSIDL所引用的文件夹不存在，则创建这个文件夹!.
  CSIDL_FLAG_DONT_VERIFY($4000)
  WINDOWS 2000: 无论这个CSIDL所引用的文件夹是否存在都使用它!

  CSIDL_ADMINTOOLS($30)
  表示当前用户的“管理工具”系统文件夹
  CSIDL_ALTSTARTUP($h1D)
  不详
  CSIDL_APPDATA($1A)
  表示当前用户的特定的应用程序数据存储文件夹，例如：C:Documents and SettingsusernameApplication Data
  CSIDL_BITBUCKET($A)
  表示回收站
  CSIDL_COMMON_ADMINTOOLS($2F)
  表示所有用户的“管理工具”系统文件夹
  CSIDL_COMMON_ALTSTARTUP($1D)
  表示所有用户的  (只支持windows NT 系统)
  CSIDL_COMMON_APPDATA($23)
  表示所有用户的特定的应用程序数据存储文件夹,例如:C:Documents and SettingsAll UsersApplication Data
  CSIDL_COMMON_DESKTOPDIRECTORY($19)
  表示所有用户的“桌面”文件夹，例如：C:Documents and SettingsAll UsersDesktop。
  CSIDL_COMMON_DOCUMENTS($2E)
  表示所有用户的“我的文档”文件夹，例如:C:Documents and SettingsAll UsersDocuments
  CSIDL_COMMON_FAVORITES($1F)
  表示所有用户的“我的收藏夹”文件夹。
  CSIDL_COMMON_PROGRAMS($17)
  表示所有用户的“程序”文件夹，例如：C:Documents and SettingsAll UsersStart MenuPrograms
  CSIDL_COMMON_STARTMENU($16)
  表示所有用户的“开始菜单”文件夹，例如：C:Documents and SettingsAll UsersStart Menu
  CSIDL_COMMON_STARTUP($18)
  表示所有用户的“启动”文件夹，例如：C:Documents and SettingsAll UsersStart MenuProgramsStartup
  CSIDL_COMMON_TEMPLATES($2D)
  表示所有用户的“模块”文件夹，例如：C:Documents and SettingsAll UsersTemplates
  CSIDL_CONTROLS($3)
  表示“控制面板”文件夹
  CSIDL_Cookies($21)
  表示当前用户Internet Explorer的cookie 文件夹，例如：C:Documents and SettingsusernameCookies
  CSIDL_DESKTOP($0)
  表示“桌面”虚拟文件夹，包含了计算机中的所有内容
  CSIDL_DESKTOPDIRECTORY($10)
  表示当前用户的“桌面”文件夹，例如：C:Documents and SettingsusernameDesktop
  CSIDL_DRIVES($11)
  表示“我的电脑”虚拟文件夹，包含了计算机中所有的驱动器
  CSIDL_FAVORITES($6)
  表示当前用户的“收藏夹”文件夹，例如：C:Documents and SettingsusernameFavorites
  CSIDL_FONTS($14)
  表示“系统字体”文件夹，例如：C:WINNTFonts
  CSIDL_HISTORY($22)
  表示Inernet Explorer的“历史记录”文件夹
  CSIDL_INTERNET($1)
  表示Internet的这个虚拟文件夹
  CSIDL_INTERNET_CACHE($20)
  表示当前用户的Internet Explorer的"Cache"文件夹，例如：C:Documents and SettingsusernameTemporary Internet Files
  CSIDL_LOCAL_APPDATA($1C)
  表示当前用户的应用程序数据文件夹，例如：C:Documents and SettingsusernameLocal SettingsApplication Data
  CSIDL_MYMUSIC
  表示当前用户存储音乐文件的文件夹，例如：C:Documents and SettingsUserMy DocumentsMy Music
  CSIDL_MYPICTURES($27)
  表示当前用户存储图像文件的文件夹，例如：C:Documents and SettingsusernameMy DocumentsMy Pictures
  CSIDL_NETHOOD($13)
  表示当前用户存在的网络连接的文件夹，例如：C:Documents and SettingsusernameNetHood
  CSIDL_NETWORK($12)
  表示“网上邻居”这个虚拟文件夹
  CSIDL_PERSONAL($5)
  表示当前用户的“我的文档”文件夹，例如：C:Documents and SettingsusernameMy Documents
  CSIDL_PRINTERS($4)
  指向“打印机”这个虚拟文件夹
  CSIDL_PRINTHOOD($1B)
  表示当前用户存在的网络打印机的虚拟文件夹，例如：C:Documents and SettingsusernamePrintHood
  CSIDL_PROFILE($28)
  表示当前用用户配置文件的文件夹
  CSIDL_PROGRAM_FILES($26)
  表示程序文件的文件夹，例如：C:Program Files
  CSIDL_PROGRAM_FILES_COMMON($2B)
  表示系统程序共用组件文件夹，例如：C:Program FilesCommon
  CSIDL_PROGRAMS($2)
  表示当前用户的“程序”菜单文件夹，例如：C:Documents and SettingsusernameStart MenuPrograms
  CSIDL_RECENT($8)
  表示当前用户的“文档”菜单文件夹，例如：C:Documents and SettingsusernameStart MenuPrograms
  CSIDL_SENDTO($9)
  表示当前用户的“发送到”文件夹，例如：C:Documents and SettingsusernameSendTo
  CSIDL_STARTMENU($B)
  表示当前用户的“开始”菜单文件夹，例如：C:Documents and SettingsusernameStart Menu
  CSIDL_STARTUP($7)
  表示当前用户的“启动”菜单文件夹，例如：C:Documents and SettingsusernameStart MenuProgramsStartup
  CSIDL_SYSTEM($25)
  表示WINDOWS系统的系统文件夹，例如：C:WINNTSYSTEM32
  CSIDL_TEMPLATES($15)
  表示的是系统中存储文档模块的文件夹
  CSIDL_WINDOWS($24)
  表示的是系统中Windows目录的文件珍，例如：C:WINNT

CSIDL可以在以下api函数中进行操作使用，至于函数的说明，我们可以参照MSDN中的API说明：
SHGetFolderLocation, SHGetFolderPath, SHGetSpecialFolderLocation, SHGetSpecialFolderPath

我们看下面一个例子：
//打开一些特殊的文件夹，需要加上ActiveX,shellapi,shlObj单元
Uses ActiveX, ShellApi, ShlObj;
Function OpenSpecialFolder(Flag:Integer;Handle: HWND = 0):Boolean;
//这里的Flag就是我们需要打开的文件夹的CSIDL值
  Procedure FreePidl(pidl: PItemIDList);//释放掉PItemIDList实例
  var
  allocator: IMalloc;
  begin
  if Succeeded(shlobj.SHGetMalloc(allocator)) then
  begin
  allocator.Free(pidl);
  {$IFDEF VER90}
  allocator.Release;
  {$ENDIF}
  end;
  end;
var
  exInfo: TShellExecuteInfo;
begin
  FillChar(exInfo, SizeOf(exInfo), 0);//给exInfo设置初始值
  with exInfo do
  begin
  cbSize:=  Sizeof(exInfo);
  fMask:= SEE_MASK_FLAG_DDEWAIT or SEE_MASK_IDLIST;
  Wnd:= handle;
  nShow:= SW_SHOWNORMAL;
  lpVerb:=  'open';
  SHGetSpecialFolderLocation(Handle, Flag, PItemIDLIst(lpIDList));//定位到由CSIDL值指定的文件夹
  end;
  ShellExecuteEx(@exInfo);//打开文件夹
  FreePidl(exInfo.lpIDList);
end;

//调用上面写的这个函数：
procedure TForm1.Button5Click(Sender: Tobject);
begin
  OpenSpecialFolder($0);//或是OPenSpecialFolder(CSIDL_DESKTOP),打开“桌面”窗口
end;
  至于CSIDL与其它函数的配置使用方法，大家可自己参照MSDN!

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10752043/viewspace-991965/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10752043/viewspace-991965/