在vfp应用程序中调用ms.txt

Vfp 文档 一些经典编程文章 可供初学者学习编程时使用

在VFP应用程序中调用MS-DOS应用程序

蒋清野 （清华大学土木工程系）

　　在VFP数据库应用程序设计中，经常需要调用一些以前在MS-DOS环境下运行的应用程序。这时候我们经常会想到RUN命令。利用RUN命令确实可以运行MS-DOS应用程序，但是却会跳出一个令人讨厌的黑屏幕。利用本文介绍的方法调用MS-DOS应用程序，就可以解决这个问题了。

FUNCTION run
PARAMETER doscmd
DECLARE INTEGER WinExec IN win32api AS run ;
        STRING command, INTEGER param
  cmdstart = fullpath("FOXRUN.PIF")+" /C"
fullcmd = cmdstart + doscmd
retval = run(fullcmd, 0)
RETURN retval

　　在使用这个程序片段时，必须保证资源文件FOXRUN.PIF能够在当前工作目录下找到（可以将其从VFP的根目录下拷贝到应用程序目录下，不要对其缺省设置进行任何改动）。在调用MS-DOS应用程序时，可以使用如下语句：
DO RUN WITH "DosProgramName"
　　例如我们需要运行在当前工作目录下的MS-DOS应用程序TEST.EXE，就可以使用如下语句：
DO RUN WITH "TEST.EXE"

作者：蒋清野
通讯地址：清华大学23#421 （100084）
电子邮件：[e-mail] 

返回