设置程序边框颜色

易语言 2020-10-04 14:54:13

.如果真 (GetProp (句柄, “OrigProcAddr”) ＝ 0)
SetProp (句柄, “OrigProcAddr”, SetWindowLong (句柄, #GWL_WNDPROC, 到整数 (&WindowProc)))
SetProp (句柄, “Color”, 颜色_)