一般介紹

??? 很多人一定用過ZipMagic，對它能把一個壓縮文件映射成文件夾感到很奇怪，不知道它使用了什么技術，實際上它用到的技術就是實現了一個外殼的命名空間擴展（Shell Namespace Extention）。

文件夾和視圖：資源管理器的基本結構

??? 資源管理器的界面顯示為兩部分：左邊顯示的是對象在外殼命名空間的位置，它們是以樹結構顯示的，通常認為左邊顯示的應該是文件目錄樹，但事實上，左邊還顯示了很多并不是文件目錄的外殼對象，比如控制面板、打印機等，事實上在資源管理器中看到的文件夾、控制面板、網上鄰居等廣義上來說都是命名空間；管理器右邊顯示了當前被選對象的詳細內容，當選擇目錄時，右邊顯示目錄中的文件，當選擇控制面板時，右邊顯示控制面板項。這就是文件夾和視圖結構。

文件夾同管理器的交互

??? 傳統文件夾是由外殼實現的代表硬盤上的物理目錄結構，我們不能重載它的實現。而虛擬文件夾是通過外殼擴展的COM對象來實現的，比如控制面板。COM對象至少必須是以動態連接庫形式實現了IUnknown和IShellExtInit接口。命名空間的兩個主要組成部分是文件夾對象和視圖對象。它們分別實現了IShellFolder和IShellView接口。

項目標識符

??? 管理器左邊顯示的每一個項目都有一個唯一的標識符，由于項目不一定是文件，所以外殼不能再用目錄來標識它們了。windows用項目標識符來表示它們，標識符的結構如下：

??? ?PSHItemID = ^TSHItemID;

??? ?TSHItemID = packed record { mkid }

??? ?cb: Word; { 需要添入結構的大小 }

??? ?abID: array[0..0] of Byte;

??? ?end;

??? 標識符很少單獨使用，通常一個連一個地在標識符號鏈表里出現，當cb為0時表示到達鏈表的末尾了。當一個文件夾對象被創建了以后，外殼會調用它的IPersistFolder接口并傳遞給它一個標識符鏈表。

命名空間類型

??? 系統創建的命名空間稱為標準命名空間，用戶創建的則稱為用戶定制的命名空間。注意用戶定制的命名空間只有根節點對象才會自動出現在標準命名空間內。可以使用兩種方法來創建命名空間:

??? 在標準命名空間里創建一個目錄并把類標識符附在文件夾對象的后面，作為對象的文件名擴展。例如：

??? Custom Namespace.{12345678-0000-0000-0000-C00000000000}.

??? 在注冊表中創建下列鍵值：

??? ?HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\

??? ???Explorer\Desktop\Namespace.

??? 資源管理器會調用擴展的文件夾對象來枚舉它的子對象，就好像子文件夾一樣。

文件夾同子對象的交互

??? 當用戶點擊文件夾的"+"號時，管理器會調用IShellFolder.EnumObjects函數來顯示子文件夾列表。當用戶點擊最下層文件夾時，管理器會用視圖來顯示對象的內容。之前我們要做兩件事：

??? 創建文件夾對象。管理器先創建被選中的文件夾對象的父對象，然后調用IShellFolder.BindToObject函數。

??? 管理器調用文件夾對象的IShellFolder.CreateViewObject函數來創建視圖對象。

文件夾同視圖的交互

??? 視圖有兩種類型：一種是彈出式視圖窗口，另一種是普通視圖顯示在資源管理器右邊。文件夾對象創建這兩種視圖是通過調用視圖對象的IShellView.CreateViewWindow函數實現的。必須注意的一點是一個文件夾對象可能會對應多個視圖對象，因為用戶可能會為一個文件夾開很多窗口。這意味著視圖和文件夾對象必須為每個實現創立一個分離的COM對象，資源管理器會負責同步不同視圖的內容。

使用Delphi創建命名空間擴展實現視圖對象

??? 對象必須做到：

??? （1）創建一個視圖窗口的子窗口并使用它來顯示文件夾的內容。

??? （2）同資源管理器通訊。

??? （3）向資源管理器的菜單條和工具條添加文件夾相關的命令，并處理這些命令。

??? （4）顯示上下文相關的右鍵菜單和處理拖放操作。

??? 資源管理器要請求一個視圖對象可通過調用文件夾對象的 IShellFolder.CreateViewObject方法來實現，過程是：

