《Foxpro中DDE类函数的应用.docx》由会员分享,可在线阅读,更多相关《Foxpro中DDE类函数的应用.docx(3页珍藏版)》请在金锄头文库上搜索。
1、 Foxpro中DDE类函数的应用一、与系统外壳协作完成应用程序的安装 Windows应用程序安装时除了完成文件的复制以外,还必需建立应用程序组及程序项,尽管现在已经有一些工具可以帮忙程序员来分发安装Windows应用程序,但假如你手头一时找不到这些工具来安装你的Foxpro应用程序,或者你的应用程序有特别的要求并且不准备用到像C+之类的语言,则不妨使用Foxpro的DDE命令来完成安装工作。 安装应用程序实际上是与系统外壳打交道,以前Windows 3.x使用PROGMAN.EXE作为外壳,Windows95则使用EXPLOLER.EXE,它们都可以作为DDE效劳器并供应一样的主题PROGM
2、AN。用CreateGroup命令可以建立程序组,用ShowGroup命令可以显示程序组,用AddItem命令可在程序组中增加程序项,其格式简述如下(其它命令及具体格式请参考Windows文档): (1)CreateGroup(GroupName,GroupPath),两个参数分别用于指定组名和路径; (2)ShowGroup(GroupName,ShowCommand),两个参数分别用于指定组名和显示方式; (3)AddItem(CmdLine,Name,IconPath,IconIndex,四个参数分别用于指定命令行、程序项名称、图标资源路径及索引。 下面的Foxpro程序建立应用程序组M
3、yApplication及其程序项App1。 *安装应用程序的例子 *进展文件的解压、复制等操作后,执行下面的代码安装程序组和程序项 iProgman = DDEInitiate(PROGMAN,PROGMAN) &DDE初始化 IF iProgman != -1 &初始化胜利则建立程序组 iExecute=DDEExecute(iProgman,CreateGroup(“MyApplication“) IF iExecute = .F. WAIT WINDOWS 建立程序组失败 ELSE = DDEExecute(iProgman,ShowGroup(“MyApplication.GRP“,1) =DDEExecute(iProgman,AddItem(c:MyAppapp1.exe,app1, c:MyAppapp1.ico) ENDIF = DDETerminate(iProgman) ELSE WAIT “DDE初始化失败“ WINDOWS ENDIF RETURN