如何缩略图截图 - 精易论坛

窗口程序集名	保留	保留	备注
后台截图程序集
变量名	类型	数组	备注
hWnd	整数型 ' 目标窗口句柄
hThumb	整数型 ' DWM 缩略图句柄
pThumbProps	DWM_THUMBNAIL_PROPERTIES ' 缩略图属性

子程序名	返回值类型	公开	备注
_启动子程序	整数型

变量名	类型	静态	数组	备注
截图结果	逻辑型

' 1. 获取目标窗口句柄（这里以记事本为例，请替换成你的目标窗口）
hWnd ＝取窗口句柄 (“Notepad”, “无标题 - 记事本”)

如果 (hWnd ＝ 0)

信息框 (“未找到目标窗口！”, 0, , )

返回 (0)

' 2. 初始化 GDI+

Gdip初始化 ()

' 3. 注册 DWM 缩略图

如果 (DwmRegisterThumbnail (hWnd, 取桌面窗口句柄 (), hThumb) ≠ 0)

信息框 (“DwmRegisterThumbnail 失败！”, 0, , )

返回 (0)

' 4. 设置缩略图属性（调整大小、位置等）

pThumbProps.dwFlags := #DWM_TNP_RECTDESTINATION | #DWM_TNP_VISIBLE | #DWM_TNP_OPACITY

pThumbProps.opacity := 255 ' 不透明

pThumbProps.fVisible := 真 ' 可见

pThumbProps.rcDestination.左边 := 0

pThumbProps.rcDestination.顶边 := 0

pThumbProps.rcDestination.右边 := 800 ' 缩略图宽度

pThumbProps.rcDestination.底边 := 600 ' 缩略图高度

' 5. 更新缩略图

DwmUpdateThumbnailProperties (hThumb, pThumbProps)

' 6. 截图并保存

截图结果＝截图缩略图并保存 (“C:\thumb.png”)

如果 (截图结果)

信息框 (“截图成功！保存到 C:\thumb.png”, 0, , )

信息框 (“截图失败！”, 0, , )

' 7. 释放缩略图

DwmUnregisterThumbnail (hThumb)

' 8. 关闭 GDI+

Gdip关闭 ()
返回 (0)

子程序名	返回值类型	公开	备注
截图缩略图并保存	逻辑型
参数名	类型	参考	可空	数组	备注
保存路径	文本型

变量名	类型	静态	数组	备注
hdcScreen	整数型
hdcMem	整数型
hBitmap	整数型
oldBmp	整数型
rect	RECT
width	整数型
height	整数型
pBitmap	整数型
pGraphics	整数型

' 1. 获取窗口尺寸
取窗口矩形 (hWnd, rect)
width := rect.右边 - rect.左边
height := rect.底边 - rect.顶边

' 2. 创建内存 DC 和位图
hdcScreen ＝取设备场景 (0)
hdcMem ＝创建兼容设备场景 (hdcScreen)
hBitmap ＝创建兼容位图 (hdcScreen, width, height)
oldBmp ＝选择对象 (hdcMem, hBitmap)

