明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 3610|回复: 7

lisp调用exe不黑屏的办法

  [复制链接]
发表于 2018-8-9 20:01:58 | 显示全部楼层 |阅读模式
直接上代码,觉得能用点个赞
(vl-load-com)
(setq myapp(vlax-create-object "WScript.Shell"))
(Vlax-invoke-method myapp "run" (strcat fileName " -p") 1)    ;;fileName 是exe的绝对路径,这里加入了-p参数
(vlax-release-object myapp)

代码解释:
通过 wscript.shell控件,这个控件大家可以自行百度以下。

WshShell.Run (strCommand, [intWindowStyle], [blnWaitOnReturn])

run方法,第一个参数时 运行exe的绝对路径 ,可以加入相关参数,比如什么 -a -s之类的


第二个参数是运行exe的初始模式
名称含义
SW_HIDE
0
隐藏窗口并激活另一窗口。
SW_SHOWNORMAL
1
激活并显示一个窗口。若窗口是最小化或最大化,则恢复到其原来的大小和位置。
SW_SHOWMINIMIZED
2
激活窗口并以最小化显示该窗口。
SW_SHOWMAXIMIZED
3
激活窗口并以最大化显示该窗口。
SW_SHOWNOACTIVATE
4
按窗口最近的大小和位置显示。活动窗口保持活动。
SW_SHOW
5
以当前大小和位置激活并显示窗口。
SW_MINIMIZE
6
最小化指定窗口并激活按 Z 序排序的下一个顶层窗口。
SW_SHOWMINNOACTIVE
7
最小化显示窗口。活动窗口保持活动。
SW_SHOWNA
8
以当前状态显示窗口。活动窗口保持活动。
SW_RESTORE
9
激活并显示窗口。若窗口是最小化或最大化,则恢复到原来的大小和位置。在还原应用程序的最小化窗口时,应指定该标志。



第三个参数是,是否等待exe直接结束再返回。默认是不等待。


评分

参与人数 2明经币 +2 收起 理由
VBALISPER + 1 很给力!
USER2128 + 1 赞一个!

查看全部评分

发表于 2018-8-10 09:03:55 | 显示全部楼层
本帖最后由 panliang9 于 2018-8-10 09:06 编辑

http://bbs.mjtd.com/forum.php?mo ... hlight=%B5%F7%D3%C3

在阿勇版主的这个贴子里,刚好说到这个黑屏的问题,楼主提供的代码也许能解决这个问题。收藏了。

点评

更新了一下,试试看  发表于 2018-8-12 18:09
发表于 2018-8-10 09:17:35 | 显示全部楼层
这个不错!用的是WScript,一般电脑都不会禁用
发表于 2018-8-10 09:36:46 | 显示全部楼层
zzyong00 发表于 2018-8-10 09:17
这个不错!用的是WScript,一般电脑都不会禁用

等版主作品更新!
发表于 2018-8-13 09:13:04 | 显示全部楼层
等版主作品更新!
发表于 2020-2-25 09:15:34 | 显示全部楼层
必须支持的
发表于 2022-3-27 07:07:16 | 显示全部楼层
出现了错误,未提供说明,是啥原因啊
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-23 02:48 , Processed in 0.158784 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表