??? （1）文件夾對象創建一個視圖的新的實例，并返回一個IShellView接口。

??? （2）資源管理器初始化視圖對象通過調用IShellView::CreateViewWindow方法。創建一個子窗口，并把句柄返回給資源管理器。

??? （3）視圖對象使用IShellBrowser接口來定制工具條、菜單條和狀態條。

??? （4）視圖在子窗口里顯示文件夾的內容。

??? （5）視圖處理用戶的輸入命令和工具條及菜單條命令。

初始化視圖對象

??? ?IShellView.CreateViewWindow方法的參數提供必要的信息給視圖來創建子窗口：

??? （1）前一個視圖對象的IShellView接口指針，可以是nil。

??? （2）一個TFOLDERSETTINGS結構包含先前視圖的設置信息，settings。

??? ?(3) IShellBrowser接口指針。

??? ?(4)?TRECT結構表示視圖窗口的顯示范圍。

IShellView.CreateViewWindow方法是在先前視圖被銷毀之前被調用的。因此，IShellView接口指針可以讓我們同先前視圖通信。如果先前接口也屬于我們的擴展，我們可以和它通信交換私有配置信息。

一個判斷IShellView指針是否屬于自己的擴展的簡單方法是定義一個私有接口。然后調用 IShellView.QueryInterface 來請求這個私有接口，若能獲得接口就說明是屬于擴展的接口。TFOLDERSETTINGS結構包含了視圖的顯示設置，主要的顯示模式是大圖標、小圖標、列表或是詳細信息，同時還有一個標志表示一系列的顯示選項，如是否左對齊等。我們可以修改它，資源管理器調用IShellView.GetCurrentInfo方法來獲得這個結構的最新信息。

?? ?IShellBrowser接口允許視圖同資源管理器通信，因為沒有其他獲得這個接口的途徑，所以視圖必須保存它以便再次使用。特別是我們需要調用IShellBrowser.GetWindow來獲得父視圖窗口用來創建子窗口。在保存了接口指針后，別忘了調用IShellBrowser.AddRef來增加接口引用記數。當不需要接口時，使用IShellBrowser.Release釋放接口。

??? 創建子窗口：

??? （1）檢查 TFOLDERSETTINGS和?TRECT?結構。

??? （2）調用IshellBrowser.GetWindow獲得父視圖窗口。創建子窗口并返回給資源管理器。

??? 顯示視圖：視圖窗口總是存在，即使沒有獲得焦點。因此，我們應該維護子窗口的如下三種狀態:

??? ① 激活并有焦點。設定對應焦點狀態的菜單項和工具條項。

??? ② 激活但沒有焦點。設定對應無焦點狀態的菜單項和工具條項。

??? ③ 失活狀態。視圖將要被銷毀，刪除所有相關菜單項。

??? 資源管理器通過調用IShellView.UIActivate方法來通知窗口狀態的變化。反過來視圖也應該用IShellBrowser.OnViewWindowActive方法通知管理器。當視圖處于激活狀態時，我們應該處理窗口消息，如WM_SIZE，它屬于子窗口。同時還要處理與菜單和工具條對應的WM_COMMAND消息。當視圖將要被銷毀時，資源管理器會調用IShellView.DestroyViewWindow方法通知視圖。

實現IShellView接口

?? ?1. AddPropertySheetPages方法

??? 當用戶選擇資源管理器的工具菜單的文件夾選項時，會顯示一個屬性頁允許用戶修改文件夾選項。資源管理器調用?IShellView.AddPropertySheetPages方法允許添加屬性頁面到屬性頁上。

??? 2. GetCurrentInfo方法

??? 在切換視圖前，資源管理器會調用IShellView.GetCurrentInfo來請求當前TFOLDERSETTINGS值傳遞給下一個視圖。

??? 3. Refresh方法

??? 資源管理器調用IshellView.Refresh來刷新視圖的顯示。

??? 4. SaveViewState方法

??? 資源管理器調用IShellView.SaveViewState方法提示視圖保存它的外觀狀態，使視圖在下次顯示時可以恢復狀態。通過調用IShellBrowser.GetViewStateStream方法返回一個IStream接口，視圖可以利用這個接口保存狀態。

??? 5. TranslateAcelerator方法

