[转帖]外壳命名空间扩展
一般介紹
??? 很多人一定用過ZipMagic，對它能把一個(gè)壓縮文件映射成文件夾感到很奇怪，不知道它使用了什么技術(shù)，實(shí)際上它用到的技術(shù)就是實(shí)現(xiàn)了一個(gè)外殼的命名空間擴(kuò)展（Shell Namespace Extention）。
文件夾和視圖：資源管理器的基本結(jié)構(gòu)
??? 資源管理器的界面顯示為兩部分：左邊顯示的是對象在外殼命名空間的位置，它們是以樹結(jié)構(gòu)顯示的，通常認(rèn)為左邊顯示的應(yīng)該是文件目錄樹，但事實(shí)上，左邊還顯示了很多并不是文件目錄的外殼對象，比如控制面板、打印機(jī)等，事實(shí)上在資源管理器中看到的文件夾、控制面板、網(wǎng)上鄰居等廣義上來說都是命名空間；管理器右邊顯示了當(dāng)前被選對象的詳細(xì)內(nèi)容，當(dāng)選擇目錄時(shí)，右邊顯示目錄中的文件，當(dāng)選擇控制面板時(shí)，右邊顯示控制面板項(xiàng)。這就是文件夾和視圖結(jié)構(gòu)。
文件夾同管理器的交互
??? 傳統(tǒng)文件夾是由外殼實(shí)現(xiàn)的代表硬盤上的物理目錄結(jié)構(gòu)，我們不能重載它的實(shí)現(xiàn)。而虛擬文件夾是通過外殼擴(kuò)展的COM對象來實(shí)現(xiàn)的，比如控制面板。COM對象至少必須是以動態(tài)連接庫形式實(shí)現(xiàn)了IUnknown和IShellExtInit接口。命名空間的兩個(gè)主要組成部分是文件夾對象和視圖對象。它們分別實(shí)現(xiàn)了IShellFolder和IShellView接口。
項(xiàng)目標(biāo)識符
??? 管理器左邊顯示的每一個(gè)項(xiàng)目都有一個(gè)唯一的標(biāo)識符，由于項(xiàng)目不一定是文件，所以外殼不能再用目錄來標(biāo)識它們了。windows用項(xiàng)目標(biāo)識符來表示它們，標(biāo)識符的結(jié)構(gòu)如下：
??? ?PSHItemID = ^TSHItemID;
??? ?TSHItemID = packed record { mkid }
??? ?cb: Word; { 需要添入結(jié)構(gòu)的大小 }
??? ?abID: array[0..0] of Byte;
??? ?end;
??? 標(biāo)識符很少單獨(dú)使用，通常一個(gè)連一個(gè)地在標(biāo)識符號鏈表里出現(xiàn)，當(dāng)cb為0時(shí)表示到達(dá)鏈表的末尾了。當(dāng)一個(gè)文件夾對象被創(chuàng)建了以后，外殼會調(diào)用它的IPersistFolder接口并傳遞給它一個(gè)標(biāo)識符鏈表。
命名空間類型
??? 系統(tǒng)創(chuàng)建的命名空間稱為標(biāo)準(zhǔn)命名空間，用戶創(chuàng)建的則稱為用戶定制的命名空間。注意用戶定制的命名空間只有根節(jié)點(diǎn)對象才會自動出現(xiàn)在標(biāo)準(zhǔn)命名空間內(nèi)。可以使用兩種方法來創(chuàng)建命名空間:
??? 在標(biāo)準(zhǔn)命名空間里創(chuàng)建一個(gè)目錄并把類標(biāo)識符附在文件夾對象的后面，作為對象的文件名擴(kuò)展。例如：
??? Custom Namespace.{12345678-0000-0000-0000-C00000000000}.
??? 在注冊表中創(chuàng)建下列鍵值：
??? ?HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\
??? ???Explorer\Desktop\Namespace.
??? 資源管理器會調(diào)用擴(kuò)展的文件夾對象來枚舉它的子對象，就好像子文件夾一樣。
文件夾同子對象的交互
??? 當(dāng)用戶點(diǎn)擊文件夾的"+"號時(shí)，管理器會調(diào)用IShellFolder.EnumObjects函數(shù)來顯示子文件夾列表。當(dāng)用戶點(diǎn)擊最下層文件夾時(shí)，管理器會用視圖來顯示對象的內(nèi)容。之前我們要做兩件事：
??? 創(chuàng)建文件夾對象。管理器先創(chuàng)建被選中的文件夾對象的父對象，然后調(diào)用IShellFolder.BindToObject函數(shù)。
??? 管理器調(diào)用文件夾對象的IShellFolder.CreateViewObject函數(shù)來創(chuàng)建視圖對象。
文件夾同視圖的交互
??? 視圖有兩種類型：一種是彈出式視圖窗口，另一種是普通視圖顯示在資源管理器右邊。文件夾對象創(chuàng)建這兩種視圖是通過調(diào)用視圖對象的IShellView.CreateViewWindow函數(shù)實(shí)現(xiàn)的。必須注意的一點(diǎn)是一個(gè)文件夾對象可能會對應(yīng)多個(gè)視圖對象，因?yàn)橛脩艨赡軙橐粋€(gè)文件夾開很多窗口。這意味著視圖和文件夾對象必須為每個(gè)實(shí)現(xiàn)創(chuàng)立一個(gè)分離的COM對象，資源管理器會負(fù)責(zé)同步不同視圖的內(nèi)容。
使用Delphi創(chuàng)建命名空間擴(kuò)展實(shí)現(xiàn)視圖對象
??? 對象必須做到：
??? （1）創(chuàng)建一個(gè)視圖窗口的子窗口并使用它來顯示文件夾的內(nèi)容。
??? （2）同資源管理器通訊。
??? （3）向資源管理器的菜單條和工具條添加文件夾相關(guān)的命令，并處理這些命令。
??? （4）顯示上下文相關(guān)的右鍵菜單和處理拖放操作。
??? 資源管理器要請求一個(gè)視圖對象可通過調(diào)用文件夾對象的 IShellFolder.CreateViewObject方法來實(shí)現(xiàn)，過程是：
??? （1）文件夾對象創(chuàng)建一個(gè)視圖的新的實(shí)例，并返回一個(gè)IShellView接口。
??? （2）資源管理器初始化視圖對象通過調(diào)用IShellView::CreateViewWindow方法。創(chuàng)建一個(gè)子窗口，并把句柄返回給資源管理器。
??? （3）視圖對象使用IShellBrowser接口來定制工具條、菜單條和狀態(tài)條。
??? （4）視圖在子窗口里顯示文件夾的內(nèi)容。
??? （5）視圖處理用戶的輸入命令和工具條及菜單條命令。
初始化視圖對象
??? ?IShellView.CreateViewWindow方法的參數(shù)提供必要的信息給視圖來創(chuàng)建子窗口：
??? （1）前一個(gè)視圖對象的IShellView接口指針，可以是nil。
??? （2）一個(gè)TFOLDERSETTINGS結(jié)構(gòu)包含先前視圖的設(shè)置信息，settings。
??? ?(3) IShellBrowser接口指針。
??? ?(4)?TRECT結(jié)構(gòu)表示視圖窗口的顯示范圍。
IShellView.CreateViewWindow方法是在先前視圖被銷毀之前被調(diào)用的。因此，IShellView接口指針可以讓我們同先前視圖通信。如果先前接口也屬于我們的擴(kuò)展，我們可以和它通信交換私有配置信息。
一個(gè)判斷IShellView指針是否屬于自己的擴(kuò)展的簡單方法是定義一個(gè)私有接口。然后調(diào)用 IShellView.QueryInterface 來請求這個(gè)私有接口，若能獲得接口就說明是屬于擴(kuò)展的接口。TFOLDERSETTINGS結(jié)構(gòu)包含了視圖的顯示設(shè)置，主要的顯示模式是大圖標(biāo)、小圖標(biāo)、列表或是詳細(xì)信息，同時(shí)還有一個(gè)標(biāo)志表示一系列的顯示選項(xiàng)，如是否左對齊等。我們可以修改它，資源管理器調(diào)用IShellView.GetCurrentInfo方法來獲得這個(gè)結(jié)構(gòu)的最新信息。
?? ?IShellBrowser接口允許視圖同資源管理器通信，因?yàn)闆]有其他獲得這個(gè)接口的途徑，所以視圖必須保存它以便再次使用。特別是我們需要調(diào)用IShellBrowser.GetWindow來獲得父視圖窗口用來創(chuàng)建子窗口。在保存了接口指針后，別忘了調(diào)用IShellBrowser.AddRef來增加接口引用記數(shù)。當(dāng)不需要接口時(shí)，使用IShellBrowser.Release釋放接口。
??? 創(chuàng)建子窗口：
??? （1）檢查 TFOLDERSETTINGS和?TRECT?結(jié)構(gòu)。
??? （2）調(diào)用IshellBrowser.GetWindow獲得父視圖窗口。創(chuàng)建子窗口并返回給資源管理器。
??? 顯示視圖：視圖窗口總是存在，即使沒有獲得焦點(diǎn)。因此，我們應(yīng)該維護(hù)子窗口的如下三種狀態(tài):
??? ① 激活并有焦點(diǎn)。設(shè)定對應(yīng)焦點(diǎn)狀態(tài)的菜單項(xiàng)和工具條項(xiàng)。
??? ② 激活但沒有焦點(diǎn)。設(shè)定對應(yīng)無焦點(diǎn)狀態(tài)的菜單項(xiàng)和工具條項(xiàng)。
??? ③ 失活狀態(tài)。視圖將要被銷毀，刪除所有相關(guān)菜單項(xiàng)。
??? 資源管理器通過調(diào)用IShellView.UIActivate方法來通知窗口狀態(tài)的變化。反過來視圖也應(yīng)該用IShellBrowser.OnViewWindowActive方法通知管理器。當(dāng)視圖處于激活狀態(tài)時(shí)，我們應(yīng)該處理窗口消息，如WM_SIZE，它屬于子窗口。同時(shí)還要處理與菜單和工具條對應(yīng)的WM_COMMAND消息。當(dāng)視圖將要被銷毀時(shí)，資源管理器會調(diào)用IShellView.DestroyViewWindow方法通知視圖。
實(shí)現(xiàn)IShellView接口
?? ?1. AddPropertySheetPages方法
??? 當(dāng)用戶選擇資源管理器的工具菜單的文件夾選項(xiàng)時(shí)，會顯示一個(gè)屬性頁允許用戶修改文件夾選項(xiàng)。資源管理器調(diào)用?IShellView.AddPropertySheetPages方法允許添加屬性頁面到屬性頁上。
??? 2. GetCurrentInfo方法
??? 在切換視圖前，資源管理器會調(diào)用IShellView.GetCurrentInfo來請求當(dāng)前TFOLDERSETTINGS值傳遞給下一個(gè)視圖。
??? 3. Refresh方法
??? 資源管理器調(diào)用IshellView.Refresh來刷新視圖的顯示。
??? 4. SaveViewState方法
??? 資源管理器調(diào)用IShellView.SaveViewState方法提示視圖保存它的外觀狀態(tài)，使視圖在下次顯示時(shí)可以恢復(fù)狀態(tài)。通過調(diào)用IShellBrowser.GetViewStateStream方法返回一個(gè)IStream接口，視圖可以利用這個(gè)接口保存狀態(tài)。
??? 5. TranslateAcelerator方法
??? 當(dāng)用戶按下快捷鍵時(shí)，資源管理器會調(diào)用?IShellView.TranslateAccelerator方法來傳遞消息給視圖。如果視圖返回 S_FALSE，資源管理器就處理這個(gè)消息。若視圖處理了這個(gè)消息，視圖就返回S_OK。當(dāng)視圖有焦點(diǎn)時(shí)，資源管理器調(diào)用 IShellView::TranslateAccelerator后，若視圖沒處理這個(gè)消息，資源管理器就處理它。如果視圖沒有焦點(diǎn)，資源管理器就先處理消息，若它沒能處理的話，會調(diào)用IShellBrowser.TranslateAcceleratorSB。使用IshellBrowser接口同資源管理器通信。
??? ?IShellBrowser接口用于以下方面：
??? （1）修改資源管理器的菜單。
??? （2）修改資源管理器的工具條。
??? （3）修改資源管理器的狀態(tài)條。
??? （4）儲存外觀信息，如當(dāng)前設(shè)置或狀態(tài)。
修改資源管理器的菜單
??? 可以使用?IShellBrowser接口來修改、添加或刪除菜單及其相關(guān)聯(lián)的命令。每次視圖狀態(tài)改變時(shí)，資源管理器會調(diào)用IShellView.UIActivate，因此應(yīng)該把修改操作放到這里來做，基本步驟是：
??? （1）創(chuàng)建菜單句柄。
| 表2.2
| 標(biāo)??? 識 | 組 | |
| 文件 | FCIDM_MENU_FILE | File | |
| 編輯 | FCIDM_MENU_EDIT | File | |
| 查看 | FCIDM_MENU_VIEW | Container | |
| 收藏 | FCIDM_MENU_FAVORITES | Container | |
| 工具 | FCIDM_MENU_TOOLS | Container | |
| 幫助 | FCIDM_MENU_HELP | Window |
??? （2）調(diào)用IShellBrowser.InsertMenusSB方法，資源管理器會添加適當(dāng)?shù)牟藛涡畔ⅰ?/p>
??? （3）修改返回的菜單信息。
??? （4）調(diào)用IShellBrowser.Set- MenuSB方法讓資源管理器顯示修改后的菜單。
??? 資源管理器有6個(gè)菜單。資源管理器菜單條被分成6組：File、Edit、Container、Object、Window和Help。表2.2列示了各菜單的標(biāo)識和分組。
??? 當(dāng)調(diào)用?IShellBrowser. InsertMenusSB方法時(shí)，還必須傳遞一個(gè)指向TOLEMENUGROUPWIDTHS的結(jié)構(gòu)，成員都被初始化為0。調(diào)用完?IShellBrowser.InsertMenusSB方法后，就可以使用返回的菜單句柄進(jìn)行普通菜單操作。
??? （1）添加菜單項(xiàng)。
??? （2）修改或刪除已有的菜單項(xiàng)。
??? （3）添加新的菜單。
??? 注意為了避免和資源管理器的命令沖突，被添加的命令標(biāo)識必須處在 FCIDM_SHVIEWFIRST和FCIDM_SHVIEWLAST之間。當(dāng)資源管理器調(diào)用IShellView.UIActivate方法來表明視圖失活時(shí)，可調(diào)用IShellBrowser.Remove- MenusSB方法來恢復(fù)最初狀態(tài)。
修改工具條
??? 步驟是：
??? （1）添加按鈕的位圖到工具條的圖像列表里。
??? （2）定義按鈕的顯示字符串。
??? （3）添加按鈕到工具條。
??? 調(diào)用IShellBrowser.SendControlMsg方法給工具條發(fā)送?TB_ADDBITMAP消息。設(shè)定參數(shù)ID為FCW_TOOLBAR，設(shè)定wParam為位圖中的按鈕圖像數(shù)，lParam為TTBADDBITMAP結(jié)構(gòu)的地址。圖像索引在pret參數(shù)里返回。
??? 有兩種方法設(shè)定按鈕的顯示字符串：
??? （1）設(shè)定TTBBUTTON結(jié)構(gòu)的iString成員。
??? （2）調(diào)用IShellBrowser.SendControlMsg發(fā)送TB_ADDSTRING消息。wParam參數(shù)為0，lParam參數(shù)指向字符串。字符串索引由pret返回。
??? 添加按鈕，要先填寫TTBBUTTON結(jié)構(gòu)然后調(diào)用IShellBrowser. SetToolbarItems。
修改資源管理器狀態(tài)條
??? 兩種使用方法是：
??? （1）用IShellBrowser.SetStatusTextSB方法來顯示字符串。
??? （2）用IShellBrowser.SendControlMsg方法直接發(fā)消息。
實(shí)現(xiàn)文件夾接口
??? 1. 注冊擴(kuò)展
??? 下面幾個(gè)鍵值只對包含子目錄的命名空間擴(kuò)展有意義，同時(shí)這些值并不能用于那些子目錄是文件系統(tǒng)目錄的擴(kuò)展。要想改變有子目錄的擴(kuò)展的行為，應(yīng)添加下列鍵值到擴(kuò)展的CLSID子鍵下：
??? WantsFORPARSING：有子目錄的擴(kuò)展的解析名通常有如下形式::{GUID}。 這種擴(kuò)展通常包括虛擬的子對象。然而，某些擴(kuò)展，比如我的文檔，是完全對應(yīng)于文件系統(tǒng)目錄的。如果我們的擴(kuò)展只是對現(xiàn)有系統(tǒng)文件夾的重新定義和擴(kuò)充，可以先設(shè)定WantsFORPARSING 值，資源管理器將會通過調(diào)用擴(kuò)展根目錄對象的IShellFolder.GetDisplayNameOf 方法來請求根目錄對象解析名稱，其中參數(shù)uFlags會被設(shè)定為SHGDN_FORPARSING，而pidl 參數(shù)被設(shè)定為一個(gè)只包含一個(gè)終結(jié)符的空的PIDL。
??? HideFolderVerbs：在HKEY_CLASSES_ROOT\Folder 子鍵下定義的verbs通常同所有的擴(kuò)展關(guān)聯(lián)。它們出現(xiàn)在擴(kuò)展的上下文相關(guān)菜單中，并可以通過ShellExecute調(diào)用，要想禁止這些Verbs同我們的擴(kuò)展關(guān)聯(lián)，需要設(shè)定HideFolderVerbs值。
??? HideAsDelete：如果一個(gè)用戶試圖刪除我們的擴(kuò)展，資源管理器將會隱藏這個(gè)擴(kuò)展。
??? HideAsDeletePerUser：這個(gè)值同HideAsDelete有相同的效果，但它是基于單一用戶的，擴(kuò)展將會只對試圖刪除該擴(kuò)展的用戶隱藏，而對其他用戶依然顯示。
??? QueryForOverlay：設(shè)定這個(gè)值表示根目錄的圖標(biāo)擁有掩碼重疊圖標(biāo)。同時(shí)，這要求文件夾對象必須支持IShellIconOverlay?接口。在資源管理器顯示根目錄的圖標(biāo)前，它會通過調(diào)用IShellIconOverlay接口的兩個(gè)方法來請求一個(gè)重疊圖標(biāo)。
??? 下面這些鍵值適用于所有的命名空間擴(kuò)展：
??? （1）要想指定擴(kuò)展的節(jié)點(diǎn)文件夾的顯示名稱，設(shè)定擴(kuò)展的CLSID子鍵缺省值為名稱字符串。
??? （2）當(dāng)光標(biāo)在文件夾上停留時(shí)，應(yīng)該顯示一個(gè)飛躍信息提示來描述文件夾的內(nèi)容。要想為擴(kuò)展的根目錄提供飛躍信息提示的話，在擴(kuò)展的CLSID的子鍵下創(chuàng)建一個(gè)字符串類型的InfoTip值，并賦值給它想要顯示的信息字符串。
??? （3）要想為擴(kuò)展的根目錄指定一個(gè)定制的圖標(biāo)的話，要在擴(kuò)展的CLSID子鍵下創(chuàng)建DefaultIcon子鍵。設(shè)定DefaultIcon子鍵的缺省值為包含圖標(biāo)的文件名的字符串，同時(shí)字符串中還應(yīng)該用逗號隔開要使用的圖標(biāo)在文件中的索引值（以0為底的）。
??? （4）缺省時(shí)，擴(kuò)展根目錄對應(yīng)的上下文相關(guān)菜單將會包括定義在HKEY_CLASSES_ ROOT\Folder主鍵下的菜單項(xiàng)。同時(shí)外殼還會根據(jù)擴(kuò)展的SFGAO_XXX標(biāo)志決定是否添加刪除、重命名、和屬性菜單項(xiàng)。如果還想在菜單中添加或重載已有菜單項(xiàng)，就同擴(kuò)展文件類的上下文相關(guān)菜單一樣，需要在擴(kuò)展的CLSID子鍵下建立一個(gè)Shell子鍵并定義相應(yīng)的命令。（Extending Context Menus）。
??? （5）如果需要一種更靈活的定制根目錄右鍵菜單的方式，可以實(shí)現(xiàn)一個(gè)上下文相關(guān)菜單擴(kuò)展。為了注冊這個(gè)菜單擴(kuò)展，需要在擴(kuò)展的CLSID子鍵下創(chuàng)建ShellEx 子鍵，并像注冊其他擴(kuò)展一樣注冊菜單擴(kuò)展（shell extension handler）。
??? （6）要想為擴(kuò)展的根目錄用右鍵菜單的屬性命令調(diào)出的屬性頁上添加一個(gè)新的屬性頁面的話，需要在設(shè)定文件夾的SFGAO_HASPROPSHEET 屬性的同時(shí)實(shí)現(xiàn)一個(gè)屬性頁擴(kuò)展。并像上面的上下文相關(guān)菜單擴(kuò)展一樣注冊屬性頁擴(kuò)展。
??? （7）要想指定根目錄的屬性，需要添加在擴(kuò)展的CLSID子鍵下添加ShellFolder 子鍵，并創(chuàng)建一個(gè)Attributes值，設(shè)定它為合適的SFGAO_XXX 標(biāo)識的組合。
??? 表2.3是一些常用的屬性標(biāo)識 ：
表2.3
| 屬性標(biāo)識 | 值 | 描??? 述 |
| SFGAO_FOLDER | 0x20000000 | 擴(kuò)展根目錄包括一個(gè)或多個(gè)項(xiàng) |
| SFGAO_HASSUBFOLDER | 0x80000000 | 擴(kuò)展根目錄包括一個(gè)或多個(gè)子目錄 |
| SFGAO_CANDELETE | 0x00000020 | 擴(kuò)展目錄可以被用戶刪除。目錄的上下文相關(guān)菜單有一個(gè)刪除菜單項(xiàng) This flag should be set for junction points that are placed under one of the?virtual folders |
| SFGAO_CANRENAME | 0x00000010 | 擴(kuò)展根目錄可以被改名 |
| SFGAO_HASPROPSHEET | 0x00000040 | 根目錄有屬性頁，但必須實(shí)現(xiàn)一個(gè)屬性頁擴(kuò)展 |
??? 下面的例子顯示了如何注冊命名空間擴(kuò)展：
??? HKEY_CLASSES_ROOT
??? ??CLSID
??? ????{Extension CLSID}=demo
??? ????????InfoTip=演示
??? ??????InProcServer32=c:\Namespace\demo.dll
??? ????????ThreadingModel=Apartment
??? ??????ShellFolder
??? ????????Attributes=0xA00000020
??? ?//屬性包括SFGAO_FOLDER, SFGAOHASSUBFOLDER,SFGAO_CANDELETE標(biāo)志
??? ??????DefaultIcon=c:\Namespace\demo.dll,1
??? 2. 處理PIDL
??? 每一個(gè)命名空間的項(xiàng)必須有一個(gè)唯一的標(biāo)識符 PIDL。
??? 注意：為PIDL設(shè)計(jì)一個(gè)數(shù)據(jù)結(jié)構(gòu)的最重要的方面就是確保結(jié)構(gòu)是可持續(xù)的和可傳輸?shù)?#xff0c;意義在于：
??? （1）可持續(xù)性：系統(tǒng)經(jīng)常會把PIDL進(jìn)行長期儲存，比如放在快捷方式文件中。儲存一段時(shí)間后，自然需要從儲存中恢復(fù)PIDL，從儲存中恢復(fù)的PIDL對于我們的擴(kuò)展必須還應(yīng)該是有效的。這就意味著在PIDL結(jié)構(gòu)中不能使用指針或句柄。這類數(shù)據(jù)通常總是發(fā)生變化的。
??? （2）可傳輸性：當(dāng)一個(gè)PIDL從一臺機(jī)器轉(zhuǎn)移到另一臺機(jī)器時(shí)，仍然要保證它有意義。比如一個(gè)PIDL可以被寫到一個(gè)快捷方式文件中，復(fù)制到軟盤中，然后再安裝到其他機(jī)器上，如果這臺機(jī)器上也安裝了我們的擴(kuò)展，那么被復(fù)制的快捷方式文件應(yīng)該繼續(xù)有效。為了使PIDL可傳輸，應(yīng)該在PIDL中使用ANSI或Unicode字符串，同時(shí)要注意，在一臺運(yùn)行著Unicode版本的擴(kuò)展所建立的PIDL將無法被Ansi版本的擴(kuò)展所讀取。
??? 下面是一個(gè)簡單的PIDL數(shù)據(jù)結(jié)構(gòu)設(shè)計(jì)：
??? Type
??? TPIDLDemp= record
??? Cb:integer;
??? ??DwType:Dword;
??? ??WszDisplayName:array [0..39] of char;
??? End;
??? cb參數(shù)是用來指定數(shù)據(jù)結(jié)構(gòu)大小的，這確保了TPIDLDemo結(jié)構(gòu)成為一個(gè)有效的SHITEMID?結(jié)構(gòu)。結(jié)構(gòu)中剩下的部分等效于SHITEMID結(jié)構(gòu)中的abID 參數(shù)，用于保存私有數(shù)據(jù)。DwType參數(shù)是一個(gè)擴(kuò)展定義的變量用于表示外殼對象類型，比如，dwType如果為True，可以用來表示文件夾，而用False來表示其他的外殼對象。WszDisplayName用于保存外殼對象的顯示名稱。注意這里不能為目錄中不同的對象賦予同樣的名稱，同時(shí)由于名稱不同，wszDisplayName完全可以作為對象ID。這里wszDisplayName長度設(shè)定為40是為了確保SHITEMID?結(jié)構(gòu)是雙字對齊的。為了限制PIDL的尺寸，我們當(dāng)然也可以使用變長的字符數(shù)組，要想雙字對齊，只須通過在顯示字符串后添加足夠的'\0'字符就可以了。除此以外，還可以在結(jié)構(gòu)中包括對象尺寸、屬性等其他自定義的參數(shù)。
實(shí)現(xiàn)基本接口
??? 1. IPersistFolder接口
????IPersistFolder.Initialize方法需要給新的對象提供一個(gè)合格的PIDL，我們可能需要儲存PIDL為了以后使用，文件夾對象必須使用這個(gè)PIDL來為它的子對象創(chuàng)建合格的PIDL。文件夾對象也可以調(diào)用IPersistFolder.GetClassID來請求對象類標(biāo)識符。通常，文件夾對象的創(chuàng)建和初始化是通過父目錄的IShellFolder.BindToObject方法實(shí)現(xiàn)的。當(dāng)用戶瀏覽進(jìn)我們的擴(kuò)展后，資源瀏覽器會創(chuàng)建并初始化擴(kuò)展的根目錄對象，根目錄對象通過IPersistFolder.Initialize?方法獲得的PIDL應(yīng)該包括從桌面到擴(kuò)展部分的路徑，以便我們的擴(kuò)展可以構(gòu)造完全的PIDL。
?
??? 2. IShellFolder接口
??? 資源管理器可以通過多種途徑獲得我們擴(kuò)展的CLSID。獲得CLSID后，資源管理器會使用CLSID來創(chuàng)建和初始化根目錄對象的一個(gè)實(shí)例，并查詢IShellFolder接口。我們的擴(kuò)展這時(shí)需要?jiǎng)?chuàng)建一個(gè)根目錄對象并返回對象的IShellFolder 接口。資源管理器同擴(kuò)展的交互依賴于IShellFolder接口。 資源管理器使用IShellFolder用來：
??? (1) 請求一個(gè)對象來枚舉根目錄的內(nèi)容 。
??? (2) 獲得根目錄內(nèi)容的各種信息 。
??? (3) 請求其他可選接口，這些接口可以用來獲得額外的信息，如圖標(biāo)或右鍵菜單。
??? (4) 請求一個(gè)目錄對象代表根文件夾的一個(gè)子文件夾。
IShellFolder接口方法的實(shí)現(xiàn)
??? 1. EnumObjects方法
??? 資源管理器通過調(diào)用IShellFolder.EnumObjects方法來確定文件夾包括的內(nèi)容。這個(gè)方法創(chuàng)建了一個(gè)標(biāo)準(zhǔn)枚舉對象提供了IEnumIDList接口。IEnumIDList 接口使資源管理器獲得文件夾包含的全部對象的PIDL，PIDL然后可以用來獲得這些對象的信息。
??? 注意IEnumIDList.Next方法應(yīng)該返回相對于父目錄的PIDL。PIDL應(yīng)該僅包含對象的TSHITEMID結(jié)構(gòu)，并有一個(gè)結(jié)束符。
??? 2. CreateViewObject方法
??? 資源管理器調(diào)用CreateViewObject方法來獲得IShellView接口，這個(gè)接口是用來管理視圖的。CreateViewObject還可以用來獲得可選接口如IContextMenu。如果資源管理器想獲得目錄下對象的可選接口，需要調(diào)用IShellFolder.GetUIObjectOf方法。
??? 3. GetUIObjectOf方法
??? 資源管理器GetUIObjectOf 方法來獲得對象的額外信息，如圖標(biāo)和右鍵菜單。
??? 4. BindToObject方法
??? BindToObject方法被調(diào)用，當(dāng)用戶打開擴(kuò)展的子目錄時(shí)。如果參數(shù)riid=IID_IShellFolder，應(yīng)該創(chuàng)建和初始化一個(gè)子目錄的文件夾對象并返回一個(gè)?IShellFolder接口。
??? 5. GetDisplayNameOf方法
????GetDisplayNameOf方法是用來轉(zhuǎn)換PIDL成為可顯示的名稱字符串。PIDL必須是相對于對象的父目錄的。換句話說，它必須包含一個(gè)非空的SHITEMID?結(jié)構(gòu)。因?yàn)橛卸喾N命名對象的方式，資源管理器通過在uFlags參數(shù)中定義SHGNO標(biāo)識的組合來表示名稱類型。SHGDN_NORMAL或SHGDN_INFOLDER將被用來指定名稱是相對于文件夾的還是相對于桌面的。其他三個(gè)值SHGDN_FOREDITING、SHGDN_FORADDRESSBAR和SHGDN_FORPARSING可以用來指定名稱的用途。
??? 名稱必須按STRRET的結(jié)構(gòu)形式返回，如果SHGDN_FOREDITING、SHGDN_FORADDRESSBAR和 SHGDN_FORPARSING沒有設(shè)定，就返回外殼對象的顯示名稱。如果設(shè)定了SHGDN_FORPARSING 標(biāo)識，資源管理器就會請求一個(gè)解析名稱，解析名稱可以被IShellFolder.ParseDisplayName方法調(diào)用來獲得對象的PIDL，即便對象在目錄樹中處于當(dāng)前目錄下一層或更多層。例如，對于文件對象來說，它的解析名就是它的路徑，我們用文件系統(tǒng)對象的完全路徑名來調(diào)用桌面的IshellFolder接口的ParseDisplayName 方法，它會返回這個(gè)對象的完全PIDL。
??? 因?yàn)榻馕雒际俏谋咀址?#xff0c;所以沒必要包括顯示名。解析名的設(shè)計(jì)可以基于使IShellFolder.ParseDisplayName?方法調(diào)用效率更高。比如很多外殼虛擬文件夾不是文件系統(tǒng)的一部分，并沒有完全的路徑名，每個(gè)文件夾的解析名通常都是采用一個(gè)GUID和解析名結(jié)合的方式，格式示意如下：
??? ::{GUID}
??? 6. GetAttributesOf方法
??? 資源管理器調(diào)用IShellFolder.GetAttributesOf方法來確定文件夾下項(xiàng)目的屬性，參數(shù)cidl給出被查詢的項(xiàng)目數(shù)，參數(shù)apidl 指向?qū)?yīng)的PIDL鏈表。
??? 因?yàn)闄z驗(yàn)?zāi)承傩允欠浅：臅r(shí)的，資源管理器通常通過設(shè)定rfgInOut參數(shù)來限制查詢范圍，應(yīng)該只檢驗(yàn)?zāi)切?biāo)識定義在rfgInOut參數(shù)中的屬性。
??? 注意：外殼對象的屬性必須正確設(shè)置以便正確顯示，比如如果一個(gè)文件夾包括子目錄，就必須設(shè)定SFGAO_HASSUBFOLDERS 標(biāo)識。這時(shí)，資源管理器就會在樹視圖中的文件夾圖標(biāo)前加上一個(gè)+號圖標(biāo)。
??? 7. ParseDisplayName方法
????IShellFolder.ParseDisplayName?方法就相當(dāng)于IShellFolder. GetDisplayNameOf方法的逆操作。它主要被用于轉(zhuǎn)化外殼對象的解析名為相關(guān)聯(lián)的PIDL。返回的PIDL是相對于暴露接口的文件夾的。要想獲得完全的PIDL，調(diào)用者還需要把這個(gè)PIDL附在暴露接口的文件夾的PIDL后面。
????IShellFolder.ParseDisplayName?方法還可以用來請求外殼對象的屬性，因?yàn)榇_定所有的屬性非常耗時(shí)，我們同樣需要通過設(shè)定SFGAO_XXX?標(biāo)識來限定感興趣的信息。
IEnumIDList接口
??? 當(dāng)資源管理器需要枚舉文件夾包含的外殼對象時(shí)，它會調(diào)用IShellFolder. EnumObjects方法，文件夾對象必須創(chuàng)建一個(gè)枚舉對象來暴露IEnumIDList?接口并返回接口指針。
????IEnumIDList?是一個(gè)標(biāo)準(zhǔn)的OLE枚舉接口，很容易實(shí)現(xiàn)，但要注意的是返回的PIDL必須是相對于文件夾的，并且只包含一個(gè)SHITEMID?結(jié)構(gòu)和終止符。
實(shí)現(xiàn)其他任選的接口
??? 除了上面那些基本的接口外，還可以實(shí)現(xiàn)相當(dāng)多的任選的外殼接口，比如such as?IExtractIcon接口可以用來定制視圖的圖標(biāo)，還比如IDataObject接口可以用來支持拖放特性。
??? 上面這些接口不是由文件夾對象直接暴露出來的，而是資源管理器通過調(diào)用下面兩個(gè)IShellFolder方法來請求的：
??? 資源管理器調(diào)用文件夾對象的IShellFolder.GetUIObjectOf?方法來請求文件夾包含的對象的接口。
??? 資源管理器通過調(diào)用文件夾對象的IShellFolder.CreateViewObject?方法來請求文件夾本身的接口。
??? 下面將討論最常用的任選接口：
??? 1. IExtractIcon接口
??? 資源管理器會在它顯示文件夾內(nèi)容之前請求一個(gè)IExtractIcon?接口，這個(gè)接口允許擴(kuò)展定制文件夾中包含的對象的圖標(biāo)，否則標(biāo)準(zhǔn)的文件和文件夾圖標(biāo)就會被使用。實(shí)現(xiàn)IExtractIcon 接口的具體細(xì)節(jié)參見MSDN。
??? 2. IContextMenu接口
??? 當(dāng)用戶在外殼對象上點(diǎn)擊右鍵時(shí)，資源管理器會請求IContextMenu?接口，擴(kuò)展實(shí)現(xiàn)IContextMenu接口的細(xì)節(jié)參見MSDN。
??? 3. IQueryInfo接口
??? 資源管理器調(diào)用IQueryInfo?接口來獲得信息飛躍提示字符串，實(shí)現(xiàn)細(xì)節(jié)參見MSDN。
??? 4. IDataObject 和IDropTarget 接口
??? 對于擴(kuò)展來說沒有直接的方法從資源管理器中獲知用戶是否執(zhí)行了刪除、復(fù)制或正在拖放一個(gè)對象。但每當(dāng)有這類操作發(fā)生時(shí)，資源管理器會請求一個(gè)IDataObject?接口，要想允許對象操作，就要?jiǎng)?chuàng)建一個(gè)數(shù)據(jù)對象并返回它的IDataObject接口指針。
??? 當(dāng)用戶試圖釋放一個(gè)數(shù)據(jù)對象到擴(kuò)展中的外殼對象上時(shí)，資源管理器會請求一個(gè)IDropTarget?接口，要想允許數(shù)據(jù)對象釋放，需要?jiǎng)?chuàng)建一個(gè)對象暴露IDropTarget 接口并返回接口指針。具體實(shí)現(xiàn)可參考前面關(guān)于基于COM的拖放技術(shù)的討論。
??? 命名空間擴(kuò)展兩個(gè)主要的組成部分是文件夾對象和視圖COM對象，其中文件夾對象至少要實(shí)現(xiàn)IUnknown、IShellExtInit、IShellFolder 及IPersistFolder 接口。而視圖對象至少要實(shí)現(xiàn)IUnknown、IShellExtInit 和 IShellView接口。在文件夾對象創(chuàng)建后，外殼會通過IPersistFolder接口通知它在命名空間中的位置，也就是它的Item Identifier List。
文件夾對象同其下的子外殼對象交互
??? 我們將命名空間擴(kuò)展添加到系統(tǒng)中后，用戶就可以控制擴(kuò)展中顯示的內(nèi)容。或者展開左側(cè)面板中的文件夾，或者點(diǎn)中文件夾，資源管理器會在右側(cè)顯示面板中顯示其包含的子對象。
??? 當(dāng)用戶點(diǎn)中文件夾對象的”+”字號后直接雙擊文件夾對象時(shí)，資源管理器標(biāo)準(zhǔn)的行為是顯示被選定的文件夾的子目錄。這是通過調(diào)用文件夾對象的IShellFolder接口的EnumObjects 方法來實(shí)現(xiàn)的。當(dāng)用戶單擊文件夾時(shí)，資源管理器會顯示文件夾包含的對象的視圖，擴(kuò)展在顯示視圖前必須做兩件事情：
??? 創(chuàng)建文件夾對象，并調(diào)用對象的IShellFolder接口的BindToObject方法進(jìn)行綁定。
??? 創(chuàng)建視圖對象，一旦資源管理器創(chuàng)建完文件夾對象后，它就會調(diào)用對象的IShellFolder接口的CreateViewObject 方法。
文件夾對象同視圖的交互
| 圖2.5 |
??? 一旦視圖對象被創(chuàng)建，必須確定創(chuàng)建的視圖類型。一種是顯示文件夾中外殼對象項(xiàng)目的彈出式窗口。這類視圖，可以通過文件夾右鍵菜單的打開命令調(diào)出，如圖2.5所示。
??? 另一種是當(dāng)用戶雙擊左側(cè)面板的文件夾后，內(nèi)容缺省時(shí)會顯示在右側(cè)面板中。文件夾對象創(chuàng)建視圖窗口是通過調(diào)用視圖對象的IshellView接口的CreateViewWindow 方法來實(shí)現(xiàn)的。視圖對象必須實(shí)現(xiàn)CreateViewWindow方法來確定創(chuàng)建哪類視圖。
??? 還要注意的關(guān)鍵一點(diǎn)是對應(yīng)于一個(gè)文件夾對象，系統(tǒng)中可以同時(shí)存在多個(gè)視圖對象，可以打開任意多個(gè)資源管理器和視圖窗口。因此，視圖和文件夾對象必須實(shí)現(xiàn)為相互獨(dú)立的COM對象。至于同步不同視圖窗口的顯示內(nèi)容則由資源管理器負(fù)責(zé)處理。
??? 接下來，就具體研究一下如何實(shí)現(xiàn)擴(kuò)展，我們將建立一個(gè)非常簡單的擴(kuò)展，它的唯一功能就是在視圖中顯示各類文件的內(nèi)容。下面是例子項(xiàng)目中各個(gè)單元的說明：
??? ShellFolder.pas: 實(shí)現(xiàn)了文件夾對象。
??? ShellView.pas: 實(shí)現(xiàn)了視圖對象。
??? ViewForm.pas: 實(shí)現(xiàn)了顯示在右側(cè)面板中的窗體。
??? 下面是文件夾COM對象的具體實(shí)現(xiàn)代碼：
??? unit ShellFolder;
??? interface
??? uses Windows, ActiveX, ComObj, ComServ, ShlObj, ShellView;
??? const
??? ??CLSID_RADFindBrowser: TGUID = '{23CE4E06-73A7-11D0-BC62-00A0243ABE0B}';
??? type
??? ??TShellFolderImpl = class(TComObject, IShellFolder, IPersistFolder)
??? ??protected
??? ????function IPersistFolder.Initialize = IPersistFolder_Initialize;
??? ??public
??? ????// IShellFolder
??? ????function ParseDisplayName(hwndOwner: HWND;
??? ??????pbcReserved: Pointer; lpszDisplayName: POLESTR; out pchEaten: ULONG;
??? ??????out ppidl: PItemIDList; var dwAttributes: ULONG): HResult; stdcall;
??? ????function EnumObjects(hwndOwner: HWND; grfFlags: DWORD;
??? ??????out EnumIDList: IEnumIDList): HResult; stdcall;
??? ????function BindToObject(pidl: PItemIDList; pbcReserved: Pointer;
??? ??????const riid: TIID; out ppvOut): HResult; stdcall;
??? ????function BindToStorage(pidl: PItemIDList; pbcReserved: Pointer;
??? ??????const riid: TIID; out ppvObj): HResult; stdcall;
??? ????function CompareIDs(lParam: LPARAM;
??? ??????pidl1, pidl2: PItemIDList): HResult; stdcall;
??? ????function CreateViewObject(hwndOwner: HWND; const riid: TIID;
??? ??????out ppvOut): HResult; stdcall;
??? ????function GetAttributesOf(cidl: UINT; var apidl: PItemIDList;
??? ??????var rgfInOut: UINT): HResult; stdcall;
??? ????function GetUIObjectOf(hwndOwner: HWND; cidl: UINT; var apidl: PItemIDList;
??? ??????const riid: TIID; prgfInOut: Pointer; out ppvOut): HResult; stdcall;
??? ????function GetDisplayNameOf(pidl: PItemIDList; uFlags: DWORD;
??? ??????var lpName: TStrRet): HResult; stdcall;
??? ????function SetNameOf(hwndOwner: HWND; pidl: PItemIDList; lpszName: POLEStr;
??? ??????uFlags: DWORD; var ppidlOut: PItemIDList): HResult; stdcall;
? ??????// IPersist
??? ????function GetClassID(out classID: TCLSID): HResult; stdcall;
??? ????// IPersistFolder
??? ????function IPersistFolder_Initialize(pidl: PItemIDList): HResult; virtual;
??? ??????stdcall;
??? end;
??? implementation
??? uses
??? ??RegisterExtension;
??? function TShellFolderImpl.ParseDisplayName(hwndOwner: HWND;
??? ??pbcReserved: Pointer; lpszDisplayName: POLESTR; out pchEaten: ULONG;
??? ??out ppidl: PItemIDList; var dwAttributes: ULONG): HResult;
??? begin
??? ??MessageBox(0, 'TShellFolderImpl.ParseDisplayName', nil, 0);
??? ??Result := E_NOTIMPL;
??? end;
??? function TShellFolderImpl.EnumObjects(hwndOwner: HWND; grfFlags: DWORD;
??? ??out EnumIDList: IEnumIDList): HResult;
??? begin
??? ??MessageBox(0, 'TShellFolderImpl.EnumObjects', nil, 0);
??? ??Result := E_NOTIMPL;
??? end;
??? function TShellFolderImpl.CompareIDs(lParam: LPARAM;
??? ??pidl1, pidl2: PItemIDList): HResult;
??? begin
??? ??MessageBox(0, 'TShellFolderImpl.CompareIDs', nil, 0);
??? ??Result := E_NOTIMPL;
??? end;
??? function TShellFolderImpl.GetAttributesOf(cidl: UINT; var apidl: PItemIDList;
??? ??var rgfInOut: UINT): HResult;
??? begin
??? ??MessageBox(0, 'TShellFolderImpl.GetAttributesOf', nil, 0);
??? ??Result := E_NOTIMPL;
??? end;
??? function TShellFolderImpl.GetDisplayNameOf(pidl: PItemIDList; uFlags: DWORD;
??? ??var lpName: TStrRet): HResult;
??? begin
??? ??MessageBox(0, 'TShellFolderImpl.GetDisplayNameOf', nil, 0);
??? ??Result := E_NOTIMPL;
??? end;
??? function TShellFolderImpl.SetNameOf(hwndOwner: HWND; pidl: PItemIDList;
??? ??lpszName: POLEStr;
??? ??uFlags: DWORD; var ppidlOut: PItemIDList): HResult;
??? begin
??? ??MessageBox(0, 'TShellFolderImpl.SetNameOf', nil, 0);
??? ??Result := E_NOTIMPL;
??? end;
??? { IPersistFolder }
??? function TShellFolderImpl.GetClassID(out classID: TCLSID): HResult;
??? begin
??? ??classID := CLSID_RADFindBrowser;
??? ??MessageBox(0, 'TShellFolderImpl.GetClassID', nil, 0);
??? ??Result := NOERROR;
??? end;
??? function TShellFolderImpl.IPersistFolder_Initialize(pidl: PItemIDList): HResult;
??? begin
??? ??Result := NOERROR;
??? end;
??? function TShellFolderImpl.BindToObject(pidl: PItemIDList;
??? ??pbcReserved: Pointer; const riid: TIID; out ppvOut): HResult;
??? begin
??? ??MessageBox(0, 'TShellFolderImpl.BindToObject', nil, 0);
??? ??Result := E_NOTIMPL;
??? end;
??? function TShellFolderImpl.BindToStorage(pidl: PItemIDList;
??? ??pbcReserved: Pointer; const riid: TIID; out ppvObj): HResult;
??? begin
??? ??MessageBox(0, 'TShellFolderImpl.BindToStorage', nil, 0);
??? ??Result := E_NOTIMPL;
??? end;
??? // 當(dāng)IpersistFolder.Initialize方法調(diào)用完后，外殼就會調(diào)用這個(gè)方法，我們必須構(gòu)建一個(gè)新的窗口來顯示視圖對象
??? function TShellFolderImpl.CreateViewObject(hwndOwner: HWND;
??? ??const riid: TIID; out ppvOut): HResult;
??? var
??? ??shellView: IShellView;
??? begin
??? ??try
??? ????if IsEqualGUID(riid, IShellView) then
??? ????begin
??? ??????ShellView := TShellViewImpl.Create;
??? ??????Result := (ShellView as IUnknown).QueryInterface(riid, ppvOut)
??? ????end
??? ????else
??? ??????Result := E_NOINTERFACE;
?? ???except
??? ????on E: EOleSysError do
? ??????Result := E.ErrorCode;
??? ??else
??? ????Result := E_UNEXPECTED;
??? ??end;
??? end;
??? function TShellFolderImpl.GetUIObjectOf(hwndOwner: HWND; cidl: UINT;
? ??var apidl: PItemIDList; const riid: TIID; prgfInOut: Pointer;
??? ??out ppvOut): HResult;
??? begin
??? ??MessageBox( 0, 'TShellFolderImpl.GetUIObjectOf', nil, 0 );
??? ??Result := E_NOTIMPL;
??? end;
??? initialization
??? ??TNamespaceExtensionFactory.Create(ComServer, TShellFolderImpl,
??? ????CLSID_RADFindBrowser,
??? ????'', 'Delphi RADFind Explorer Extension', ciMultiInstance)
??? end.
??? 在上面代碼中，對于IShellFolder接口的大部分方法都沒有實(shí)現(xiàn)，只是給出了像下面這樣一個(gè)空的實(shí)現(xiàn)：
??? function TShellFolderImpl.BindToStorage(pidl: PItemIDList;
??? ??pbcReserved: Pointer; const riid: TIID; out ppvObj): HResult;
??? begin
??? ??MessageBox(0, 'TShellFolderImpl.BindToStorage', nil, 0);
??? ??Result := E_NOTIMPL;//沒有實(shí)現(xiàn)這個(gè)方法
??? end;
??? 但我們必須實(shí)現(xiàn)一個(gè)重要的方法，這就是CreateViewObject方法，在此方法中先要?jiǎng)?chuàng)建視圖對象的一個(gè)實(shí)例，然后返回被資源管理器請求的接口。過程非常簡單，只用下面５行代碼就可以實(shí)現(xiàn)：
????? If IsEqualGUID(riid, IShellView) then
????? begin
??? ????ShellView := TShellViewImpl.Create;//創(chuàng)建視圖對象實(shí)例返回被請求的接口
??? ????Result := (ShellView as IUnknown).QueryInterface(riid, ppvOut)、、
?? ???End
??? 除此以外還可以通過使用類工廠來實(shí)現(xiàn)同上面代碼完全一樣的功能。代碼實(shí)現(xiàn)如下：
??? // 獲得類工廠
??? Factory := ComClassManager.GetFactoryFromClassID( CLSID_RADFindView );
??? if Factory <> nil then
??? begin
??? ??FObject := Factory.CreateComObject( nil );
??? ??if FObject <> nil then
??? ??begin
??? ????// 請求接口
??? ????FObject.ObjAddRef;
??? ????Result := FObject.ObjQueryInterface( riid, ppvOut );
??? ????FObject.ObjRelease;
??? ??end;
??? unit ShellView;
? ??interface
??? uses Windows, ActiveX, CommCtrl, ShellAPI, ShlObj, ViewForm;
??? type
??? ??TShellViewImpl = class(TInterfacedObject, IShellView)
??? ??private
??? ????FFolderSettings: TFolderSettings;
??? ????FShellBrowser: IShellBrowser;
??? ????FHWndParent: HWND;
??? ????FForm: TView;
??? ??public
??? ????constructor Create;
??? ????// IOleWindow Methods
??? ????function GetWindow(out wnd: HWnd): HResult; stdcall;
??? ????function ContextSensitiveHelp(fEnterMode: BOOL): HResult; stdcall;
??? ????// IShellView Methods
??? ????function TranslateAccelerator(var Msg: TMsg): HResult; stdcall;
??? ????function EnableModeless(Enable: Boolean): HResult; stdcall;
??? ????function UIActivate(State: UINT): HResult; stdcall;
??? ????function Refresh: HResult; stdcall;
??? ????function CreateViewWindow(PrevView: IShellView;
??? ??????var FolderSettings: TFolderSettings; ShellBrowser: IShellBrowser;
??? ??????var Rect: TRect; out Wnd: HWND): HResult; stdcall;
??? ????function DestroyViewWindow: HResult; stdcall;
??? ????function GetCurrentInfo(out FolderSettings: TFolderSettings): HResult;
??? ??????stdcall;
??? ????function AddPropertySheetPages(Reseved: DWORD;
??? ??????var lpfnAddPage: TFNAddPropSheetPage; lParam: LPARAM): HResult; stdcall;
??? ????function SaveViewState: HResult; stdcall;
??? ????function SelectItem(pidl: PItemIDList; flags: UINT): HResult; stdcall;
??? ????function GetItemObject(Item: UINT; const iid: TIID; var IPtr: Pointer):
??? ??????HResult; stdcall;
??? ????property ShellBrowser: IShellBrowser read FShellBrowser;
??? ??end;
??? implementation
??? uses
??? ??RegisterExtension, Classes;
? ????constructor TShellViewImpl.Create;
??? begin
??? ??inherited Create;
??? ??FForm := nil;
??? ??FShellBrowser := nil;
??? end;
???
??? // IOleWindow Implementation
??? function TShellViewImpl.GetWindow(out wnd: HWnd): HResult; stdcall;
??? begin
??? ??FShellBrowser.SetStatusTextSB(StringToOleStr('IOleWindow.GetWindow'));
??? ??Wnd := FForm.Handle;
??? ??Result := NOERROR;
??? end;
??? function TShellViewImpl.ContextSensitiveHelp(fEnterMode: BOOL): HResult;
??? ??stdcall;
??? begin
??? ??FShellBrowser.SetStatusTextSB(StringToOleStr('IOleWindow.ContextSensitiveHelp'));
??? ??Result := E_NOTIMPL;
??? end;
???
??? // IShellView Implementation
??? function TShellViewImpl.TranslateAccelerator(var Msg: TMsg): HResult; stdcall;
??? begin
??? ??Result := E_NOTIMPL;
??? end;
??? function TShellViewImpl.EnableModeless(Enable: Boolean): HResult; stdcall;
??? begin
??? ??FShellBrowser.SetStatusTextSB(StringToOleStr('IShellView.EnableModeless'));
??? ??Result := E_NOTIMPL;
??? end;
??? function TShellViewImpl.UIActivate(State: UINT): HResult; stdcall;
??? var
??? ??S: string;
??? begin
??? ??case TSVUIAEnums(State) of
??? ????SVUIA_DEACTIVATE:
??? ??????S := 'Deactivate view';
??? ????SVUIA_ACTIVATE_NOFOCUS:
??? ??????S := 'Activate view without focus';
??? ????SVUIA_ACTIVATE_FOCUS:
??? ??????S := 'Activate view with focus';
??? ????SVUIA_INPLACEACTIVATE:
??? ??????S := 'Activate view for inplace-activation within ActiveX control';
??? ??end;
??? ??FShellBrowser.SetStatusTextSB(StringToOleStr('IShellView.UIActivate: ' + S));
??? ??Result := NOERROR;
??? end;
??? function TShellViewImpl.Refresh: HResult; stdcall;
??? begin
??? ??FShellBrowser.SetStatusTextSB(StringToOleStr('IShellView.Refresh'));
??? ??Result := E_NOTIMPL;
??? end;
??? function TShellViewImpl.CreateViewWindow(PrevView: IShellView;
??? ??var FolderSettings: TFolderSettings; ShellBrowser: IShellBrowser;
??? ??var Rect: TRect; out Wnd: HWND): HResult; stdcall;
??? begin
??? ??FFolderSettings := FolderSettings;
??? ??FShellBrowser := ShellBrowser;
??? ??FShellBrowser.GetWindow(FHWndParent);
??? ??try
??? ????FForm := TView.CreateShView(nil, FShellBrowser, Self as IShellView);
??? ????Wnd := FForm.Handle;
??? ????SetParent(Wnd, FHWndParent);
??? ????with FForm do
??? ????begin
??? ??????SetWindowPos(Handle, HWND_TOP, Rect.Left, Rect.Top,
? ????????Rect.Right - Rect.Left, Rect.Bottom - Rect.Top, SWP_SHOWWINDOW);
??? ??????Show;
??? ????end;
??? ????if Wnd <> 0 then
??? ??????Result := NOERROR
??? ????else
??? ??????Result := E_UNEXPECTED;
??? ??except
????? ??Result := E_UNEXPECTED;
??? ??end;
??? end;
??? function TShellViewImpl.DestroyViewWindow: HResult; stdcall;
??? begin
??? ??FShellBrowser.SetStatusTextSB(StringToOleStr('IShellView.DestroyViewWin-dow'));
??? ??FForm.Free;
??? ??FForm := nil;
??? ??Result := NOERROR;
??? end;
??? function TShellViewImpl.GetCurrentInfo(out FolderSettings: TFolderSettings):
??? ??HResult; stdcall;
??? begin
??? ??FShellBrowser.SetStatusTextSB(StringToOleStr('IShellView.GetCurrent-Info'));
??? ??Result := E_NOTIMPL;
??? end;
??? function TShellViewImpl.SaveViewState: HResult; stdcall;
??? begin
??? ??FShellBrowser.SetStatusTextSB(StringToOleStr('IShellView.SaveViewState'));
??? ??Result := E_NOTIMPL;
??? end;
??? function TShellViewImpl.SelectItem(pidl: PItemIDList; flags: UINT): HResult;
??? ??stdcall;
??? begin
??? ??FShellBrowser.SetStatusTextSB(StringToOleStr('IShellView.SelectItem'));
??? ??Result := E_NOTIMPL;
??? end;
??? function TShellViewImpl.AddPropertySheetPages(Reseved: DWORD;
??? ??var lpfnAddPage: TFNAddPropSheetPage; lParam: LPARAM): HResult;
??? begin
??? ??FShellBrowser.SetStatusTextSB(StringToOleStr('IShellView.AddPropertySheetPages'));
??? ??Result := E_NOTIMPL;
??? end;
??? function TShellViewImpl.GetItemObject(Item: UINT; const iid: TIID;
??? ??var IPtr: Pointer): HResult;
??? begin
??? ??FShellBrowser.SetStatusTextSB(StringToOleStr('IShellView.GetItemObject'));
??? ??Result := E_NOTIMPL;
??? end;
??? end.
??? 接下來是視圖對象的實(shí)現(xiàn)代碼：
??? unit ShellView;
??? interface
??? uses Windows, ActiveX, CommCtrl, ShellAPI, ShlObj, ViewForm;
??? type
??? ??TShellViewImpl = class(TInterfacedObject, IShellView)
??? ??private
??? ????FFolderSettings: TFolderSettings;
??? ????FShellBrowser: IShellBrowser;
??? ????FHWndParent: HWND;
??? ????FForm: TView;
??? ??public
??? ????constructor Create;
??? ????// IOleWindow Methods
??? ????function GetWindow(out wnd: HWnd): HResult; stdcall;
??? ????function ContextSensitiveHelp(fEnterMode: BOOL): HResult; stdcall;
??? ????// IShellView Methods
??? ????function TranslateAccelerator(var Msg: TMsg): HResult; stdcall;
??? ????function EnableModeless(Enable: Boolean): HResult; stdcall;
??? ????function UIActivate(State: UINT): HResult; stdcall;
??? ????function Refresh: HResult; stdcall;
??? ????function CreateViewWindow(PrevView: IShellView;
??? ??????var FolderSettings: TFolderSettings; ShellBrowser: IShellBrowser;
??? ??????var Rect: TRect; out Wnd: HWND): HResult; stdcall;
??? ????function DestroyViewWindow: HResult; stdcall;
??? ????function GetCurrentInfo(out FolderSettings: TFolderSettings): HResult;
??? ??????stdcall;
??? ????function AddPropertySheetPages(Reseved: DWORD;
??? ??????var lpfnAddPage: TFNAddPropSheetPage; lParam: LPARAM): HResult; stdcall;
??? ????function SaveViewState: HResult; stdcall;
??? ????function SelectItem(pidl: PItemIDList; flags: UINT): HResult; stdcall;
??? ????function GetItemObject(Item: UINT; const iid: TIID; var IPtr: Pointer):
??? ??????HResult; stdcall;
??? ????property ShellBrowser: IShellBrowser read FShellBrowser;
??? ??end;
??? implementation
??? uses
??? ??RegisterExtension, Classes;
??? constructor TShellViewImpl.Create;
??? begin
??? ??inherited Create;
??? ??FForm := nil;
??? ??FShellBrowser := nil;
??? end;
??? // IOleWindow Implementation
??? function TShellViewImpl.GetWindow(out wnd: HWnd): HResult; stdcall;
??? begin
??? ??FShellBrowser.SetStatusTextSB(StringToOleStr('IOleWindow.GetWindow'));
??? ??Wnd := FForm.Handle;
??? ??Result := NOERROR;
??? end;
??? function TShellViewImpl.ContextSensitiveHelp(fEnterMode: BOOL): HResult;
??? ??stdcall;
??? begin
??? ??FShellBrowser.SetStatusTextSB(StringToOleStr('IOleWindow.ContextSensitiveHelp'));
??? ??Result := E_NOTIMPL;
??? end;
??? // IShellView Implementation
??? function TShellViewImpl.TranslateAccelerator(var Msg: TMsg): HResult; stdcall;
??? begin
??? ??Result := E_NOTIMPL;
??? end;
??? function TShellViewImpl.EnableModeless(Enable: Boolean): HResult; stdcall;
??? begin
??? ??FShellBrowser.SetStatusTextSB(StringToOleStr('IShellView.EnableModeless'));
??? ??Result := E_NOTIMPL;
??? end;
??? function TShellViewImpl.UIActivate(State: UINT): HResult; stdcall;
??? var
??? ??S: string;
??? begin
??? ??case TSVUIAEnums(State) of
??? ????SVUIA_DEACTIVATE:
??? ??????S := '視圖失焦';
??? ????SVUIA_ACTIVATE_NOFOCUS:
??? ??????S := '激活視圖，沒有焦點(diǎn)';
??? ????SVUIA_ACTIVATE_FOCUS:
??? ??????S := '激活視圖有焦點(diǎn)';
??? ????SVUIA_INPLACEACTIVATE:
??? ??????S := '激活視圖的原位ActiveX激活';
??? ??end;
??? ??FShellBrowser.SetStatusTextSB(StringToOleStr('IShellView.UIActivate: ' + S));
??? ??Result := NOERROR;
??? end;
??? function TShellViewImpl.Refresh: HResult; stdcall;
??? begin
??? ??FShellBrowser.SetStatusTextSB(StringToOleStr('IShellView.Refresh'));
??? ??Result := E_NOTIMPL;
??? end;
??? // 一旦TShellViewImpl被創(chuàng)建，這個(gè)函數(shù)就會被調(diào)用來創(chuàng)建真正的視圖窗口
??? function TShellViewImpl.CreateViewWindow(PrevView: IShellView;
? ????var FolderSettings: TFolderSettings; ShellBrowser: IShellBrowser;
? ????var Rect: TRect; out Wnd: HWND): HResult; stdcall;
??? begin
??? ??// 保存文件夾設(shè)置
??? ??FFolderSettings := FolderSettings;
??? ??FShellBrowser := ShellBrowser;
??? ??// 獲得資源管理器父窗口句柄
? ????FShellBrowser.GetWindow(FHWndParent);
??? ??// 創(chuàng)建窗體，傳遞文件夾和視圖對象接口給窗體
????? 通知外殼窗體什么時(shí)候獲得焦點(diǎn)
??? ??try
??? ????FForm := TView.CreateShView(nil, FShellBrowser, Self as IShellView);
??? ????Wnd := FForm.Handle;
??? ????SetParent(Wnd, FHWndParent);
??? ????with FForm do
??? ????begin
??? ??????SetWindowPos(Handle, HWND_TOP, Rect.Left, Rect.Top,
??? ????????Rect.Right - Rect.Left, Rect.Bottom - Rect.Top, SWP_SHOWWINDOW);
??? ??????Show;
??? ????end;
??? ????if Wnd <> 0 then
??? ??????Result := NOERROR
??? ????else
??? ??????Result := E_UNEXPECTED;
??? ??except
??? ????Result := E_UNEXPECTED;
??? ??end;
??? end;
??? function TShellViewImpl.DestroyViewWindow: HResult; stdcall;
??? begin
??? ??FShellBrowser.SetStatusTextSB(StringToOleStr('IShellView.DestroyViewWin-dow'));
??? ??FForm.Free;
??? ??FForm := nil;
??? ??Result := NOERROR;
??? end;
??? function TShellViewImpl.GetCurrentInfo(out FolderSettings: TFolderSettings):
??? ??HResult; stdcall;
??? Begin
????? //在狀態(tài)欄中顯示信息
??? ??FShellBrowser.SetStatusTextSB(StringToOleStr('IShellView.GetCurrentInfo'));
??? ??Result := E_NOTIMPL;
??? end;
??? function TShellViewImpl.SaveViewState: HResult; stdcall;
??? begin
??? ??FShellBrowser.SetStatusTextSB(StringToOleStr('IShellView.SaveViewState'));
??? ??Result := E_NOTIMPL;
? ??end;
??? function TShellViewImpl.SelectItem(pidl: PItemIDList; flags: UINT): HResult;
??? ??stdcall;
??? begin
??? ??FShellBrowser.SetStatusTextSB(StringToOleStr('IShellView.SelectItem'));
??? ??Result := E_NOTIMPL;
??? end;
??? function TShellViewImpl.AddPropertySheetPages(Reseved: DWORD;
??? ??var lpfnAddPage: TFNAddPropSheetPage; lParam: LPARAM): HResult;
??? begin
??? ??FShellBrowser.SetStatusTextSB(StringToOleStr('IShellView.AddPropertySheetPages'));
??? ??Result := E_NOTIMPL;
??? end;
??? function TShellViewImpl.GetItemObject(Item: UINT; const iid: TIID;
??? ??var IPtr: Pointer): HResult;
??? begin
??? ??FShellBrowser.SetStatusTextSB(StringToOleStr('IShellView.GetItemObject'));
??? ??Result := E_NOTIMPL;
??? end;
??? end.
??? 同文件夾的實(shí)現(xiàn)類似，這里只實(shí)現(xiàn)了IShellView接口的CreateViewWindow 方法，這個(gè)方法很簡單，唯一要說的是在方法中用下面的代碼將窗體設(shè)定為資源管理器的子窗體，這樣資源管理器可以刷新和重定義窗體的大小。
??? Wnd := FForm.Handle;
? ??SetParent(Wnd, FHWndParent);
??? 我們的窗體的功能主要是在剛開始啟動時(shí)顯示系統(tǒng)日志，并且可以在richEdit中顯示任意其他文件的內(nèi)容，實(shí)現(xiàn)代碼如下，重要的部分都添加了注釋：
??? constructor TView.Create(AOwner: TComponent);
??? begin
??? ??ShowMessage('應(yīng)該使用CreateSHView來創(chuàng)建視圖對象');
??? ??Abort;??????????????????????????????????? // 安靜的異常
??? end;
?? ?(對于窗體來說它必須是一個(gè)子窗體)
??? constructor TView.CreateSHView(AOwner: TComponent; SHBrowser: IShellBrowser; SHView: IShellView);
??? begin
??? ??FSHBrowser := nil;
??? ??FShellView := nil;
??? ??inherited Create(AOwner);
??? ??FSHBrowser := SHBrowser;
??? ??FShellView := SHView;
????? //增加引用記數(shù)
??? ??FSHBrowser._AddRef;
??? ??FShellView._AddRef;
??? ??SetWindowLong(Handle, GWL_STYLE, WS_CHILD);// 必須是子窗體
??? end;
??? destructor TView.Destroy;
??? begin
??? ??try
??? ????if Assigned(FSHBrowser) then
??? ??????FSHBrowser._Release;????????????????? // 減少引用記數(shù)
??? ????if Assigned(FShellView) then
??? ??????FShellView._Release;
??? ??finally
??? ????inherited Destroy;
??? ??end
??? end;
?? ?(打開其他文件)
??? procedure TView.N1Click(Sender: TObject);
??? begin
??? ??if OpenDialog1.Execute then
??? ????RichEdit1.Lines.LoadFromFile( OpenDialog1.FileName );
??? end;
?? ?(我們必須在窗體獲得焦點(diǎn)時(shí)調(diào)用OnViewWindowActive 回調(diào)函數(shù)
??? 以便外殼調(diào)用UIActivate接口回調(diào))
??? procedure TView.FormActivate(Sender: TObject);
??? begin
??? ??FSHBrowser.OnViewWindowActive(FShellView);
??? ??RichEdit1.SetFocus;?
??? end;
?? ?(加載系統(tǒng)日志文本)
??? procedure TView.FormShow(Sender: TObject);
??? begin
??? ??if FileExists('c:\BootLog.txt') then
??? ????RichEdit1.Lines.LoadFromFile('c:\BootLog.txt')
??? ??else
??? ??if FileExists('c:\config.sys') then
??? ????RichEdit1.Lines.LoadFromFile('c:\config.sys')
??? ??else
??? ????RichEdit1.Lines.Add('BootLog.txt or Config.sys not found')
??? end;
??? end.
??? 最后就是注冊創(chuàng)建好的擴(kuò)展了，下面是其實(shí)現(xiàn)代碼，這里給出了代碼的注釋，具體過程的意義參見前面的敘述：
??? unit RegisterExtension;
??? interface
??? uses
??? ??ComObj;
??? type
??? ??TNamespaceExtensionFactory = class(TComObjectFactory)
??? ??protected
??? ????function GetProgID: string; override;
??? ??public
??? ????procedure UpdateRegistry(Register: Boolean); override;
??? ??end;
??? implementation
??? uses
??? ??Windows, SysUtils, ShellView, ShlObj;
?? ?(獲得短文件名)
??? function GetShortPath(LongPath: ansiString): ansistring;
??? var
??? ??szShortPath,
??? ??szLongPath: array[0..MAX_PATH] of char;
??? ??PLen: Longint;
??? begin
??? ??Result := LongPath;??????????????????
??? ??StrPCopy(szLongPath, LongPath);????????
??? ??PLen := GetShortPathName(szLongPath, szShortPath, MAX_PATH);
??? ??if not ((PLen = 0) or (Plen > MAX_PATH)) then
??? ????Result := StrPas(szShortPath);?????????
??? end;
??? procedure CreateRegKeyEx(const Key, ValueName: string; Value: PChar;
?????????????????????????? Kind, Size: DWORD; RootKey: HKEY);
??? var
??? ??Handle: HKey;
??? ??Status,
??? ??Disposition: Integer;
??? begin
??? ??Status := RegCreateKeyEx(RootKey, PChar(Key), 0, '',
??? ????REG_OPTION_NON_VOLATILE, KEY_READ or KEY_WRITE or KEY_SET_VALUE, nil,
??? ??????Handle, @Disposition);
??? ??if Status = 0 then
??? ??begin
??? ????Status := RegSetValueEx(Handle, PChar(ValueName), 0, Kind, Value, Size);
??? ????RegCloseKey(Handle);
??? ??end;
??? ??if Status <> 0 then
??? ????raise EWin32Error.Create(SysErrorMessage(Status));
??? end;
??? procedure DeleteRegValue(const Key, ValueName: string; RootKey: HKEY);
??? var
??? ??Handle: HKEY;
??? ??Status: Integer;
??? begin
??? ??Status := RegOpenKey(RootKey, PChar(Key), Handle);
??? ??if Status = 0 then
??? ??begin
??? ????Status := RegDeleteValue(Handle, PChar(ValueName));
??? ????RegCloseKey(Handle);
??? ??end;
??? ??if Status <> 0 then
??? ????raise EWin32Error.Create(SysErrorMessage(Status));
??? end;
??? { TNamespaceExtensionFactory }
??? function TNamespaceExtensionFactory.GetProgID: string;
??? begin
??? ??Result := '';??????????? ?????????????????{對于命名空間擴(kuò)展來說不需要Progid}
??? end;
??? procedure TNamespaceExtensionFactory.UpdateRegistry(Register: Boolean);
??? const
??? ??// 設(shè)定我們的擴(kuò)展位于我的電腦下面
??? ??NamespaceKey='SOFTWARE\Microsoft\Windows\CurrentVersion\
Explorer\MyComputer\Namespace\';
??? ??//? 在NT上需要設(shè)定的注冊表項(xiàng)
????? ApproveKey='SOFTWARE\Microsoft\Windows\CurrentVersion\Shell Extensions\Approved\';
??? var
????? Temp,
????? ClsID: string;
???? ?Value: DWORD;
??? begin
??? ??ClsID := GUIDToString(ClassID);
??? ??inherited UpdateRegistry(Register);
??? ??if Register then
??? ??begin
??? ????Temp := GetShortPath(ComServer.ServerFileName);
????? ??CreateRegKey('CLSID\' + ClsID + '\' + ComServer.ServerKey, '', Temp);
??? ????if Win32Platform = VER_PLATFORM_WIN32_NT then
??? ??????CreateRegKeyEx(ApproveKey, ClsId, PChar(Description), REG_SZ,
??? ????????Length(Description) + 1, HKEY_LOCAL_MACHINE);
??? ????CreateRegKeyEx('CLSID\' + ClsId + '\InProcServer32\', 'ThreadingModel',
??? ??????'Apartment'#0, REG_SZ, 10, HKEY_CLASSES_ROOT);
??? ????// 本擴(kuò)展所屬節(jié)點(diǎn)為‘我的電腦'
??? ????CreateRegKeyEx(NameSpaceKey + ClsId, '', PChar(Description), REG_SZ,
??? ??????Length(Description) + 1, HKEY_LOCAL_MACHINE);
??? ????Value := SFGAO_FOLDER;// or SFGAO_HASSUBFOLDER;
??? ????CreateRegKeyEx('CLSID\' + ClsId + '\ShellFolder\', 'Attributes',
??? ??????@Value, REG_BINARY, SizeOf(DWORD), HKEY_CLASSES_ROOT);
??? ????// 使用DLL的缺省圖標(biāo)
??? ????CreateRegKey('CLSID\' + ClsId + '\DefaultIcon', '', Temp + ',0');
??? ??end
??? ??else begin
??? ????// 刪除節(jié)點(diǎn)
??? ????RegDeleteKey(HKEY_LOCAL_MACHINE, PChar(NameSpaceKey + ClsId));
??? ?if Win32Platform = VER_PLATFORM_WIN32_NT then
??? ??????DeleteRegValue(ApproveKey, ClsId, HKEY_LOCAL_MACHINE);
??? ??end;
| 圖2.6 |
??? end;
??? end.
??? 擴(kuò)展的運(yùn)行如圖2.6所示。
結(jié)論
??? 命名空間擴(kuò)展是所有外殼擴(kuò)展中最復(fù)雜的一種，因?yàn)樗膶?shí)現(xiàn)涉及的接口非常多，同時(shí)各個(gè)接口之間的交互關(guān)系也非常復(fù)雜，微軟提供了兩個(gè)C++版本的例子，RegView和CabView，可以供讀者參考。
總結(jié)
以上是生活随笔為你收集整理的[转帖]外壳命名空间扩展的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： Android硬件访问服务框架思想初识
- 下一篇： （转）扰码Scrambling和扩频码（