Foxpro中DDE类函数的应用

Foxpro在国内应用广泛，但大多数用户一般只关注其便捷的数据库管理功能，开发的应用也只局限于Foxpro本身的数据库管理功能。事实上，Foxpro可以有效地与其他Windows应用程序合作，共同完成一些特殊的任务。Foxpro提供的十二个DDE(动态数据交换)函数，可以方便地与其他应用程序交换数据，执行其他Windows应用程序的命令。在编程实践过程中，作者利用DDE函数编程完成了一些特殊应用，取得了满意的效果。下面几个在Foxpro中应用DDE类的例子，可能对读者编程时有所启发。
1。配合系统外壳完成应用程序的安装。

安装Windows应用程序时，除了复制文件，还必须设置应用程序组和程序项。虽然现在已经有一些工具可以帮助程序员分发和安装Windows应用程序，但是如果你找不到这些工具来安装你的Foxpro应用程序，或者你的应用程序有特殊要求，不打算使用C++之类的语言，那么你不妨使用Foxpro的DDE命令来完成安装。

安装应用程序实际上处理系统外壳。以前Windows 3.x用PROGMAN.EXE做外壳，Windows95用EXPLOLER.EXE。它们都可以作为DDE服务器，提供相同的主题程序。使用CreateGroup命令建立程序组，使用ShowGroup命令显示程序组，使用AddItem命令在程序组中添加程序项。格式简述如下(其他命令和详细格式请参考Windows文档):

(1)创建组(组名[，组路径])，两个参数分别用于指定组名和路径；

(2)显示组(组名，显示命令)，两个参数分别用于指定组名和显示方式；

(3) Additem (cmdline [，name [，icon path [，icon index]]，四个参数分别用于指定命令行、程序项名称、图标资源路径和索引。

下面的Foxpro程序建立了应用程序组MyApplication及其程序项App1。

* *安装应用程序的示例

* *解压缩并复制文件后，执行以下代码来安装程序组和程序项。

I progman = DDE initiate (progman，progman)&&DDE初始化

如果iProgman！= -1 &&如果初始化成功，程序组将被建立。

iExecute=DDEExecute(iProgman，[CreateGroup("MyApplication")])

如果iExecute = .F。

等待窗口无法创建程序组。

其他

= DDEExecute(iProgman，[ShowGroup("MyApplication。GRP "，1)])

=DDEExecute(iProgman，[AddItem(c:\MyApp\app1.exe，app1，c:\MyApp\app1.ico)])

结束条件

= DDETerminate(iProgman)

其他

等待“DDE初始化失败”窗口

结束条件

RETURN