Shell扩展:定制上下文菜单

副标题#e#

如若需要获取某个选定文件的完整路径,小弟常常机器性地先复制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; }

#p#副标题#e#

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;
}

#p#副标题#e#

GetCommandString要领:在此处用不到,简朴地返回E_NOTIMPL即可.

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

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

#p#分页标题#e#

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

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

一切都已完成。但愿各人愉快.

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

关键字：