在VFP应用程序中调用MS-DOS应用程序
发布时间:2008-08-09 阅读数: 次 来源:网乐原科技
在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"