[LISP函数]：如何获取调用外部程序的返回值

小坛子

比如：用以下语句：
(startapp  "example")   ；；；example为一个对话框控制的exe程序
我如何知道example是按ok退出，还是按cance退出？
谢谢！

gww

恐怕不行

lijiao

最初由 小坛子 发布
[B]比如：用以下语句：
(startapp  "example")   ；；；example为一个对话框控制的exe程序
我如何知道example是按ok退出，还是按cance退出？
谢谢！ [/B]

STARTAPP只是负责启动应用程序，返回的只是调用成功与否，而不返回程序的运行值；另一方面，这种调用的不叫对话框。

mmmm

使用DOSLIB的dos_exewait

闲云

如果调用成功返回大于0的整数，否则返回nil

秋枫

这可以用vlisp的activex方法。
1.。首先，确认你的EXE程序有返回值，这个需要EXE程序设计时做好。比如用exit(0), halt(3)之类的代码。

2.。使用wscript.shell对像可以运行一个程序得到返回值。
wscript.shell对像有一个run方法，可以返回程序的返回值。
object
WshShell 对象。
strCommand
表示要运行的命令行的字符串值。必须包括要传递到可执行文件的所有参数。
intWindowStyle
可选。表示程序窗口外观的整数值。请注意，并非所有程序都使用此信息。
bWaitOnReturn
可选。布尔值，表示在继续执行脚本中的下一条语句之前，脚本是否等待执行完程序。如果设为 true，则在执行完程序后才执行脚本，Run 方法返回由程序返回的任何错误代码。如果设为 false（默认值），则 Run 方法将自动在启动程序后立即返回 0（不是错误代码）。
在vl中实现也比较简单。

2. [font=courier]
   
3. (setq shell (vlax-create-object "wscript.shell"))
   
4. (vlax-invoke-method shell 'run ....)
   
5. ...
   

[font=courier]<br /> (setq shell (vlax-create-object "wscript.shell"))<br /> (vlax-invoke-method shell 'run ....)<br /> ...<br />

小坛子

您能否再详细给我说说，我对activex不了解，在vlisp中也查不到这些函数。