??? 當用戶按下快捷鍵時，資源管理器會調用?IShellView.TranslateAccelerator方法來傳遞消息給視圖。如果視圖返回 S_FALSE，資源管理器就處理這個消息。若視圖處理了這個消息，視圖就返回S_OK。當視圖有焦點時，資源管理器調用 IShellView::TranslateAccelerator后，若視圖沒處理這個消息，資源管理器就處理它。如果視圖沒有焦點，資源管理器就先處理消息，若它沒能處理的話，會調用IShellBrowser.TranslateAcceleratorSB。使用IshellBrowser接口同資源管理器通信。

??? ?IShellBrowser接口用于以下方面：

??? （1）修改資源管理器的菜單。

??? （2）修改資源管理器的工具條。

??? （3）修改資源管理器的狀態條。

??? （4）儲存外觀信息，如當前設置或狀態。

修改資源管理器的菜單

??? 可以使用?IShellBrowser接口來修改、添加或刪除菜單及其相關聯的命令。每次視圖狀態改變時，資源管理器會調用IShellView.UIActivate，因此應該把修改操作放到這里來做，基本步驟是：

??? （1）創建菜單句柄。

表2.2 菜單	標??? 識	組
文件	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）調用IShellBrowser.InsertMenusSB方法，資源管理器會添加適當的菜單信息。

??? （3）修改返回的菜單信息。

??? （4）調用IShellBrowser.Set- MenuSB方法讓資源管理器顯示修改后的菜單。

??? 資源管理器有6個菜單。資源管理器菜單條被分成6組：File、Edit、Container、Object、Window和Help。表2.2列示了各菜單的標識和分組。

??? 當調用?IShellBrowser. InsertMenusSB方法時，還必須傳遞一個指向TOLEMENUGROUPWIDTHS的結構，成員都被初始化為0。調用完?IShellBrowser.InsertMenusSB方法后，就可以使用返回的菜單句柄進行普通菜單操作。

??? （1）添加菜單項。

??? （2）修改或刪除已有的菜單項。

??? （3）添加新的菜單。

??? 注意為了避免和資源管理器的命令沖突，被添加的命令標識必須處在 FCIDM_SHVIEWFIRST和FCIDM_SHVIEWLAST之間。當資源管理器調用IShellView.UIActivate方法來表明視圖失活時，可調用IShellBrowser.Remove- MenusSB方法來恢復最初狀態。

修改工具條

??? 步驟是：

??? （1）添加按鈕的位圖到工具條的圖像列表里。

??? （2）定義按鈕的顯示字符串。

??? （3）添加按鈕到工具條。

??? 調用IShellBrowser.SendControlMsg方法給工具條發送?TB_ADDBITMAP消息。設定參數ID為FCW_TOOLBAR，設定wParam為位圖中的按鈕圖像數，lParam為TTBADDBITMAP結構的地址。圖像索引在pret參數里返回。

??? 有兩種方法設定按鈕的顯示字符串：

??? （1）設定TTBBUTTON結構的iString成員。

??? （2）調用IShellBrowser.SendControlMsg發送TB_ADDSTRING消息。wParam參數為0，lParam參數指向字符串。字符串索引由pret返回。

??? 添加按鈕，要先填寫TTBBUTTON結構然后調用IShellBrowser. SetToolbarItems。

修改資源管理器狀態條

??? 兩種使用方法是：

??? （1）用IShellBrowser.SetStatusTextSB方法來顯示字符串。

??? （2）用IShellBrowser.SendControlMsg方法直接發消息。

實現文件夾接口

??? 1. 注冊擴展

??? 下面幾個鍵值只對包含子目錄的命名空間擴展有意義，同時這些值并不能用于那些子目錄是文件系統目錄的擴展。要想改變有子目錄的擴展的行為，應添加下列鍵值到擴展的CLSID子鍵下：

??? WantsFORPARSING：有子目錄的擴展的解析名通常有如下形式::{GUID}。 這種擴展通常包括虛擬的子對象。然而，某些擴展，比如我的文檔，是完全對應于文件系統目錄的。如果我們的擴展只是對現有系統文件夾的重新定義和擴充，可以先設定WantsFORPARSING 值，資源管理器將會通過調用擴展根目錄對象的IShellFolder.GetDisplayNameOf 方法來請求根目錄對象解析名稱，其中參數uFlags會被設定為SHGDN_FORPARSING，而pidl 參數被設定為一個只包含一個終結符的空的PIDL。

