在vfp中调用ms.txt

来自「Vfp 文档 一些经典编程文章 可供初学者学习编程时使用」· 文本 代码 · 共 25 行

在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"