在VFP應(yīng)用程序中調(diào)用MS-DOS應(yīng)用程序
發(fā)布時(shí)間:2008-08-09 閱讀數(shù): 次 來(lái)源:網(wǎng)樂原科技
在VFP數(shù)據(jù)庫(kù)應(yīng)用程序設(shè)計(jì)中,經(jīng)常需要調(diào)用一些以前在MS-DOS環(huán)境下運(yùn)行的應(yīng)用程序。這時(shí)候我們經(jīng)常會(huì)想到RUN命令。利用RUN命令確實(shí)可以運(yùn)行MS-DOS應(yīng)用程序,但是卻會(huì)跳出一個(gè)令人討厭的黑屏幕。利用本文介紹的方法調(diào)用MS-DOS應(yīng)用程序,就可以解決這個(gè)問(wèn)題了。
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
在使用這個(gè)程序片段時(shí),必須保證資源文件FOXRUN.PIF能夠在當(dāng)前工作目錄下找到(可以將其從VFP的根目錄下拷貝到應(yīng)用程序目錄下,不要對(duì)其缺省設(shè)置進(jìn)行任何改動(dòng))。在調(diào)用MS-DOS應(yīng)用程序時(shí),可以使用如下語(yǔ)句:
DO RUN WITH "DosProgramName"
例如我們需要運(yùn)行在當(dāng)前工作目錄下的MS-DOS應(yīng)用程序TEST.EXE,就可以使用如下語(yǔ)句:
DO RUN WITH "TEST.EXE"