利用DELPHI編寫WINDOWS外殼
對於操作系統原理比較了解的朋友都會知道，一個完備的操作系統都會提供一個外殼（Shell），以方便普通用戶使用操作系統提供的各種功能。Windows（在這裡指的是Windows 95Windows NT4.0以上版本的操作系統）的外殼不但提供了方便美觀的GUI圖形界面，而且還提供了強大的外殼擴展功能，大家可能在很多軟件中看到這些外殼擴展了。例如:如果你的系統中安裝了Winzip的話，當你在Windows Explore中鼠標右鍵點擊文件夾或者文件時，彈出菜單中就會出現Winzip的壓縮菜單。
Windows支持七種類型的外殼擴展（稱為Handler），它們相應的作用簡述如下：
(1)Context menu handlers:向特定類型的文件對象增添上下文相關菜單；
(2)Drag－and－drop handlers:用來支持當用戶對某種類型的文件對象進行拖放操作時的OLE數據傳輸；
(3)Icon handlers:用來向某個文件對象提供一個特有的圖標，也可以給某一類文件對象指定圖標；
(4)Property sheet handlers:給文件對象增添屬性頁（就是右鍵點擊文件對象或文件夾對象後，在彈出菜單中選屬性項後出現的對話框），屬性頁可以為同一類文件對象所共有，也可以給一個文件對象指定特有的屬性頁；
(5)Copy－hook handlers:在文件夾對象或者打印機對象被拷貝、移動、刪除和重命名時，就會被系統調用，通過為Windows增加Copy－hook handlers，可以允許或者禁止其中的某些操作；
(6)Drop target handlers:在一個對象被拖放到另一個對象上時，就會被系統被調用；
(7)Data object handlers:在文件被拖放、拷貝或者粘貼時，就會被系統被調用。
Windows的所有外殼擴展都是基於COM(Component Object Model) 組件模型的，外殼是通過接口(Interface)來訪問對象的。外殼擴展被設計成32位的進程中服務器程序，並且都是以動態鏈接庫的形式為操作系統提供服務的。因此，如果要對Windows的用戶界面進行擴充的話，則具備寫COM對象的一些知識是十分必要的。
寫好外殼擴展程序後，必須將它們注冊才能生效。所有的外殼擴展都必須在Windows注冊表的HKEY_CLASSES_ROOTCLSID鍵之下進行注冊。在該鍵下面可以找到許多名字像{0000002F－0000－0000－C000－000000000046}的鍵，這類鍵就是全局唯一類標識符(Guid)。每一個外殼擴展都必須有一個全局唯一類標識符，Windows正是通過此唯一類標識符來找到外殼擴展處理程序的。在類標識符之下的InProcServer32子鍵下記錄著外殼擴展動態鏈接庫在系統中的位置。與某種文件類型關聯的外殼擴展注冊在相應類型的shellex主鍵下。如果所處的Windows操作系統為Windows NT，則外殼擴展還必須在注冊表中的HKEY－LOCAL－MACHINESoftwareMicrosoftWindowsCurrentVersionShellExtensionsApproved主鍵下登記。
編譯完外殼擴展的DLL程序後就可以用Windows本身提供的regsvr32.exe來注冊該DLL服務器程序了。如果使用Delphi，也可以在Run菜單中選擇Register ActiveX Server來注冊。
下面首先介紹一個比較常用的外殼擴展應用：上下文相關菜單，在Windows中，用鼠標右鍵單擊文件或者文件夾時彈出的那個菜單便稱為上下文相關菜單。要動態地在上下文相關菜單中增添菜單項，可以通過寫Context Menu Handler來實現。比如大家所熟悉的WinZip和UltraEdit等軟件都是通過編寫Context Menu Handler來動態地向菜單中增添菜單項的。本文要實現的Context Menu Handler將在任意類型文件對象的上下文相關菜單中添加一個文件操作菜單項，當點擊該項後，接口程序就會彈出一個文件操作窗口，執行文件拷貝、移動等操作。
編寫Context Menu Handler必須實現IShellExtInit、IContextMenu和TComObjectFactory三個接口。IShellExtInit實現接口的初始化，IContextMenu接口對象實現上下文相關菜單，IComObjectFactory接口實現對象的創建。
下面是具體的程序實現。首先在Delphi中點擊菜單的File|New項，在New Item窗口中選擇DLL建立一個DLL工程文件。然後點擊菜單的File|New項，在New Item窗口中選擇Unit建立一個Unit文件，點擊點擊菜單的File|New項，在New Item窗口中選擇Form建立一個新的窗口。將將工程文件保存為Contextmenu.dpr，將Unit1保存為Contextmenuhandle.pas，將Form保存為OpWindow.pas。
Contextmenu.dpr的程序清單如下：
library contextmenu;
uses
ComServ,
contextmenuhandle in contextmenuhandle.pas,
opwindow in opwindow.pas {Form2};
exports
DllGetClassObject,
DllCanUnloadNow,
DllRegisterServer,
DllUnregisterServer;
{＄R ＊.TLB}
{＄R ＊.RES}
begin
end.
Contextmenuhandle的程序清單如下：
unit ContextMenuHandle;
interface
uses Windows,ActiveX,ComObj,ShlObj,Classes;
type
TContextMenu = class(TComObject,IShellExtInit,IContextMenu)
private
FFileName: array[0..MAX_PATH] of Char;
protected
function IShellExtInit.Initialize = SEIInitialize; // Avoid compiler warning
function SEIInitialize(pidlFolder: PItemIDList; lpdobj: IDataObject;
hKeyProgID: HKEY): HResult; stdcall;
function QueryContextMenu(Menu: HMENU; indexMenu, idCmdFirst, idCmdLast,
uFlags: UINT): HResult; stdcall;
function InvokeCommand(var lpici: TCMInvokeCommandInfo): HResult; stdcall;
function GetCommandString(idCmd, uType: UINT; pwReserved: PUINT;
pszName: LPSTR; cchMax: UINT): HResult; stdcall;
end;
const
Class_ContextMenu: TGUID = {19741013－C829－11D1－8233－0020AF3E97A0};
{全局唯一標識符(GUID)是一個16字節（128為）的值，它唯一地標識一個接口(interface)}
var
FileList:TStringList;
implementation
uses ComServ, SysUtils, ShellApi, Registry,UnitForm;
function TContextMenu.SEIInitialize(pidlFolder: PItemIDList; lpdobj: IDataObject;
hKeyProgID: HKEY): HResult;
var
StgMedium: TStgMedium;
FormatEtc: TFormatEtc;
FileNumber,i:Integer;
begin
//如果lpdobj等於Nil，則本調用失敗
if (lpdobj = nil) then begin
Result := E_INVALIDARG;
Exit;
end;
//首先初始化並清空FileList以添加文件
FileList:=TStringList.Create;
FileList.Clear;
//初始化剪貼版格式文件
with FormatEtc do begin
cfFormat := CF_HDROP;
ptd := nil;
dwAspect := DVASPECT_CONTENT;
lindex := －1;
tymed := TYMED_HGLOBAL;
end;
Result := lpdobj.GetData(FormatEtc, StgMedium);
if Failed(Result) then Exit;
//首先查詢用戶選中的文件的個數
FileNumber := DragQueryFile(StgMedium.hGlobal,＄FFFFFFFF,nil,0);
//循環讀取，將所有用戶選中的文件保存到FileList中
for i:=0 to FileNumber－1 do begin
DragQueryFile(StgMedium.hGlobal, i, FFileName, SizeOf(FFileName));
FileList.Add(FFileName);
Result := NOERROR;
end;
ReleaseStgMedium(StgMedium);
end;
function TContextMenu.QueryContextMenu(Menu: HMENU; indexMenu, idCmdFirst,
idCmdLast, uFlags: UINT): HResult;
begin
Result := 0;
if ((uFlags and ＄0000000F) = CMF－NORMAL) or
((uFlags and CMF_EXPLORE) <> 0) then begin
// 往Context Menu中加入一個菜單項 ,菜單項的標題為察看位圖文件
InsertMenu(Menu, indexMenu, MF_STRING or MF_BYPOSITION, idCmdFirst,
PChar(文件操作));
// 返回增加菜單項的個數
Result := 1;
end;
end;
function TContextMenu.InvokeCommand(var lpici: TCMInvokeCommandInfo): HResult;
var
frmOP:TForm1;
begin
// 首先確定該過程是被系統而不是被一個程序所調用
if (HiWord(Integer(lpici.lpVerb)) <> 0) then
begin
Result := E_FAIL;
Exit;
end;
// 確定傳遞的參數的有效性
if (LoWord(lpici.lpVerb) <> 0) then begin
Result := E_INVALIDARG;
Exit;
end;
//建立文件操作窗口
frmOP:=TForm1.Create(nil);
//將所有的文件列表添加到文件操作窗口的列表中
frmOP.ListBox1.Items := FileList;
Result := NOERROR;
end;
function TContextMenu.GetCommandString(idCmd, uType: UINT; pwReserved: PUINT;
pszName: LPSTR; cchMax: UINT): HRESULT;
begin
if (idCmd = 0) then begin
if (uType = GCS_HELPTEXT) then
{返回該菜單項的幫助信息，此幫助信息將在用戶把鼠標
移動到該菜單項時出現在狀態條上。}
StrCopy(pszName, PChar(點擊該菜單項將執行文件操作));
Result := NOERROR;
end
else
Result := E_INVALIDARG;
end;
type
TContext Menu Factory =class(TCom Object Factory)
public
procedure UpdateRegistry(Register: Boolean);