??? HideFolderVerbs：在HKEY_CLASSES_ROOT\Folder 子鍵下定義的verbs通常同所有的擴展關聯。它們出現在擴展的上下文相關菜單中，并可以通過ShellExecute調用，要想禁止這些Verbs同我們的擴展關聯，需要設定HideFolderVerbs值。

??? HideAsDelete：如果一個用戶試圖刪除我們的擴展，資源管理器將會隱藏這個擴展。

??? HideAsDeletePerUser：這個值同HideAsDelete有相同的效果，但它是基于單一用戶的，擴展將會只對試圖刪除該擴展的用戶隱藏，而對其他用戶依然顯示。

??? QueryForOverlay：設定這個值表示根目錄的圖標擁有掩碼重疊圖標。同時，這要求文件夾對象必須支持IShellIconOverlay?接口。在資源管理器顯示根目錄的圖標前，它會通過調用IShellIconOverlay接口的兩個方法來請求一個重疊圖標。

??? 下面這些鍵值適用于所有的命名空間擴展：

??? （1）要想指定擴展的節點文件夾的顯示名稱，設定擴展的CLSID子鍵缺省值為名稱字符串。

??? （2）當光標在文件夾上停留時，應該顯示一個飛躍信息提示來描述文件夾的內容。要想為擴展的根目錄提供飛躍信息提示的話，在擴展的CLSID的子鍵下創建一個字符串類型的InfoTip值，并賦值給它想要顯示的信息字符串。

??? （3）要想為擴展的根目錄指定一個定制的圖標的話，要在擴展的CLSID子鍵下創建DefaultIcon子鍵。設定DefaultIcon子鍵的缺省值為包含圖標的文件名的字符串，同時字符串中還應該用逗號隔開要使用的圖標在文件中的索引值（以0為底的）。

??? （4）缺省時，擴展根目錄對應的上下文相關菜單將會包括定義在HKEY_CLASSES_ ROOT\Folder主鍵下的菜單項。同時外殼還會根據擴展的SFGAO_XXX標志決定是否添加刪除、重命名、和屬性菜單項。如果還想在菜單中添加或重載已有菜單項，就同擴展文件類的上下文相關菜單一樣，需要在擴展的CLSID子鍵下建立一個Shell子鍵并定義相應的命令。（Extending Context Menus）。

??? （5）如果需要一種更靈活的定制根目錄右鍵菜單的方式，可以實現一個上下文相關菜單擴展。為了注冊這個菜單擴展，需要在擴展的CLSID子鍵下創建ShellEx 子鍵，并像注冊其他擴展一樣注冊菜單擴展（shell extension handler）。

??? （6）要想為擴展的根目錄用右鍵菜單的屬性命令調出的屬性頁上添加一個新的屬性頁面的話，需要在設定文件夾的SFGAO_HASPROPSHEET 屬性的同時實現一個屬性頁擴展。并像上面的上下文相關菜單擴展一樣注冊屬性頁擴展。

??? （7）要想指定根目錄的屬性，需要添加在擴展的CLSID子鍵下添加ShellFolder 子鍵，并創建一個Attributes值，設定它為合適的SFGAO_XXX 標識的組合。

??? 表2.3是一些常用的屬性標識 ：

表2.3

??? 下面的例子顯示了如何注冊命名空間擴展：

??? HKEY_CLASSES_ROOT

??? ??CLSID

??? ????{Extension CLSID}=demo

??? ????????InfoTip=演示

??? ??????InProcServer32=c:\Namespace\demo.dll

??? ????????ThreadingModel=Apartment

??? ??????ShellFolder

??? ????????Attributes=0xA00000020

??? ?//屬性包括SFGAO_FOLDER, SFGAOHASSUBFOLDER,SFGAO_CANDELETE標志

??? ??????DefaultIcon=c:\Namespace\demo.dll,1

??? 2. 處理PIDL

??? 每一個命名空間的項必須有一個唯一的標識符 PIDL。

??? 注意：為PIDL設計一個數據結構的最重要的方面就是確保結構是可持續的和可傳輸的，意義在于：

??? （1）可持續性：系統經常會把PIDL進行長期儲存，比如放在快捷方式文件中。儲存一段時間后，自然需要從儲存中恢復PIDL，從儲存中恢復的PIDL對于我們的擴展必須還應該是有效的。這就意味著在PIDL結構中不能使用指針或句柄。這類數據通常總是發生變化的。

