＋设为首页 ＋添加到收藏夹
文/jorge
================================================================= 【程序编程相关:Authorware UCD 开发大揭秘】
如上述,本程序分为了接口层与算法层.上述全局变量与常量,基本都属于接口层的内容.下面,来看接口层的具体实现.其工作的第一步,是要捕获扫雷窗口并取得其信息.这由函数getminewindow来完成: 【推荐阅读:Authorware UCD 开发大揭秘】
【扩展信息:Authorware UCD 开发大揭秘】//试图取得可用的扫雷窗口,返回值表示是否成功.若成功,则全局变量
//minewnd.minedc.areaheight.areawidth都得到相应的填充.若失败,则以上变量的值无意义.function getminewindow: boolean;
var clientrect: trect; begin result := false;minewnd := findwindow(nil, mine_window_title); //检查是否存在“扫雷”窗口,并且必须为当前窗口
if (minewnd = 0) or (getforegroundwindow <> minewnd) then exit;minedc := getdc(minewnd); //取得“扫雷”窗口的设备上下文
if minedc = 0 then exit;getclientrect(minewnd, clientrect); //检查“扫雷”窗口的内容是否全部显示在屏幕上
... 下一页