现在要在上图中添加一页,首先创建一个ATL项目,我这里用的vs2017,工程名字可以随意
创建完成后大约是这个样子,需要继续添加新建项
右键添加新建项
添加一个ATL简单对象,名称随意
默认就可以,点击完成
完成后会多出这三个文件,头文件、源文件和注册表文件
创建完成后设置Release 模式,x86或x64,根据自己电脑系统来选择,64位系统选择x64,我这个是64位系统所以选择x64
选择项目右键属性,连接器, 注册输出 选择否,因为默认情况下编译后VS会自动注册输出,如果注册时没有管理员权限的话,会提示失败。
到这里,项目配置基本就完成了,可以编译试试。
下面开始修改代码,修改头文件 ATLPropSheet.h
// ATLPropSheet.h: CATLPropSheet 的声明
#pragma once
#include "resource.h" // 主符号
#include "ATLProject1_i.h"
#include <list>
#include <string>
#if defined(_WIN32_WCE) && !defined(_CE_DCOM) && !defined(_CE_ALLOW_SINGLE_THREADED_OBJECTS_IN_MTA)
#error "Windows CE 平台(如不提供完全 DCOM 支持的 Windows Mobile 平台)上无法正确支持单线程 COM 对象。定义 _CE_ALLOW_SINGLE_THREADED_OBJECTS_IN_MTA 可强制 ATL 支持创建单线程 COM 对象实现并允许使用其单线程 COM 对象实现。rgs 文件中的线程模型已被设置为“Free”,原因是该模型是非 DCOM Windows CE 平台支持的唯一线程模型。"
#endif
using namespace ATL;
using namespace std;
// CATLPropSheet
class ATL_NO_VTABLE CATLPropSheet :
public CComObjectRootEx<CComSingleThreadModel>,
public CComCoClass<CATLPropSheet, &CLSID_ATLPropSheet>,
public IDispatchImpl<IATLPropSheet, &IID_IATLPropSheet, &LIBID_ATLProject1Lib, /*wMajor =*/ 1, /*wMinor =*/ 0>,
public IShellExtInit,
public IShellPropSheetExt
{
public:
CATLPropSheet()
{
}
DECLARE_REGISTRY_RESOURCEID(106)
BEGIN_COM_MAP(CATLPropSheet)
COM_INTERFACE_ENTRY(IATLPropSheet)
COM_INTERFACE_ENTRY(IDispatch)
COM_INTERFACE_ENTRY(IShellExtInit)
COM_INTERFACE_ENTRY(IShellPropSheetExt)
END_COM_MAP()
DECLARE_PROTECT_FINAL_CONSTRUCT()
HRESULT FinalConstruct()
{
return S_OK;
}
void FinalRelease()
{
}
public:
//IShellExtInit
STDMETHODIMP Initialize(LPCITEMIDLIST, LPDATAOBJECT, HKEY);
//IShellPropSheetExt
STDMETHODIMP AddPages(LPFNADDPROPSHEETPAGE, LPARAM);
STDMETHODIMP ReplacePage(UINT, LPFNADDPROPSHEETPAGE, LPARAM)
{
return E_NOTIMPL;
}
protected:
list<wstring> m_lsFiles;//存储文件选中的文件
};
OBJECT_ENTRY_AUTO(__uuidof(ATLPropSheet), CATLPropSheet)
添加属性页,右键 -->添加 --> 资源
添加图标资源
查看资源的ID,后面创建的时候需要使用这个ID
如果没有资源视图,点击视图-->其他窗口-->资源视图 这样就有了
修改源文件 ATLPropSheet.cpp 文件如下
// ATLPropSheet.cpp: CATLPropSheet 的实现
#include "pch.h"
#include "ATLPropSheet.h"
#include "dllmain.h"
BOOL CALLBACK PropPageDlgProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam);
UINT CALLBACK PropPageCallbackProc(HWND hwnd, UINT uMsg, LPPROPSHEETPAGE ppsp);
BOOL OnInitDialog(HWND hwnd, LPARAM lParam);
// CATLPropSheet
STDMETHODIMP CATLPropSheet::Initialize(LPCITEMIDLIST pidlFolder, LPDATAOBJECT pDataObj, HKEY hProgID)
{
TCHAR szFile[MAX_PATH];
UINT uNumFiles;
HDROP hDrop;
FORMATETC etc = { CF_HDROP, NULL, DVASPECT_CONTENT, -1, TYMED_HGLOBAL };
STGMEDIUM stg;
INITCOMMONCONTROLSEX iccex = { sizeof(INITCOMMONCONTROLSEX), ICC_DATE_CLASSES };
//Init the common controls.
InitCommonControlsEx(&iccex);
//Read the list of folders from the data object.
if (FAILED(pDataObj->GetData(&etc, &stg)))
{
return E_INVALIDARG;
}
//Get an HDROP handle.
hDrop = (HDROP)GlobalLock(stg.hGlobal);
if (NULL == hDrop)
{
ReleaseStgMedium(&stg);
return E_INVALIDARG;
}
//Determine how many file are involved in this operation.
uNumFiles = DragQueryFile(hDrop, 0XFFFFFFFF, NULL, 0);
for (UINT uFile = 0; uFile < uNumFiles; uFile++)
{
//Get the next filename.
if (0 == DragQueryFile(hDrop, uFile, szFile, MAX_PATH))
{
continue;
}
//Add the filename to string_list.
m_lsFiles.push_back(szFile);
}
//Release resource.
GlobalUnlock(stg.hGlobal);
ReleaseStgMedium(&stg);
//Checkhow many files were selected.
//If the number is greater than the maximum number of property pages, truncate list.
if (m_lsFiles.size() > MAXPROPPAGES)
{
m_lsFiles.resize(MAXPROPPAGES);
}
//If we found ang files we can work with, return S_OK.
return (m_lsFiles.size() > 0) ? S_OK : E_FAIL;
}
STDMETHODIMP CATLPropSheet::AddPages(LPFNADDPROPSHEETPAGE lpfnAddPageProc, LPARAM lParam)
{
PROPSHEETPAGE psp;
HPROPSHEETPAGE hPage;
TCHAR szPageTitle[MAX_PATH];
for (list<wstring>::iterator it = m_lsFiles.begin(); it != m_lsFiles.end(); it++)
{
//This points at the next filename.
//Allocate a new copy of the string that the page will own.
LPCTSTR szFile = _tcsdup(it->c_str());
if (NULL == szFile)
{
return E_OUTOFMEMORY;
}
//Strip the path and extension from the filename - this will be the page title.
//The name is truncated at 24 chars so it fits on the tab.
lstrcpyn(szPageTitle, szFile, MAX_PATH);//Copy path
PathStripPath(szPageTitle);//Removes the path portion of a fully qualified path and file.
PathRemoveExtension(szPageTitle);//Removes the file name extension from a path, if one is present.
szPageTitle[24] = '\0';
//Set up the PROPSHEETPAGE struct.
ZeroMemory(&psp, sizeof(PROPSHEETPAGE));
psp.dwSize = sizeof(PROPSHEETPAGE);
psp.dwFlags = PSP_USEREFPARENT | PSP_USETITLE | PSP_DEFAULT | PSP_USEICONID | PSP_USECALLBACK;
psp.hInstance = _AtlBaseModule.GetResourceInstance();
psp.lParam = (LPARAM)szFile;
psp.pszTitle = szPageTitle;
psp.pcRefParent = (UINT *)&_AtlModule.m_nLockCnt;
psp.pszTemplate = MAKEINTRESOURCE(IDD_PROPPAGE_MEDIUM); //IDD_PROPPAGE_MEDIUM是属性页ID
psp.pszIcon = MAKEINTRESOURCE(IDI_ICON1); //IDI_ICON1 是图标ID
psp.pfnDlgProc = (DLGPROC)PropPageDlgProc;
psp.pfnCallback = PropPageCallbackProc;
//Create the page and get a handle.
hPage = CreatePropertySheetPage(&psp);
if (NULL != hPage)
{
//Call the shell`s callback function,
//so it add s the page to the property sheet
if (!lpfnAddPageProc(hPage, lParam))
{
DestroyPropertySheetPage(hPage);
}
}
}
return S_OK;
}
BOOL CALLBACK PropPageDlgProc(
HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
{
BOOL bRet = FALSE;;
switch (uMsg)
{
case WM_INITDIALOG:
bRet = OnInitDialog(hwnd, lParam);
break;
default:
break;
}
return bRet;
}
UINT CALLBACK PropPageCallbackProc(
HWND hwnd, UINT uMsg, LPPROPSHEETPAGE ppsp)
{
switch (uMsg)
{
case PSPCB_RELEASE:
free((void *)ppsp->lParam);
break;
}
return TRUE;
}
BOOL OnInitDialog(HWND hwnd, LPARAM lParam)
{
PROPSHEETPAGE* ppsp = (PROPSHEETPAGE *)lParam;
LPCTSTR szFile = (LPCTSTR)ppsp->lParam;
return TRUE;
}
修改注册表文件 ATLPropSheet.rgs,在原有的基础上添加以下代码
NoRemove *
{
NoRemove shellex
{
NoRemove PropertySheetHandlers
{
{213f2166-a3fd-4b1c-8513-42de86a805aa} = s 'ATLPropSheet Class'
}
}
}
注意 添加的GUID和类名需要和源文件的相同
好了,现在已经完成,编译文件成功后,准备注册这个DLL
使用管理员的控制台进行注册,调到该目录 执行一下命令
regsvr32 ATLProject1.dll
注册成功如下图
程序虽然注册成功了,但是还没有真正被使用,需要重启资源管理器,可以手动重启下。或在控制台下输入以下重启命令。
taskkill /f /im explorer.exe & explorer
下面就是成功后的效果了
如果想卸载程序的话需要执行以下命令,并且也需要重启资源管理器。
regsvr32 /u ATLProject1.dll
taskkill /f /im explorer.exe & explorer
如果注册失败可能是一下原因
1、控制台没有使用管理员模式运行
2、修改 .rgs 文件的时候编码不正确,需要使用Force UTF-8(No BOM) (我是直接都禁用了)
以下所讲与提供下载的源码不同,但都是一个模子出来的。