??? （2）可傳輸性：當一個PIDL從一臺機器轉移到另一臺機器時，仍然要保證它有意義。比如一個PIDL可以被寫到一個快捷方式文件中，復制到軟盤中，然后再安裝到其他機器上，如果這臺機器上也安裝了我們的擴展，那么被復制的快捷方式文件應該繼續有效。為了使PIDL可傳輸，應該在PIDL中使用ANSI或Unicode字符串，同時要注意，在一臺運行著Unicode版本的擴展所建立的PIDL將無法被Ansi版本的擴展所讀取。

??? 下面是一個簡單的PIDL數據結構設計：

??? Type

??? TPIDLDemp= record

??? Cb:integer;

??? ??DwType:Dword;

??? ??WszDisplayName:array [0..39] of char;

??? End;

??? cb參數是用來指定數據結構大小的，這確保了TPIDLDemo結構成為一個有效的SHITEMID?結構。結構中剩下的部分等效于SHITEMID結構中的abID 參數，用于保存私有數據。DwType參數是一個擴展定義的變量用于表示外殼對象類型，比如，dwType如果為True，可以用來表示文件夾，而用False來表示其他的外殼對象。WszDisplayName用于保存外殼對象的顯示名稱。注意這里不能為目錄中不同的對象賦予同樣的名稱，同時由于名稱不同，wszDisplayName完全可以作為對象ID。這里wszDisplayName長度設定為40是為了確保SHITEMID?結構是雙字對齊的。為了限制PIDL的尺寸，我們當然也可以使用變長的字符數組，要想雙字對齊，只須通過在顯示字符串后添加足夠的'\0'字符就可以了。除此以外，還可以在結構中包括對象尺寸、屬性等其他自定義的參數。

實現基本接口

??? 1. IPersistFolder接口

????IPersistFolder.Initialize方法需要給新的對象提供一個合格的PIDL，我們可能需要儲存PIDL為了以后使用，文件夾對象必須使用這個PIDL來為它的子對象創建合格的PIDL。文件夾對象也可以調用IPersistFolder.GetClassID來請求對象類標識符。通常，文件夾對象的創建和初始化是通過父目錄的IShellFolder.BindToObject方法實現的。當用戶瀏覽進我們的擴展后，資源瀏覽器會創建并初始化擴展的根目錄對象，根目錄對象通過IPersistFolder.Initialize?方法獲得的PIDL應該包括從桌面到擴展部分的路徑，以便我們的擴展可以構造完全的PIDL。

?

??? 2. IShellFolder接口

??? 資源管理器可以通過多種途徑獲得我們擴展的CLSID。獲得CLSID后，資源管理器會使用CLSID來創建和初始化根目錄對象的一個實例，并查詢IShellFolder接口。我們的擴展這時需要創建一個根目錄對象并返回對象的IShellFolder 接口。資源管理器同擴展的交互依賴于IShellFolder接口。 資源管理器使用IShellFolder用來：

??? (1) 請求一個對象來枚舉根目錄的內容 。

??? (2) 獲得根目錄內容的各種信息 。

??? (3) 請求其他可選接口，這些接口可以用來獲得額外的信息，如圖標或右鍵菜單。

??? (4) 請求一個目錄對象代表根文件夾的一個子文件夾。

IShellFolder接口方法的實現

??? 1. EnumObjects方法

??? 資源管理器通過調用IShellFolder.EnumObjects方法來確定文件夾包括的內容。這個方法創建了一個標準枚舉對象提供了IEnumIDList接口。IEnumIDList 接口使資源管理器獲得文件夾包含的全部對象的PIDL，PIDL然后可以用來獲得這些對象的信息。

??? 注意IEnumIDList.Next方法應該返回相對于父目錄的PIDL。PIDL應該僅包含對象的TSHITEMID結構，并有一個結束符。

??? 2. CreateViewObject方法

??? 資源管理器調用CreateViewObject方法來獲得IShellView接口，這個接口是用來管理視圖的。CreateViewObject還可以用來獲得可選接口如IContextMenu。如果資源管理器想獲得目錄下對象的可選接口，需要調用IShellFolder.GetUIObjectOf方法。

??? 3. GetUIObjectOf方法

??? 資源管理器GetUIObjectOf 方法來獲得對象的額外信息，如圖標和右鍵菜單。

??? 4. BindToObject方法

??? BindToObject方法被調用，當用戶打開擴展的子目錄時。如果參數riid=IID_IShellFolder，應該創建和初始化一個子目錄的文件夾對象并返回一個?IShellFolder接口。

