.版本 2 .支持库 EThread .支持库 spec .支持库 xplib .程序集 窗口程序集_启动窗口 .程序集变量 执行线程句柄, 整数型 .子程序 _按钮1_被单击 启动线程 (&线程事件, , 执行线程句柄) 通用对话框1.打开 () .子程序 线程事件 .局部变量 是否跳出, 整数型 .局部变量 窗口句柄, 整数型 是否跳出 ＝ 0 .判断循环首 (是否跳出 ＝ 0) ' 建立一直循环机制 .如果 (FindWindow (“#32770”, “打开通用对话框2”) ≠ 0) 窗口句柄 ＝ FindWindow (“#32770”, “打开通用对话框2”) .否则 窗口句柄 ＝ 0 .如果结束 .如果 (窗口句柄 ≠ 0) 调试输出 (“找到了”) 设置窗口位置_ (窗口句柄, 0, (取屏幕宽度 () － 600) ÷ 2, (取屏幕高度 () － 350) ÷ 2, 600, 350, 0) 跳出循环 () ' 已经找到了并且设置了窗口，所以就跳出循环结束线程吧。 .否则 .如果结束 .判断循环尾 () 强制结束线程 (执行线程句柄) .子程序 __启动窗口_创建完毕 XP风格 (2)