实际上只要实现一个被拖放的文件类的拖放扩展就可以很简单地做到了。当一个文件类型注册了一个拖放扩展后，任何时候一个外壳对象被拖放到文件类型的一个成员上时，外壳管理器都会自动调用扩展的IDropTarget的相应方法。
注册扩展
拖放扩展注册只需要在子键HKEY_CLASSES_ROOT\ProgID\Shellex\ DropHandler 下创建一个 DropHandler子键，然后设定键值为扩展的类标示符（CLSID GUID）的字符串形式即可。示例如下：
...
MyProgram.1=MyProgram Application
Shellex
DropHandler
MyCommand={00000000-1111-2222-3333-444444444444}
实现扩展
同前面讲的类似，我们需要实现一个支持IPersistFile 和 IDropTarget接口的COM对象。
正如在前面讲的，外壳通过IPersistFile接口传递给扩展被拖放的文件名。在扩展初始化后，外壳会调用拖放扩展的IDropTarget的合适方 法。接下来的IPersistFile接口的实现同前面飞跃提示的相同接口的实现几乎完全一样，都是通过这个接口获得要操作的文件名，并将其保存。而 IDropTarget接口的实现在前面的基于COM的拖放技术部分已经进行了详细的介绍，这里就不再赘述了，需要说明的一点是，在Winzip拖放过程 中，拖放的目标（Target）是ZIP文件。
下面是一个拖放扩展的例子，它唯一的功能就是把所有拖放的文件名写到一个文本文件中，下面是它实现的全部源代码，重要的部分都添加了注释：
unit ContextM;
interface
uses
Windows, ActiveX, ComObj, ShlObj;
type
TDropHandler = class(TComObject, IShellExtInit, IUnknown, IPersistFile, IDropTarget)
private
FFileName: array[0..MAX_PATH] of Char;
Nfiles: integer;
FFiles: array[0..max_PATH] of PChar;
dest: string;
protected
{ IShellExtInit }
function IShellExtInit.Initialize = SEIInitialize; // Avoid compiler warning
function SEIInitialize(pidlFolder: PItemIDList; lpdobj: IDataObject;
hKeyProgID: HKEY): HResult; stdcall;
{ IPersistFile }
function IsDirty: HResult; stdcall;
function Load(pszFileName: POleStr; dwMode: Longint): HResult; stdcall;
function Save(pszFileName: POleStr; fRemember: BOOL): HResult; stdcall;
function SaveCompleted(pszFileName: POleStr): HResult; stdcall;
function GetCurFile(out pszFileName: POleStr): HResult; stdcall;
function GetClassID(out classID: TCLSID): HResult; stdcall;
{ IDropTarget }
function DragEnter(const dataObj: IDataObject; grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HResult; stdcall;
function DragOver(grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HResult; stdcall;
function DragLeave: HResult; stdcall;
function Drop(const dataObj: IDataObject; grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HResult; stdcall;
end;
const
Class_DropHandler: TGUID = '{574AF620-AC3D-11D4-86B6-92AD195EF923}';
implementation
uses ComServ, SysUtils, ShellApi, Registry;
function TDropHandler.SEIInitialize(pidlFolder: PItemIDList; lpdobj: IDataObject;
hKeyProgID: HKEY): HResult;
var
StgMedium: TStgMedium;
FormatEtc: TFormatEtc;
begin
if (lpdobj = nil) then
begin
Result := E_INVALIDARG;
Exit;
end;
with FormatEtc do
begin
cfFormat := CF_HDROP;
ptd := nil;
dwAspect := DVASPECT_CONTENT;
lindex := -1;
tymed := TYMED_HGLOBAL;
end;
// Render the data referenced by the IDataObject pointer to an HGLOBAL
// storage medium in CF_HDROP format.
Result := lpdobj.GetData(FormatEtc, StgMedium);
if Failed(Result) then Exit;
Result := NOERROR;
ReleaseStgMedium(StgMedium);
end;
function TDropHandler.IsDirty: HResult;
begin
Result := E_NOTIMPL;
end;
function TDropHandler.Load(pszFileName: POleStr; dwMode: Integer): HResult;
begin
// 获得被拖放的文件的完全路径名，并将其保存在变量中
DestFile:=WideCharToString(pszFileName);
Result := S_OK;
end;
function TDropHandler.Save(pszFileName: POleStr; fRemember: BOOL): HResult;
begin
Result := E_NOTIMPL;
end;
function TDropHandler.SaveCompleted(pszFileName: POleStr): HResult;
begin
Result := E_NOTIMPL;
end;
function TDropHandler.DragEnter(const dataObj: IDataObject; grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HResult; stdcall;
var
StgMedium: TStgMedium;
FormatEtc: TFormatEtc;
hr: HRESULT;
begin
with FormatEtc do
begin
cfFormat := CF_HDROP;
ptd := nil;
dwAspect := DVASPECT_CONTENT;
lindex := -1;
tymed := TYMED_HGLOBAL;
end;
hr := dataobj.QueryGetData(formatetc);
if Failed(hr) then
begin
// 如果无法获得数据，就返回一个无效的拖放效果
dwEffect:=DROPEFFECT_NONE;
Result := E_FAIL;
Exit;
end
else
begin
// 如果一切OK，就需要返回一个复制操作效果
dwEffect:=DROPEFFECT_COPY;
Result := NOERROR;
end;
end;
function TDropHandler.DragOver(grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HResult; stdcall;
begin
dwEffect:=DROPEFFECT_COPY;
Result := S_OK;
end;
function TDropHandler.DragLeave: HResult; stdcall;
begin
Result := S_OK;
end;
function TDropHandler.Drop(const dataObj: IDataObject; grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HResult; stdcall;
var
StgMedium: TStgMedium;
FormatEtc: TFormatEtc;
hr: HRESULT;
F: TextFile;
begin
// 这是整个单元中最重要的部分，文件被释放到拖放目标上
// 在这里我们的扩展将把所有被拖放的文件名写到一个文本文件中
if (dataobj = nil) then
begin
Result := E_INVALIDARG;
Exit;
end;
with FormatEtc do
begin
cfFormat := CF_HDROP;
ptd := nil;
dwAspect := DVASPECT_CONTENT;
lindex := -1;
tymed := TYMED_HGLOBAL;
end;
//利用IDataObject获得数据
hr := dataobj.GetData(FormatEtc, StgMedium);
if Failed(hr) then Exit;
// 将所有被拖放的文件写到指定文件中
NFiles:=DragQueryFile(StgMedium.hGlobal, $FFFFFFFF, nil, 0);
// 有多少文件被拖放？
AssignFile(F,'C:\Windows\Desktop\DroppedFiles.txt');
Rewrite(f);
for i:=0 to nfiles-1 do
begin
// 读取拖放文件列表，并将文件名记录下来
DragQueryFile(StgMedium.hGlobal, i, FFileName , SizeOf(FFilename));
writeln(F, FFilename);
// 如果拖放对象是一个目录，就记录目录名
if GetFileAttributes(FFilename)=faDirectory then writeln (f,'Folder -> '+ffilename);
end;
//记录下拖放的目标文件名
writeln(f,'Drop Target -> '+DestFile);
CloseFile(f);
Result := NOERROR;
ReleaseStgMedium(StgMedium);
end;
function TDropHandler.GetClassID(out classID: TCLSID): HResult;
begin
Result := E_NOTIMPL;
end;
function TDropHandler.GetCurFile(out pszFileName: POleStr): HResult;
begin
Result := E_NOTIMPL;
end;
type
TDropHandlerFactory = class(TComObjectFactory)
public
procedure UpdateRegistry(Register: Boolean); override;
end;
procedure TDropHandlerFactory.UpdateRegistry(Register: Boolean);
var
ClassID: string;
begin
if Register then begin
inherited UpdateRegistry(Register);
ClassID := GUIDToString(Class_DropHandler);
// 这里我们设定.Dpr文件为我们要处理的文件类
CreateRegKey('DelphiProject\shellex', '', '');
CreateRegKey('DelphiProject\shellex\DropHandler', '', ClassID);
if (Win32Platform = VER_PLATFORM_WIN32_NT) then
with TRegistry.Create do
try
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Shell Extensions', True);
OpenKey('Approved', True);
WriteString(ClassID, 'Delphi 4.0 Drop Handler Shell Extension Example');
finally
Free;
end;
end
else begin
DeleteRegKey('DelphiPorject\shellex\DropHandler');
DeleteRegKey('DelphiProject\shellex');
inherited UpdateRegistry(Register);
end;
end;
initialization
TDropHandlerFactory.Create(ComServer, TDropHandler, Class_DropHandler,
'', 'Delphi 4.0 Drop Handler Shell Extension Example', ciMultiInstance,
tmApartment);
end.
最后，编译好DLL后，用命令行 regsvr32 c:\windows\desktop\ drophandle.dll注册扩展。然后，拖放程序试验一下，就会发现生成了我们预想中的文件。
}