??? 5. GetDisplayNameOf方法

????GetDisplayNameOf方法是用來轉換PIDL成為可顯示的名稱字符串。PIDL必須是相對于對象的父目錄的。換句話說，它必須包含一個非空的SHITEMID?結構。因為有多種命名對象的方式，資源管理器通過在uFlags參數中定義SHGNO標識的組合來表示名稱類型。SHGDN_NORMAL或SHGDN_INFOLDER將被用來指定名稱是相對于文件夾的還是相對于桌面的。其他三個值SHGDN_FOREDITING、SHGDN_FORADDRESSBAR和SHGDN_FORPARSING可以用來指定名稱的用途。

??? 名稱必須按STRRET的結構形式返回，如果SHGDN_FOREDITING、SHGDN_FORADDRESSBAR和 SHGDN_FORPARSING沒有設定，就返回外殼對象的顯示名稱。如果設定了SHGDN_FORPARSING 標識，資源管理器就會請求一個解析名稱，解析名稱可以被IShellFolder.ParseDisplayName方法調用來獲得對象的PIDL，即便對象在目錄樹中處于當前目錄下一層或更多層。例如，對于文件對象來說，它的解析名就是它的路徑，我們用文件系統對象的完全路徑名來調用桌面的IshellFolder接口的ParseDisplayName 方法，它會返回這個對象的完全PIDL。

??? 因為解析名都是文本字符串，所以沒必要包括顯示名。解析名的設計可以基于使IShellFolder.ParseDisplayName?方法調用效率更高。比如很多外殼虛擬文件夾不是文件系統的一部分，并沒有完全的路徑名，每個文件夾的解析名通常都是采用一個GUID和解析名結合的方式，格式示意如下：

??? ::{GUID}

??? 6. GetAttributesOf方法

??? 資源管理器調用IShellFolder.GetAttributesOf方法來確定文件夾下項目的屬性，參數cidl給出被查詢的項目數，參數apidl 指向對應的PIDL鏈表。

??? 因為檢驗某些屬性是非常耗時的，資源管理器通常通過設定rfgInOut參數來限制查詢范圍，應該只檢驗那些標識定義在rfgInOut參數中的屬性。

??? 注意：外殼對象的屬性必須正確設置以便正確顯示，比如如果一個文件夾包括子目錄，就必須設定SFGAO_HASSUBFOLDERS 標識。這時，資源管理器就會在樹視圖中的文件夾圖標前加上一個+號圖標。

??? 7. ParseDisplayName方法

????IShellFolder.ParseDisplayName?方法就相當于IShellFolder. GetDisplayNameOf方法的逆操作。它主要被用于轉化外殼對象的解析名為相關聯的PIDL。返回的PIDL是相對于暴露接口的文件夾的。要想獲得完全的PIDL，調用者還需要把這個PIDL附在暴露接口的文件夾的PIDL后面。

????IShellFolder.ParseDisplayName?方法還可以用來請求外殼對象的屬性，因為確定所有的屬性非常耗時，我們同樣需要通過設定SFGAO_XXX?標識來限定感興趣的信息。

IEnumIDList接口

??? 當資源管理器需要枚舉文件夾包含的外殼對象時，它會調用IShellFolder. EnumObjects方法，文件夾對象必須創建一個枚舉對象來暴露IEnumIDList?接口并返回接口指針。

????IEnumIDList?是一個標準的OLE枚舉接口，很容易實現，但要注意的是返回的PIDL必須是相對于文件夾的，并且只包含一個SHITEMID?結構和終止符。

實現其他任選的接口

??? 除了上面那些基本的接口外，還可以實現相當多的任選的外殼接口，比如such as?IExtractIcon接口可以用來定制視圖的圖標，還比如IDataObject接口可以用來支持拖放特性。

??? 上面這些接口不是由文件夾對象直接暴露出來的，而是資源管理器通過調用下面兩個IShellFolder方法來請求的：

??? 資源管理器調用文件夾對象的IShellFolder.GetUIObjectOf?方法來請求文件夾包含的對象的接口。

??? 資源管理器通過調用文件夾對象的IShellFolder.CreateViewObject?方法來請求文件夾本身的接口。

??? 下面將討論最常用的任選接口：

??? 1. IExtractIcon接口

