首页 > > 程序设计 > delphi >

利用COM技术实现外壳扩展的属性页

2008-04-09 04:18:06来源：互联网阅读 ()

　　当用户在资源管理器中调用右键菜单时，会显示一个"属性"菜单项，点击属性菜单项会显示一个属性页，用户可以获得甚至修改文件信息。我们可以定制属性页通过实现属性页扩展。如下图所示，本文实现了一个显示wave（波形）文件的信息如声道数等信息的属性页扩展。

　　属性页扩展通常是同某类文件相关联的来实现同之相关的操作和信息显示，另外可以同驱动器相关联，我们还可以用属性页扩展来替换控制面板程序的属性页。象其他外壳扩展程序一样，属性页扩展也是以动态连接库形式实现的进程内COM对象。它除了IUnknown接口外还要实现IShellExtInit和IShellPropSheetExt接口。

　　建立同文件关联的属性页扩展

　　首先，我们用命令File|New...，创建一个ActiveX Library，然后新建一个COM Object，实现的接口为IShellExtInit和IShellPropSheetExt。

　　同文件建立关联需要注册属性页，要在注册表中同相应文件对应的表项下添加Shellex/PropertySheetHandlers子键，每增加一个页面就需要注册一个表项，最大可以添加的页面数是24，我们可以用一个扩展实现多个页面。这里我们通过从TComObjectFactory继承类实现的UpdateRegistry实现了注册。

　　type

　　　　TCXPropSheetFactory=class(TComObjectFactory)

　　　public

　　　　procedure UpdateRegistry(Register: Boolean); override;

　　　end;

　　procedure TCXPropSheetFactory.UpdateRegistry(Register: Boolean);var

　　　　ClassID: string;

　　　　Str,KeyName : string;begin

　　　　inherited UpdateRegistry(Register);

　　if Register then

　　begin

　　　　ClassID:=GUIDToString(Class_CXPropSheet);

　　　　with TRegistry.Create do

　　　　try

　　　　RootKey:=HKEY_CLASSES_ROOT;

　　　　OpenKey(’\.wav’,TRUE);

　　　　KeyName := ReadString(’’);

　　　if Keyname = ’’ then

　　　begin

　　　　WriteString(’’,’WaveFile’);

　　　　OpenKey(’\.wav’,TRUE);

　　　　KeyName := ReadString(’’);

　　　end;

　　　　OpenKey(’\’ KeyName ’\shellex\Propert eetHandlers\Wav’,TRUE);

　　　　WriteString(’’,Classid);

　　　　finally

　　　　Free;

　　end;

　　if(Win32Platform=VER_PLATFORM_WIN32_NT)then

　　begin

　　　　with TRegistry.Create do

　　　　try

　　　　RootKey:=HKEY_LOCAL_MACHINE;

　　　　OpenKey(’SOFTWARE\Microsoft\Windows\CurrentVersion\Shell Extensions’, True);

　　　　OpenKey(’Approved’, True);

　　　　WriteString(ClassID, ’Wave File Property Sheet’);

　　　　finally

　　　　Free;

　　　　end;

　　end

　　else

　　删除注册表项....................... end;初始化扩展是通过IShellExtInit实现的，当外壳调用IShellExtInit.Initialize时，它传递一个数据对象包含来文件对应的目录的PIDL标识符。Initialize方法需要从数据对象中提取文件名，并把文件名和PIDL标识符保存起来为了以后使用。

　　function TCXPropSheet.SEIInitialize(pidlFolder: PItemIDList;

　　　　lpdobj: IDataObject; hKeyProgID: HKEY): HResult;

　　var

　　　　StgMedium: TStgMedium;

　　　　FormatEtc: TFormatEtc;

　　　　szFile: array[0..MAX_PATH 1]of Char;

　　　　filecount: integer;begin

　　　　Result:=E_FAIL;

　　if(lpdobj=nil)then

　　begin

　　　　Result:=E_INVALIDARG;

　　　　messagebox(0, ’1’, ’错误’, mb_ok);

　　　　Exit;

　　end;

　　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;

　　//如果只有一个文件被选中，获得文件名并保存。

　　filecount:=DragQueryFile(stgmedium.hGlobal, $FFFFFFFF, nil, 0);

　　if filecount=1 then

　　begin

　　　　Result:=NOERROR;

　　　　DragQueryFile(stgmedium.hGlobal, 0, szFile, SizeOf(szFile));

　　　　FFilename:=strpas(szFile);

　　end;

　　ReleaseStgMedium(StgMedium);end;添加页面的操作是通过IShellPropSheetExt接口来实现的。如果属性页是和文件相关联，外壳会调用IShellPropSheetExt.AddPages给属性页添加一个页面。如果属性页同控制面板程序相关联，外壳调用IShellPropSheetExt.ReplacePage来替换页面。

　　IShellPropSheetExt.AddPages方法有两个参数，lpfnAddPage是一个指向AddPropSheetPageProc回调函数的指针，回调函数用来提供要添加的页面信息给外壳。lParam是一个用户自定义的值，这里我们用它来返回给回调函数对象。

　　一般的IShellPropSheetExt.AddPages方法实现步骤是：

　　给PROPSHEETPAGE结构设定正确的值，特别是：

　　把扩展的对象引用记数变量付值给pcRefParent成员，这可以防止页面还在显示时，扩展对象被卸载。

　　实现PropSheetPageProc回调函数来处理页面创建和销毁的情况。

　　调用CreatePropertySheetPage函数来创建页面。

　　调用lpfnAddPage指向的函数来来添加创建好的页面。

　　function TCXPropSheet.AddPages(lpfnAddPage: TFNADDPROPSHEETPAGE;

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有