SHELL程式設計：利用CSIDL開啟特殊資料夾 (轉)

SHELL程式設計：利用CSIDL開啟特殊資料夾 (轉)[@more@]

CSIDL描述及使用說明：
  CSIDL 表示的是 中一個特殊夾的標識值。這裡說的特殊資料夾指的是由windows shell所定義的資料夾,例如："我的文件"，"回收站"，"Ine Cache資料夾"就是一些由SHELL指定的特殊資料夾.這些特殊資料夾可以是一個上的物理路徑，也可以是一個虛擬資料夾(Virtual Folder)!
  注：Virtual Folder
  虛擬資料夾是一個由windows shell定義過的資料夾，但這個資料夾並沒有與你的上的任何物理 路徑相對應.例如：“我的電腦 ”就是一個包含了所有器的虛擬資料夾，還有如“控制皮膚”也是一個虛擬資料夾，等等。虛擬資料夾很少應用於非shell。
 在/NT中，許多csidl所涉及的資料夾都是針對各個的。但類似於CSIDL_COMMON_* 可以供所有使用者使用。

 在許多應用中，一個CSIDL可以與下面的標識之一進行組合使用：

  CSIDL_FLAG_CREATE($8000)
  :如果這個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)
  表示所有使用者的  (只支援 系統)
  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_($21)
  表示當前使用者Internet Explorer的cook資料夾，例如：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可以在以下函式中進行操作使用，至於函式的說明，我們可以參照MSDN中的API說明：
SHGetFolderLocation, SHGetFolderPath, SHGetSpecialFolderLocation, SHGetSpecialFolderPath

我們看下面一個例子：
//開啟一些特殊的資料夾，需要加上,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: T);
begin
  OpenSpecialFolder($0);//或是OPenSpecialFolder(CSIDL_DESKTOP),開啟“桌面”視窗
end;
  至於CSIDL與其它函式的配置使用方法，大家可自己參照MSDN!