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

 CSIDL描述及使用说明：  
          CSIDL   表示的是windows   shell中一个特殊文件夹的标识值。这里说的特殊文件夹指的是由windows   shell所定义的文件夹,例如："我的文档"，"回收站"，"Inernet   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   Settings/username/Application   Data  
      CSIDL_BITBUCKET($A)  
          表示回收站  
      CSIDL_COMMON_ADMINTOOLS($2F)  
          表示所有用户的“管理工具”系统文件夹  
      CSIDL_COMMON_ALTSTARTUP($1D)  
          表示所有用户的     (只支持WINDOWS   NT   系统)  
      CSIDL_COMMON_APPDATA($23)  
          表示所有用户的特定的应用程序数据存储文件夹,例如:C:/Documents   and   Settings/All   Users/Application   Data  
      CSIDL_COMMON_DESKTOPDIRECTORY($19)  
          表示所有用户的“桌面”文件夹，例如：C:/Documents   and   Settings/All   Users/Desktop。  
      CSIDL_COMMON_DOCUMENTS($2E)  
          表示所有用户的“我的文档”文件夹，例如:C:/Documents   and   Settings/All   Users/Documents  
      CSIDL_COMMON_FAVORITES($1F)  
          表示所有用户的“我的收藏夹”文件夹。  
      CSIDL_COMMON_PROGRAMS($17)  
          表示所有用户的“程序”文件夹，例如：C:/Documents   and   Settings/All   Users/Start   Menu/Programs  
      CSIDL_COMMON_STARTMENU($16)  
          表示所有用户的“开始菜单”文件夹，例如：C:/Documents   and   Settings/All   Users/Start   Menu  
      CSIDL_COMMON_STARTUP($18)  
          表示所有用户的“启动”文件夹，例如：C:/Documents   and   Settings/All   Users/Start   Menu/Programs/Startup  
      CSIDL_COMMON_TEMPLATES($2D)  
          表示所有用户的“模块”文件夹，例如：C:/Documents   and   Settings/All   Users/Templates  
      CSIDL_CONTROLS($3)  
          表示“控制面板”文件夹  
      CSIDL_COOKIES($21)  
          表示当前用户Internet   Explorer的cookie   文件夹，例如：C:/Documents   and   Settings/username/Cookies  
      CSIDL_DESKTOP($0)  
          表示“桌面”虚拟文件夹，包含了计算机中的所有内容  
      CSIDL_DESKTOPDIRECTORY($10)  
          表示当前用户的“桌面”文件夹，例如：C:/Documents   and   Settings/username/Desktop  
      CSIDL_DRIVES($11)  
          表示“我的电脑”虚拟文件夹，包含了计算机中所有的驱动器  
      CSIDL_FAVORITES($6)  
          表示当前用户的“收藏夹”文件夹，例如：C:/Documents   and   Settings/username/Favorites  
      CSIDL_FONTS($14)  
          表示“系统字体”文件夹，例如：C:/WINNT/Fonts  
      CSIDL_HISTORY($22)  
          表示Inernet   Explorer的“历史记录”文件夹  
      CSIDL_INTERNET($1)  
          表示Internet的这个虚拟文件夹  
      CSIDL_INTERNET_CACHE($20)  
          表示当前用户的Internet   Explorer的"Cache"文件夹，例如：C:/Documents   and   Settings/username/Temporary   Internet   Files  
      CSIDL_LOCAL_APPDATA($1C)  
          表示当前用户的应用程序数据文件夹，例如：C:/Documents   and   Settings/username/Local   Settings/Application   Data  
      CSIDL_MYMUSIC  
          表示当前用户存储音乐文件的文件夹，例如：C:/Documents   and   Settings/User/My   Documents/My   Music  
      CSIDL_MYPICTURES($27)  
          表示当前用户存储图像文件的文件夹，例如：C:/Documents   and   Settings/username/My   Documents/My   Pictures  
      CSIDL_NETHOOD($13)  
          表示当前用户存在的网络连接的文件夹，例如：C:/Documents   and   Settings/username/NetHood  
      CSIDL_NETWORK($12)  
          表示“网上邻居”这个虚拟文件夹  
      CSIDL_PERSONAL($5)  
          表示当前用户的“我的文档”文件夹，例如：C:/Documents   and   Settings/username/My   Documents  
      CSIDL_PRINTERS($4)  
          指向“打印机”这个虚拟文件夹  
      CSIDL_PRINTHOOD($1B)  
          表示当前用户存在的网络打印机的虚拟文件夹，例如：C:/Documents   and   Settings/username/PrintHood  
      CSIDL_PROFILE($28)  
          表示当前用用户配置文件的文件夹  
      CSIDL_PROGRAM_FILES($26)  
          表示程序文件的文件夹，例如：C:/Program   Files  
      CSIDL_PROGRAM_FILES_COMMON($2B)  
          表示系统程序共用组件文件夹，例如：C:/Program   Files/Common  
      CSIDL_PROGRAMS($2)  
          表示当前用户的“程序”菜单文件夹，例如：C:/Documents   and   Settings/username/Start   Menu/Programs  
      CSIDL_RECENT($8)  
          表示当前用户的“文档”菜单文件夹，例如：C:/Documents   and   Settings/username/Start   Menu/Programs  
      CSIDL_SENDTO($9)  
          表示当前用户的“发送到”文件夹，例如：C:/Documents   and   Settings/username/SendTo  
      CSIDL_STARTMENU($B)  
          表示当前用户的“开始”菜单文件夹，例如：C:/Documents   and   Settings/username/Start   Menu  
      CSIDL_STARTUP($7)  
          表示当前用户的“启动”菜单文件夹，例如：C:/Documents   and   Settings/username/Start   Menu/Programs/Startup  
      CSIDL_SYSTEM($25)  
          表示WINDOWS系统的系统文件夹，例如：C:/WINNT/SYSTEM32  
      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!