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。