Shell扩展:定制上下文菜单

如若需要获取某个选定文件的完整路径,小弟经常机械性地先复制Shell窗口中的路径,紧接着复制文件名并拼在路径之后.有时候复制文件路径是为了程序使用，这就必须将路径中的所有"\"换成"\\",总之一切都是很无聊的操作.还好我是个程序员,完全可以定制一些程序来方便自己.在此分享给大家.

程序实现的功能很明确:在Shell的上下文菜单中加入一菜单项目"获取文件路径并保存到剪贴板",点击此项可以将选中的一个或多个文件的完整路径保存到剪贴板中.多个文件路径之间以换行"\r\n"间隔.若需要获取的路径是程序格式("\"换成"\\"),则可在Ctrl键按下的状态下单击该菜单项.

实现：定制Shell的菜单项,需实现IContextMenu接口,同时也需要实现IShellExtInit接口来完成初始化的工作.

      首先定义一些需要使用的宏:

// 菜单ID
#define   ID_COPY_PATH  0

// 用于剪贴板格式
#ifdef _UNICODE
#define  CF_TEXT_FORMAT        CF_UNICODETEXT
#else
#define  CF_TEXT_FORMAT        CF_TEXT
#endif

      定义一数组保存选中的文件(夹)列表,定义如下:

CAtlArray < CString >   m_arrFilePath;

      IShellExtInit接口就一个Initialize方法,在这里用于显示上下文菜单之前的初始化工作.我在实现中将当前选中的文件(夹)列表保存到m_arrFilePath数组,代码如下:

HRESULT STDMETHODCALLTYPE Initialize( LPCITEMIDLIST pidlFolder, IDataObject  * pdtobj, HKEY hkeyProgID)
{
    m_arrFilePath.RemoveAll();

     // 文件列表
     if ( pdtobj  !=  NULL ) 
    {
        STGMEDIUM medium  =  {  0  };
        FORMATETC fe  =  { CF_HDROP, NULL, DVASPECT_CONTENT,  - 1 , TYMED_HGLOBAL };
         if ( SUCCEEDED( pdtobj -> GetData( & fe,  & medium) ) ) 
        {
            HDROP hDrop  =  (HDROP) ::GlobalLock(medium.hGlobal);
            UINT uCount  =  ::DragQueryFile( hDrop, (UINT)  - 1 , NULL,  0  );
             for ( UINT uIndex  =   0 ; uIndex  <  uCount; uIndex ++  ) 
            {
                TCHAR szFileName[MAX_PATH]  =  {  0  };
                ::DragQueryFile(hDrop, uIndex, szFileName, ( sizeof (szFileName)  /   sizeof (TCHAR))  -   1 );
                
                 // szFileName为文件(夹)名
                m_arrFilePath.Add( szFileName );
            }
            ::GlobalUnlock(medium.hGlobal);
            ::ReleaseStgMedium( & medium);
        }
    }    
     return  S_OK;
}

IContextMenu接口则是实现上下文菜单的主体,其有三个成员方法要实现：

QueryContextMenu方法:可以用来添加自己的菜单项，实现如下: 

HRESULT STDMETHODCALLTYPE QueryContextMenu( HMENU hmenu, UINT indexMenu,    UINT idCmdFirst, UINT idCmdLast,    UINT uFlags)
{
    CString strMenuText;
    strMenuText.Format( _T( " 获取文件路径并保存到剪贴板 " ) );
    ::InsertMenu(hmenu, indexMenu ++ , MF_STRING  |  MF_BYPOSITION,    idCmdFirst  +  ID_COPY_PATH, strMenuText);
     return  ResultFromScode(MAKE_SCODE(SEVERITY_SUCCESS, FACILITY_NULL, (USHORT)(ID_COPY_PATH  +   1 )));
}

InvokeCommand方法:用来处理菜单项的命令:

HRESULT STDMETHODCALLTYPE InvokeCommand( LPCMINVOKECOMMANDINFO lpici )
{
     // Ctrl键按下时拷贝的路径的"\"用"\\"代替,这样可以直接应用在代码中
    BOOL  bCtrlPress  =  ( ( ::GetKeyState( VK_CONTROL )  &   0x8000  )  !=   0  );

     if ( LOWORD( lpici -> lpVerb )  ==  ID_COPY_PATH )
    {     // 如果是拷贝文件路径菜单项
        CString  strClipboard(_T( "" ));
         for  (  int  nIndex  =   0 ; nIndex  <   ( int )m_arrFilePath.GetCount(); nIndex ++  )
        {     // 遍历选中的文件(夹)列表
            CString  strItem  =  m_arrFilePath.GetAt( nIndex );
             if ( bCtrlPress )
            {
                 // 获取路径的代码格式
                strItem.Replace( _T( " \\ " ), _T( " \\\\ " ) );
            }
             // 添加到总串并以换行结束
            strClipboard.Append( strItem );
            strClipboard.Append( _T( " \r\n " ) );
        }

         // 拷贝进剪贴板
         if ( ::OpenClipboard( NULL ) )
        {
            ::EmptyClipboard();
            HGLOBAL hGlobal  =  GlobalAlloc( GPTR, ( strClipboard.GetLength()  +   1  )  *   sizeof ( TCHAR ) );
            LPTSTR lpszText  =  (LPTSTR)::GlobalLock( hGlobal );
             if ( lpszText  !=  NULL )
            {
                _tcscpy_s( lpszText, strClipboard.GetLength()  +   1 , strClipboard );
            }
            ::SetClipboardData( CF_TEXT_FORMAT, hGlobal);
            ::GlobalUnlock( hGlobal );
            ::CloseClipboard();
        }
    }
     return  S_OK;
}

GetCommandString方法:在此处用不到,简单地返回E_NOTIMPL即可.

程序实现已完结,最后一步就是注册,需要在注册表的HKEY_CLASSES_ROOT\*\ShellEx\ContextMenuHandlers\键一自己的键,并把键值设为刚刚编写的COM的CLSID.

由于是用ATL实现，我只需在RGS文件的HKCR键下加上如下脚本:

    NoRemove  *
    {
        NoRemove ShellEx
        {
            NoRemove ContextMenuHandlers
            {
                ForceRemove  ' GetFilePath '   =   s  ' {AAD8C1A8-017E-44B3-8271-DFBA4CD8E75C} '
            }
        }
    }

AAD8C1A8-017E-44B3-8271-DFBA4CD8E75C是我的CLSID.

 

一切都已完成。希望大家愉快.

PS: 我不知道博客园能不能上传附件，如果有需要源码的朋友可以留下Email。