关于关联文件和文件夹右键的选项功能? ( 积分: 50 )

安装瑞星2007版之后,右键任意文件或文件夹都会在下面多出"粉碎文件"这个功能,请问它是如何实现关联这些文件和文件夹的呢?

var
registerTemp : TRegistry;
begin
registerTemp := TRegistry.Create;
///////////////////
registerTemp.RootKey:=HKEY_CLASSES_ROOT;
if registerTemp.OpenKey('/Directory/shell/王者更名器/command',True) then
registerTemp.WriteString('',application.ExeName+' %1');
/////////////////////
registerTemp.RootKey:=HKEY_CLASSES_ROOT;
if registerTemp.OpenKey('/*/shell/王者更名器/command',True) then
registerTemp.WriteString('',application.ExeName+' %1');
//////////////////////////////
registerTemp.Free;
////////////////////
CreateShellLink(ParamStr(0), ExtractFilePath(ParamStr(0)),
GetSpecialFolderDir(CSIDL_DESKTOPDIRECTORY) + '/' +
ChangeFileExt(ExtractFileName(ParamStr(0)), '.lnk'));
end;

接受答案了.