软件信息框标题栏修改图标

hIcon ＝ 取图标句柄 (#图标_微信)
hModule ＝ GetModuleHandle (0)
' CreateThread (0, 0, 到整数 (&新线程_改图标), 0, 0, 0)
hHook ＝ SetWindowsHookEx (#WH_CALLWNDPROC, 到整数 (&HookProc), hModule, GetCurrentThreadId ())
信息框 (“修改信息框标题栏图标...................................”, #确认钮 ＋ #信息图标, “看我怎么改图标”)
DestroyIcon (hIcon)

局部_nNum ＝ 取字节集数据 (图标数据, #短整数型, 5)
.计次循环首 (局部_nNum, 局部_i)
CopyMemory_IconDirEntry (局部_IconDirEntry, 取字节集中间 (图标数据, 6 ＋ (局部_i － 1) × 16 ＋ 1, 16), 16)
.如果真 (局部_IconDirEntry.bWidth ＝ 16)
局部_hIcon ＝ CreateIconFromResource (取字节集中间 (图标数据, 局部_IconDirEntry.dwImageOffset ＋ 1, 局部_IconDirEntry.dwBytesInRes), 局部_IconDirEntry.dwBytesInRes, 真, 196608)
返回 (局部_hIcon)
.如果真结束

.计次循环尾 ()
CopyMemory_IconDirEntry (局部_IconDirEntry, 取字节集中间 (图标数据, 6 ＋ 1, 16), 16)
局部_hIcon ＝ CreateIconFromResource (取字节集中间 (图标数据, 局部_IconDirEntry.dwImageOffset ＋ 1, 局部_IconDirEntry.dwBytesInRes), 局部_IconDirEntry.dwBytesInRes, 真, 196608)
返回 (局部_hIcon)