Foxpro中DDE类函数的应用

文章作者 100test 发表时间 2007:10:15 11:55:36
来源 100Test.Com百考试题网

Foxpro在我国应用广泛，但大多数用户一般只注重其方便的数据库的管理功能，开发的应用程序也仅局限在Foxpro本身的数据库管理功能上，其实Foxpro也可以和其它Windows应用程序进行有效的配合，共同完成某些特殊的任务。利用Foxpro提供的十二个DDE（动态数据交换）函数可以方便地与其它应用程度交换数据，执行其它Windows应用程序的命令。笔者在编程实践过程中应用DDE函数编程完成了一些特殊的应用，取得了满意的效果。下面列举几个应用Foxpro中DDE类的例子，或许对读者编程时有所启发。

　　一、与系统外壳配合完成应用程序的安装

　　Windows应用程序安装时除了完成文件的复制以外，还必须建立应用程序组及程序项，尽管现在已经有一些工具可以帮助程序员来分发安装Windows应用程序，但如果你手头一时找不到这些工具来安装你的Foxpro应用程序，或者你的应用程序有特殊的要求并且不打算用到像C 之类的语言，则不妨使用Foxpro的DDE命令来完成安装工作。

　　安装应用程序实际上是与系统外壳打交道，以前Windows 3.x使用PROGMAN.EXE作为外壳，Windows95则使用EXPLOLER.EXE，它们都可以作为DDE服务器并提供相同的主题PROGMAN。用CreateGroup命令可以建立程序组，用ShowGroup命令可以显示程序组，用AddItem命令可在程序组中增加程序项，其格式简述如下（其它命令及详细格式请参考Windows文档）：

　　（1）CreateGroup(GroupName[,GroupPath])，两个参数分别用于指定组名和路径；

　　（2）ShowGroup(GroupName,ShowCommand)，两个参数分别用于指定组名和显示方式；

　　（3）AddItem(CmdLine[,Name[,IconPath[,IconIndex]]]，四个参数分别用于指定命令行、程序项名称、图标资源路径及索引。

　　下面的Foxpro程序建立应用程序组MyApplication及其程序项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:\MyApp\app1.exe,app1, c:\MyApp\app1.ico)])

　　 ENDIF

　　 = DDETerminate(iProgman)

　　ELSE

　　 WAIT "DDE初始化失败" WINDOWS

　　ENDIF

　　RETURN