带参数调用exe程序 for Foxpro

给你个例子：这是VFP做的一个EXE，然后由其他程序调用这个EXE对DBF进行PACK操作。
VFP中只有一上主程序，Main.prg，内容如下：

Parameters tcFileName　&&接收参数
If !Empty(tcFileName)
If File(tcFileName)
Set Exclusive On
Try
Use (tcFileName)
Pack
Use
Catch
Messagebox (”请先关闭文件：’”+tcFileName+”‘”+Space(5),48,’信息提示’)
Endtry
Else
Messagebox (”指定的文件：’”+tcFileName+”‘不存在!”+Space(5),48,’信息提示’)
Endif
Endif        
以上编译成一个EXE文件，如MyPack.exe
*在VFP中调用：其实在VFP中可以用DO 方式调用，以下面API，是为了给其他开发工具参考
DECLARE INTEGER ShellExecute IN SHELL32.DLL INTEGER nWinHandle,STRING cOperation,STRING cFileName,STRING cParameters,STRING cDirectory,INTEGER nShowWindow
=ShellExecute(0,”Open”,”d:"MyPack"MyPack.exe”,”d:"test"abc.dbf”,”",0) &&d:"test"abc.dbf为传递的参数
CLEAR DLLS
*在VB中调用：
Shell “d:"MyPack"MyPack.exe d:"test"abc.dbf” &&d:"test"abc.dbf为传递的参数

转载于:https://www.cnblogs.com/hylan/archive/2008/10/03/1303450.html