ITaskbarList调用任务栏快捷操作

oldProc ＝ GetWindowLong (参数_窗口句柄, #GWL_WNDPROC)
.如果真 (oldProc ≠ 到整数 (&WndProc))
SetWindowLong (参数_窗口句柄, #GWL_WNDPROC, 到整数 (&WndProc))
SetProp (参数_窗口句柄, “oldProc”, oldProc)
.如果真结束
hLib ＝ GetModuleHandle (“User32.dll”)
.如果真 (hLib ≠ 0)
ChangeWindowMessageFilter ＝ GetProcAddress (hLib, “ChangeWindowMessageFilter”)
.如果真 (ChangeWindowMessageFilter ≠ 0)
call2 (ChangeWindowMessageFilter, m_taskbarBtnCreatedMsg, #MSGFLT_ADD)
call2 (ChangeWindowMessageFilter, #WM_COMMAND, #MSGFLT_ADD)
.如果真结束

.如果真结束
SetProp (参数_窗口句柄, “taskbarBtnCreatedMsg”, m_taskbarBtnCreatedMsg)
SetProp (参数_窗口句柄, “onTaskbarBtnCreated”, 到整数 (参数_事件指针))

.子程序 置按钮图片组, 逻辑型, 公开, ThumbBarSetImageList 设置 添加按钮 时的图片组
.参数 参数_窗口句柄, 整数型
.参数 参数_图片组, 字节集, , 图片组必须是32位，宽度高度分别为 GetSystemMetrics(SM_CXICON) GetSystemMetrics(SM_CYICON)
.局部变量 hr, 整数型
.局部变量 istream, 整数型
.局部变量 bin, 字节集
.局部变量 len, 整数型
.局部变量 himg, 整数型
.局部变量 oldhimg, 整数型

len ＝ 取字节集长度 (参数_图片组)
bin ＝ 取字节集中间 (参数_图片组, 9, len － 8)
istream ＝ _CreateIStream (bin)
.如果真 (istream ＝ 0)
返回 (假)
.如果真结束
himg ＝ ImageList_Read (istream)
.如果真 (himg ＝ 0)
ITaskbarList_Release (istream)
返回 (假)
.如果真结束
oldhimg ＝ GetProp (参数_窗口句柄, “hImageList”)
.如果真 (oldhimg ≠ 0)
ImageList_Destroy (oldhimg)
.如果真结束
SetProp (参数_窗口句柄, “hImageList”, himg)
hr ＝ ITaskbarList_ThumbBarSetImageList (任务栏列表类.取指针 (), 参数_窗口句柄, himg)
ITaskbarList_Release (istream)