??? 資源管理器會在它顯示文件夾內容之前請求一個IExtractIcon?接口，這個接口允許擴展定制文件夾中包含的對象的圖標，否則標準的文件和文件夾圖標就會被使用。實現IExtractIcon 接口的具體細節參見MSDN。

??? 2. IContextMenu接口

??? 當用戶在外殼對象上點擊右鍵時，資源管理器會請求IContextMenu?接口，擴展實現IContextMenu接口的細節參見MSDN。

??? 3. IQueryInfo接口

??? 資源管理器調用IQueryInfo?接口來獲得信息飛躍提示字符串，實現細節參見MSDN。

??? 4. IDataObject 和IDropTarget 接口

??? 對于擴展來說沒有直接的方法從資源管理器中獲知用戶是否執行了刪除、復制或正在拖放一個對象。但每當有這類操作發生時，資源管理器會請求一個IDataObject?接口，要想允許對象操作，就要創建一個數據對象并返回它的IDataObject接口指針。

??? 當用戶試圖釋放一個數據對象到擴展中的外殼對象上時，資源管理器會請求一個IDropTarget?接口，要想允許數據對象釋放，需要創建一個對象暴露IDropTarget 接口并返回接口指針。具體實現可參考前面關于基于COM的拖放技術的討論。

??? 命名空間擴展兩個主要的組成部分是文件夾對象和視圖COM對象，其中文件夾對象至少要實現IUnknown、IShellExtInit、IShellFolder 及IPersistFolder 接口。而視圖對象至少要實現IUnknown、IShellExtInit 和 IShellView接口。在文件夾對象創建后，外殼會通過IPersistFolder接口通知它在命名空間中的位置，也就是它的Item Identifier List。

文件夾對象同其下的子外殼對象交互

??? 我們將命名空間擴展添加到系統中后，用戶就可以控制擴展中顯示的內容。或者展開左側面板中的文件夾，或者點中文件夾，資源管理器會在右側顯示面板中顯示其包含的子對象。

??? 當用戶點中文件夾對象的”+”字號后直接雙擊文件夾對象時，資源管理器標準的行為是顯示被選定的文件夾的子目錄。這是通過調用文件夾對象的IShellFolder接口的EnumObjects 方法來實現的。當用戶單擊文件夾時，資源管理器會顯示文件夾包含的對象的視圖，擴展在顯示視圖前必須做兩件事情：

??? 創建文件夾對象，并調用對象的IShellFolder接口的BindToObject方法進行綁定。

??? 創建視圖對象，一旦資源管理器創建完文件夾對象后，它就會調用對象的IShellFolder接口的CreateViewObject 方法。

文件夾對象同視圖的交互

圖2.5

??? 一旦視圖對象被創建，必須確定創建的視圖類型。一種是顯示文件夾中外殼對象項目的彈出式窗口。這類視圖，可以通過文件夾右鍵菜單的打開命令調出，如圖2.5所示。

??? 另一種是當用戶雙擊左側面板的文件夾后，內容缺省時會顯示在右側面板中。文件夾對象創建視圖窗口是通過調用視圖對象的IshellView接口的CreateViewWindow 方法來實現的。視圖對象必須實現CreateViewWindow方法來確定創建哪類視圖。

??? 還要注意的關鍵一點是對應于一個文件夾對象，系統中可以同時存在多個視圖對象，可以打開任意多個資源管理器和視圖窗口。因此，視圖和文件夾對象必須實現為相互獨立的COM對象。至于同步不同視圖窗口的顯示內容則由資源管理器負責處理。

??? 接下來，就具體研究一下如何實現擴展，我們將建立一個非常簡單的擴展，它的唯一功能就是在視圖中顯示各類文件的內容。下面是例子項目中各個單元的說明：

??? ShellFolder.pas: 實現了文件夾對象。

??? ShellView.pas: 實現了視圖對象。

??? ViewForm.pas: 實現了顯示在右側面板中的窗體。

??? 下面是文件夾COM對象的具體實現代碼：

??? 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;

??? // 當IpersistFolder.Initialize方法調用完后，外殼就會調用這個方法，我們必須構建一個新的窗口來顯示視圖對象

??? 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接口的大部分方法都沒有實現，只是給出了像下面這樣一個空的實現：

??? function TShellFolderImpl.BindToStorage(pidl: PItemIDList;

??? ??pbcReserved: Pointer; const riid: TIID; out ppvObj): HResult;

??? begin

