图片复制小程序，渐变EXUI界面选择框

hDC ＝ GetDC (图片框名称.取窗口句柄 ())
.如果 (取反 (是否大图标))
' 调试输出 (1)
SHGetFileInfo (文件路径, 128, SH, 692, 位或 (#SHGFI_USEFILEATTRIBUTES, #SHGFI_ICON, #SHGFI_SMALLICON, #SHGFI_TYPENAME))
DrawIconEx (hDC, 0, 0, SH.hIcon, 16, 16, 0, 0, 位或 (0, 3))
.否则
' 调试输出 (1)
SHGetFileInfo (文件路径, 128, SH, 692, 位或 (#SHGFI_USEFILEATTRIBUTES, #SHGFI_ICON, #SHGFI_TYPENAME))
DrawIconEx (hDC, 0, 0, SH.hIcon, 32, 32, 0, 0, 位或 (0, 3))
.如果结束
ReleaseDC (图片框名称.取窗口句柄 (), hDC)
.计次循环首 (取数组成员数 (SH.szTypeName), hDC)
.如果真 (SH.szTypeName [hDC] ≠ 0)
加入成员 (文件信息, SH.szTypeName [hDC])
.如果真结束

.计次循环尾 ()