VFP 愛用者社區

[AMIN_KS]

用以下方法可以使DOS命令窗口隐含，但在我VFP6.0调试时都正常的，而连编成EXE文件后执行，连DOS命令都不能实现了，不知为什么？有高手可以给予帮助吗？先谢谢了！

*---------------- Run.prg -----------------------------
* Sample program to Execute an MS-DOS command and keep
* the MS-DOS window hidden.
*
* To use this function in FoxPro to create a new directory,
* use one of the following commands that illustrate two
* ways to call the function and achieve the same result:
*
* = run("MD C:\VFP\TESTDIR")
*
* DO run WITH "MD C:\VFP\TESTDIR"
*

FUNCTION run
PARAMETER doscmd

DECLARE INTEGER WinExec IN win32api AS run ;
STRING command, INTEGER param

* To have control over the visibility of the
* MS-DOS command, call it through a .pif file.
*
* IMPORTANT: (1) Be sure the "Close Window on Exit" check box in
* the PIF file is selected. (2) Be sure "Windowed" is the
* selected "Display Usage."

cmdstart = SYS(2004) + "FOXRUN.PIF /C "

* Now concatenate the two pieces of the command:

fullcmd = cmdstart + doscmd

retval = run(fullcmd, 0)

RETURN retval

[garfield]

建議你不要將function 名跟VFP的函數名相同.

[AMIN_KS]

我试过改名了，但还是不行！我想是不是VFP启动时加载的环境参数和连编后的EXE文件的运行参数不一样引起的啊！但不知到怎么处理！先谢谢楼上答复！

[elleryq]

執行以後返回值是??

[garfield]

建議將 這個檔案 SYS(2004) + "FOXRUN.PIF" 複製一份到程式目錄之下, 因為如果你要將你的程式分送到不同電腦時, 不一定會在每台電腦安裝VFP.

[goto-dream]

FOXRUN.PIF 我在 vfp9上面找不到
其他版本可以嗎???

[garfield]

C:\Program Files\Microsoft Visual FoxPro 9\Tools\FoxRun\FoxRun.pif

[easywin3]

为何重写呢？ RUN 本身就可以执行DOS指令

cX='MD C:\VFP\TESTDIR'
RUN &cX