??? ??MessageBox(0, 'TShellFolderImpl.BindToStorage', nil, 0);

??? ??Result := E_NOTIMPL;//沒有實現這個方法

??? end;

??? 但我們必須實現一個重要的方法，這就是CreateViewObject方法，在此方法中先要創建視圖對象的一個實例，然后返回被資源管理器請求的接口。過程非常簡單，只用下面５行代碼就可以實現：

????? If IsEqualGUID(riid, IShellView) then

????? begin

??? ????ShellView := TShellViewImpl.Create;//創建視圖對象實例返回被請求的接口

??? ????Result := (ShellView as IUnknown).QueryInterface(riid, ppvOut)、、

?? ???End

??? 除此以外還可以通過使用類工廠來實現同上面代碼完全一樣的功能。代碼實現如下：

??? // 獲得類工廠

??? 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.

??? 接下來是視圖對象的實現代碼：

??? 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 := '激活視圖，沒有焦點';

??? ????SVUIA_ACTIVATE_FOCUS:

??? ??????S := '激活視圖有焦點';

??? ????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被創建，這個函數就會被調用來創建真正的視圖窗口

??? 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.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.

??? 同文件夾的實現類似，這里只實現了IShellView接口的CreateViewWindow 方法，這個方法很簡單，唯一要說的是在方法中用下面的代碼將窗體設定為資源管理器的子窗體，這樣資源管理器可以刷新和重定義窗體的大小。

??? Wnd := FForm.Handle;

? ??SetParent(Wnd, FHWndParent);

??? 我們的窗體的功能主要是在剛開始啟動時顯示系統日志，并且可以在richEdit中顯示任意其他文件的內容，實現代碼如下，重要的部分都添加了注釋：

??? constructor TView.Create(AOwner: TComponent);

??? begin

??? ??ShowMessage('應該使用CreateSHView來創建視圖對象');

??? ??Abort;??????????????????????????????????? // 安靜的異常

??? end;

?? ?(對于窗體來說它必須是一個子窗體)

??? constructor TView.CreateSHView(AOwner: TComponent; SHBrowser: IShellBrowser; SHView: IShellView);

??? begin

??? ??FSHBrowser := nil;

??? ??FShellView := nil;

??? ??inherited Create(AOwner);

??? ??FSHBrowser := SHBrowser;

??? ??FShellView := SHView;

????? //增加引用記數

??? ??FSHBrowser._AddRef;

??? ??FShellView._AddRef;

??? ??SetWindowLong(Handle, GWL_STYLE, WS_CHILD);// 必須是子窗體

??? end;

??? destructor TView.Destroy;

??? begin

??? ??try

??? ????if Assigned(FSHBrowser) then

??? ??????FSHBrowser._Release;????????????????? // 減少引用記數

??? ????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;

?? ?(我們必須在窗體獲得焦點時調用OnViewWindowActive 回調函數

??? 以便外殼調用UIActivate接口回調)

??? procedure TView.FormActivate(Sender: TObject);

??? begin

??? ??FSHBrowser.OnViewWindowActive(FShellView);

??? ??RichEdit1.SetFocus;?

??? end;

?? ?(加載系統日志文本)

??? 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.

??? 最后就是注冊創建好的擴展了，下面是其實現代碼，這里給出了代碼的注釋，具體過程的意義參見前面的敘述：

??? 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 := '';??????????? ?????????????????{對于命名空間擴展來說不需要Progid}

??? end;

??? procedure TNamespaceExtensionFactory.UpdateRegistry(Register: Boolean);

??? const

??? ??// 設定我們的擴展位于我的電腦下面

??? ??NamespaceKey='SOFTWARE\Microsoft\Windows\CurrentVersion\

Explorer\MyComputer\Namespace\';

??? ??//? 在NT上需要設定的注冊表項

????? 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);

??? ????// 本擴展所屬節點為‘我的電腦'

??? ????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的缺省圖標

??? ????CreateRegKey('CLSID\' + ClsId + '\DefaultIcon', '', Temp + ',0');

??? ??end

??? ??else begin

??? ????// 刪除節點

??? ????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.

??? 擴展的運行如圖2.6所示。

結論

??? 命名空間擴展是所有外殼擴展中最復雜的一種，因為它的實現涉及的接口非常多，同時各個接口之間的交互關系也非常復雜，微軟提供了兩個C++版本的例子，RegView和CabView，可以供讀者參考。