' 3. 从缩略图复制到内存位图
BitBlt (hdcMem, 0, 0, width, height, hdcScreen, 0, 0, #SRCCOPY )

' 4. 使用 GDI+ 保存为 PNG
GdipCreateBitmapFromHBITMAP (hBitmap, 0, pBitmap)
GdipCreateFromHDC (hdcMem, pGraphics)
GdipSaveImageToFile (pBitmap, 保存路径, “image/png”, 0)

' 5. 清理资源
GdipDisposeImage (pBitmap)
GdipDeleteGraphics (pGraphics)
删除对象 (hBitmap)
删除设备场景 (hdcMem)
删除设备场景 (hdcScreen)

返回 (真)

数据类型名	公开	备注
DWM_THUMBNAIL_PROPERTIES
成员名	类型	传址	数组	备注
dwFlags	整数型
rcDestination	RECT
rcSource	RECT
opacity	字节型
fVisible	逻辑型
fSourceClientAreaOnly	逻辑型

数据类型名	公开	备注
RECT
成员名	类型	传址	数组	备注
左边	整数型
顶边	整数型
右边	整数型
底边	整数型

i支持库列表	支持库注释
shellEx	扩展功能支持库一
gdiplus	(未知支持库)

.版本 2<br />
.支持库 shellEx<br />
.支持库 gdiplus<br />
<br />
.程序集 后台截图程序集<br />
.程序集变量 hWnd, 整数型        ' 目标窗口句柄<br />
.程序集变量 hThumb, 整数型      ' DWM 缩略图句柄<br />
.程序集变量 pThumbProps, DWM_THUMBNAIL_PROPERTIES  ' 缩略图属性<br />
<br />
.子程序 _启动子程序, 整数型<br />
.局部变量 截图结果, 逻辑型<br />
<br />
    ' 1. 获取目标窗口句柄（这里以记事本为例，请替换成你的目标窗口）<br />
    hWnd ＝ 取窗口句柄 (“Notepad”, “无标题 - 记事本”)<br />
    .如果 (hWnd ＝ 0)<br />
        信息框 (“未找到目标窗口！”, 0, , )<br />
        返回 (0)<br />
    .否则<br />
        ' 2. 初始化 GDI+<br />
        Gdip初始化 ()<br />
        <br />
        ' 3. 注册 DWM 缩略图<br />
        .如果 (DwmRegisterThumbnail (hWnd, 取桌面窗口句柄 (), hThumb) ≠ 0)<br />
            信息框 (“DwmRegisterThumbnail 失败！”, 0, , )<br />
            返回 (0)<br />
        .否则<br />
            ' 4. 设置缩略图属性（调整大小、位置等）<br />
            pThumbProps.dwFlags := #DWM_TNP_RECTDESTINATION | #DWM_TNP_VISIBLE | #DWM_TNP_OPACITY<br />
            pThumbProps.opacity := 255  ' 不透明<br />
            pThumbProps.fVisible := 真  ' 可见<br />
            pThumbProps.rcDestination.左边 := 0<br />
            pThumbProps.rcDestination.顶边 := 0<br />
            pThumbProps.rcDestination.右边 := 800  ' 缩略图宽度<br />
            pThumbProps.rcDestination.底边 := 600  ' 缩略图高度<br />
            <br />
            ' 5. 更新缩略图<br />
            DwmUpdateThumbnailProperties (hThumb, pThumbProps)<br />
            <br />
            ' 6. 截图并保存<br />
            截图结果 ＝ 截图缩略图并保存 (“C:\thumb.png”)<br />
            .如果 (截图结果)<br />
                信息框 (“截图成功！保存到 C:\thumb.png”, 0, , )<br />
            .否则<br />
                信息框 (“截图失败！”, 0, , )<br />
            .如果结束<br />
            <br />
            ' 7. 释放缩略图<br />
            DwmUnregisterThumbnail (hThumb)<br />
        .如果结束<br />
        <br />
        ' 8. 关闭 GDI+<br />
        Gdip关闭 ()<br />
    .如果结束<br />
    返回 (0)<br />
<br />
.子程序 截图缩略图并保存, 逻辑型<br />
.参数 保存路径, 文本型<br />
.局部变量 hdcScreen, 整数型<br />
.局部变量 hdcMem, 整数型<br />
.局部变量 hBitmap, 整数型<br />
.局部变量 oldBmp, 整数型<br />
.局部变量 rect, RECT<br />
.局部变量 width, 整数型<br />
.局部变量 height, 整数型<br />
.局部变量 pBitmap, 整数型<br />
.局部变量 pGraphics, 整数型<br />
<br />
    ' 1. 获取窗口尺寸<br />
    取窗口矩形 (hWnd, rect)<br />
    width := rect.右边 - rect.左边<br />
    height := rect.底边 - rect.顶边<br />
    <br />
    ' 2. 创建内存 DC 和位图<br />
    hdcScreen ＝ 取设备场景 (0)<br />
    hdcMem ＝ 创建兼容设备场景 (hdcScreen)<br />
    hBitmap ＝ 创建兼容位图 (hdcScreen, width, height)<br />
    oldBmp ＝ 选择对象 (hdcMem, hBitmap)<br />
    <br />
    ' 3. 从缩略图复制到内存位图<br />
    BitBlt (hdcMem, 0, 0, width, height, hdcScreen, 0, 0, #SRCCOPY)<br />
    <br />
    ' 4. 使用 GDI+ 保存为 PNG<br />
    GdipCreateBitmapFromHBITMAP (hBitmap, 0, pBitmap)<br />
    GdipCreateFromHDC (hdcMem, pGraphics)<br />
    GdipSaveImageToFile (pBitmap, 保存路径, “image/png”, 0)<br />
    <br />
    ' 5. 清理资源<br />
    GdipDisposeImage (pBitmap)<br />
    GdipDeleteGraphics (pGraphics)<br />
    删除对象 (hBitmap)<br />
    删除设备场景 (hdcMem)<br />
    删除设备场景 (hdcScreen)<br />
    <br />
    返回 (真)<br />
<br />
.数据类型 DWM_THUMBNAIL_PROPERTIES<br />
    .成员 dwFlags, 整数型<br />
    .成员 rcDestination, RECT<br />
    .成员 rcSource, RECT<br />
    .成员 opacity, 字节型<br />
    .成员 fVisible, 逻辑型<br />
    .成员 fSourceClientAreaOnly, 逻辑型<br />
<br />
.数据类型 RECT<br />
    .成员 左边, 整数型<br />
    .成员 顶边, 整数型<br />
    .成员 右边, 整数型<br />
    .成员 底边, 整数型

DLL命令名	返回值类型	公开	备注
略缩图_创建	整数型		返回0为成功
DLL库文件名:
Dwmapi.dll
在DLL库中对应命令名:
DwmRegisterThumbnail
参数名	类型	传址	数组	备注
目标窗口	整数型
源窗口	整数型
略缩图ID	整数型			略缩图指针