1、步骤：1、在按键精灵QUI界面上画一个下拉列表框，命名为xitong2、获取下拉列表框的值，如果选择的是win7系统则使用大漠的GetDictInfo函数，指定生成微软雅黑9号字体。如果选择的是xp系统则使用大漠的GetDictInfo函数，指定生成宋体9号。
2、代码如下：//创建字库(字表,字体,字号,字库ID,文件路径[传空为不保存到字库文件])SubCreateFont(Words,Font,Size,Index,Path)DimTempStrTempStr=dm.GetDictInfo(Words,Font,Size,0)TempArray=Split(TempStr,"|")Fori=0toUBound(TempArray)dm.AddDictIndex,TempArray(i)NextEraseTempArray//释放不用的内存IfLen(Path)>0ThenCalldm.SaveDict(0,Path)EndIfEndSub
3、//初始化大漠Callregister()Setdm=CreateObject("dm.dmsoft")Calldm.SetPath("c:\test")//读取选项SelectCaseForm1.xitong.ListIndexCase0FontName="微软雅黑"Case1FontName="宋体"EndSelectCallCreateFont("我的电脑|网上邻居",FontName,9,0,"字库.txt")//调用创建字库函数
4、//找字dm_ret=dm.FindStr(0,0,2000,2000,"我的电脑","ffffff",1.0,intX,intY)IfintX>=0andintY>=0ThenMessageBox"我的电脑"ElseMessageBox"没找到"EndIfdm_ret=dm.FindStr(0,0,2000,2000,"网上邻居","ffffff",1.0,intX,intY)IfintX>=0andintY>=0ThenMessageBox"网上邻居"ElseMessageBox"没找到"EndIf
5、Subregister()//注册大漠Setws=createobject("Wscript.Shell")ws.run"regsvr32atl.dll/s"Setws=nothingPutAttachment"c:\test","dm.dll"PutAttachment".\Plugin","RegDll.dll"callPlugin.RegDll.Reg("c:\test\dm.dll")Setdm=createobject("dm.dmsoft")ver=dm.ver()Iflen(ver)=0ThenMessageBox"插件注册失败,检查系统是否禁用了vbs脚本权限"EndScriptEndIfEndSub
6、备注：1）小编是xp系统，系统字体为宋体，9号字，所以小编拿电脑桌面上的我的电脑和网上邻居作为例子。2）启动之后第一次运行选择了xp系统，第二次要选择win7系统的时候，需要按下保存设置，否则，再次启动qui会读取之前的下拉列表选择的信息，依然会切换到xp系统选项。
