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