Windows外壳扩展保护文件夹

利用Windows外壳扩展保护文件夹  
   
  Windows系统支持以下7类的外壳扩展功能：  
  (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在文件被拖放、拷贝或者粘贴时，就会被系统被调用。  
  本文介绍的文件夹保护功能就是通过上面的第5类，既Copy-hook handlers来实现的。一个支持Copy-hook handlers的程序除了上面提到的要在注册表的HKEY_CLASSES_ROOT/CLSID下注册之外，还需要在HKEY_CLASSES_ROOT/Directory/shellex/CopyHookHandlers/下注册服务器程序的类。  
  由于Windows外壳服务器程序是基于COM组件模型的，所以编写外壳程序就是构造一个COM对象的过程，由于Delphi4.0以上的版本支持Windows外壳扩展和COM组件模型，所以可以利用Delphi来编写外壳扩展程序。  
  利用Delphi编写Copy-hook handle需要实现ICopyHook接口。ICopyHook是一个十分简单的接口，要实现的只有CopyCallBack方法。ICopyHook的CopyCallBack方法的定义如下：  
  UINT CopyCallback(  
  HWND hwnd, file://Handle/ of the parent window for displaying UI objects  
  UINT wFunc, file://Operation/ to perform.  
  UINT wFlags, file://Flags/ that control the operation  
  LPCSTR pszSrcFile, file://Pointer/ to the source file  
  DWORD dwSrcAttribs, file://Source/ file attributes  
  LPCSTR pszDestFile, file://Pointer/ to the destination file  
  DWORD dwDestAttribs file://Destination/ file attributes  
  );  
  其中的参数hwnd是一个窗口句柄，Copy-hook handle以此为父窗口。参数wFunc指定要被执行的操作，其取值为下表中所列之一：  
  常量 取值 含义  
  FO_COPY $2 复制由pszSrcFile指定的文件到由pszDestFile指定的位置。  
  FO_DELETE $3 删除由pszSrcFile指定的文件。  
  FO_MOVE $1 移动由pszSrcFile指定的文件到由pszDestFile指定的位置。  
  FO_RENAME $4 重命名由pszSrcFile指定的文件到由pszDestFile指定的文件名。  
  PO_DELETE $13 删除pszSrcFile指定的打印机。  
  PO_PORTCHANGE $20 改变打印机端口。PszSrcFile和pszDestFile为两个以Null结尾的字符串，分别指定当前和新的打印机端口名。  
  PO_RENAME $14 重命名由pszSrcFile指定的打印机端口。  
  PO_REN_PORT $34 PO_RENAME和PO_PORTCHANGE的组合。  
   
  参数wFlags指定操作的标志；参数pszSrcFile和pszDestFile指定源文件夹和目标文件夹。参数dwSrcAttribs和dwDesAttribs指定源文件夹和目标文件夹的属性。函数返回值可以为IDYES、IDNO和IDCANCEL。分别指示Windows外壳允许操作、阻止操作，但是其他操作继续、阻止当前操作，取消为执行的操作。  
  下面是具体的程序实现：  
  首先在Delphi的菜单中选 File|New选项，选择其中的DLL图标，按Ok键建立一个DLL工程文件，在其中添加以下代码：  
  library CopyHook;  
   
  uses  
  ComServ,  
  CopyMain in 'CopyMain.pas';  
   
  exports  
  DllGetClassObject,  
  DllCanUnloadNow,  
  DllRegisterServer,  
  DllUnregisterServer;  
   
  {$R *.TLB}  
   
  {$R *.RES}  
   
  begin  
  end.  
  将文件保存为 CopyHook.dpr。再在Delphi菜单中选File|New选项，选择其中的Unit图标，按Ok键建立一个Pas文件，在其中加入以下代码：  
  unit CopyMain;  
   
  interface  
   
  uses Windows, ComObj, ShlObj;  
   
  type  
  TCopyHook = class(TComObject, ICopyHook)  
  protected  
  function CopyCallback(Wnd: HWND; wFunc, wFlags: UINT; pszSrcFile: PAnsiChar;  
  dwSrcAttribs: DWORD; pszDestFile: PAnsiChar; dwDestAttribs: DWORD): UINT; stdcall;  
  end;  
   
  TCopyHookFactory = class(TComObjectFactory)  
  protected  
  function GetProgID: string; override;  
  procedure ApproveShellExtension(Register: Boolean; const ClsID: string);  
  virtual;  
  public  
  procedure UpdateRegistry(Register: Boolean); override;  
  end;  
   
  implementation  
   
  uses ComServ, SysUtils, Registry;  
   
  { TCopyHook }  
   
  file://当/Windows外壳程序执行文件夹或者打印机端口操作时，CopyCallBack  
  file://方/法就会被调用。  
  function TCopyHook.CopyCallback(Wnd: HWND; wFunc, wFlags: UINT;  
  pszSrcFile: PAnsiChar; dwSrcAttribs: DWORD; pszDestFile: PAnsiChar;  
  dwDestAttribs: DWORD): UINT;  
  const  
  FO_COPY = 2;  
  FO_DELETE = 3;  
  FO_MOVE = 1;  
  FO_RENAME = 4;  
  var  
  sOp:string;  
  begin  
  Case wFunc of  
  FO_COPY: sOp:=format('你确定要将 %s 拷贝到 %s 吗？',[pszSrcFile,pszDestFile]);  
  FO_DELETE: sOp:=format('你确定要将 %s 删除吗？',[pszSrcFile]);  
  FO_MOVE: sOp:=format('你确定要将 %s 转移到 %s 吗？',[pszSrcFile,pszDestFile]);  
  FO_RENAME: sOp:=format('你确定要将 %s 重命名为 %s 吗？',[pszSrcFile,pszDestFile]);  
  else  
  sOp:=format('无法识别的操作代码 %d',[wFlags]);  
  end;  
  // 提示，让用户决定是否执行操作  
  Result := MessageBox(Wnd, PChar(sOp),  
  '文件挂钩演示', MB_YESNOCANCEL);  
  end;  
   
  { TCopyHookFactory }  
   
  function TCopyHookFactory.GetProgID: string;  
  begin  
  Result := '';  
  end;  
   
  procedure TCopyHookFactory.UpdateRegistry(Register: Boolean);  
  var  
  ClsID: string;  
  begin  
  ClsID := GUIDToString(ClassID);  
  inherited UpdateRegistry(Register);  
  ApproveShellExtension(Register, ClsID);  
  if Register then  
  file://将/clsid 加入到注册表的CopyHookHandlers中  
  CreateRegKey('directory/shellex/CopyHookHandlers/' + ClassName, '',  
  ClsID)  
  else  
  DeleteRegKey('directory/shellex/CopyHookHandlers/' + ClassName);  
  end;  
   
  procedure TCopyHookFactory.ApproveShellExtension(Register: Boolean;  
  const ClsID: string);  
  const  
  SApproveKey = 'SOFTWARE/Microsoft/Windows/CurrentVersion/Shell Extensions/Approved';  
  begin  
  with TRegistry.Create do  
  try  
  RootKey := HKEY_LOCAL_MACHINE;  
  if not OpenKey(SApproveKey, True) then Exit;  
  if Register then WriteString(ClsID, Description)  
  else DeleteValue(ClsID);  
  finally  
  Free;  
  end;  
  end;  
   
  const  
  CLSID_CopyHook: TGUID = '{66CD5F60-A044-11D0-A9BF-00A024E3867F}';  
  LIBID_CopyHook: TGUID = '{D2F531A0-0861-11D2-AE5C-74640BC10000}';  
   
  initialization  
  TCopyHookFactory.Create(ComServer, TCopyHook, CLSID_CopyHook,  
  'CR_CopyHook', '文件操作挂钩演示',ciMultiInstance, tmApartment);  
  end.  
  将文件保存为CopyMain.Pas文件，然后编译程序为CopyHook.Dll文件，然后注册CopyHook.Dll文件，你可以使用Windows提供的RegSvr32.exe来注册，注册的方法是在Dos窗口中进入Windows的System子目录，然后在其中输入Regsvr32 x:/xxx/xxx/copyhook.dll ，其中x:/xxx/xxx/是编译的CopyHook.dll所在的全路径名。也可以在Run菜单中选择Register ActiveX Server来注册。  
  当文件注册成功之后，在Windows的Explore中任意改变一个文件夹的名字或者移动一个目录，就会有一个提示框弹出，提示用户是否确定执行操作。如图所示：  
   
   
   
  按“是”将执行文件夹操作，按“否”或者“取消”将取消相应的文件夹操作。  
  上面介绍的只是Delphi实现Windows外壳扩展的一种，参照上面的程序和Delphi关于Windows的COM组件模型的编程，就可以编写出十分专业化的Windows外壳扩展程序