社区
VB基础类
帖子详情
真正超高水平的问题
sssoft
2002-07-02 10:09:36
我用ShellExecute打开一个文件。但是我的应用程序并不知道打开这个文件需要
的编辑软将,如doc,或者xls,或者是Bmp甚至是acad的dwg文件
但是我想在进行文件编辑以后,关闭编辑软件时(例如word或者acad),给我的应用程序发一个消息,让我进行一些操作。
...全文
41
9
打赏
收藏
真正超高水平的问题
我用ShellExecute打开一个文件。但是我的应用程序并不知道打开这个文件需要 的编辑软将,如doc,或者xls,或者是Bmp甚至是acad的dwg文件 但是我想在进行文件编辑以后,关闭编辑软件时(例如word或者acad),给我的应用程序发一个消息,让我进行一些操作。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
9 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
godanddog
2002-07-04
打赏
举报
回复
下面是我在CB中编的一个方法,供参考
/*****************************************************************
function:调用可执行文件
input:strcommandline——命令行
bolwait——是否监控被调用可执行程序的运行
output:如果程序运行成功,返回true,否则返回false
*****************************************************************/
bool TfrmBackup::funRun( AnsiString strCommandLine ,bool bolWait )
{
bool bolSuccess ;
STARTUPINFO StartupInfo;
PROCESS_INFORMATION proinfo;
memset(&StartupInfo,0,sizeof(STARTUPINFO));
StartupInfo.cb=sizeof(STARTUPINFO);
StartupInfo.lpReserved=NULL;
StartupInfo.lpDesktop=NULL;
StartupInfo.lpTitle=NULL;
StartupInfo.dwFlags=STARTF_USESHOWWINDOW;
StartupInfo.cbReserved2=0;
StartupInfo.lpReserved2=NULL;
if ( bolWait )
StartupInfo.wShowWindow=SW_SHOWMINIMIZED ;
Else
StartupInfo.wShowWindow=SW_SHOWNORMAL ;
ZeroMemory(&proinfo, sizeof(proinfo));
bolSuccess = CreateProcess(NULL, (LPTSTR)strCommandLine.c_str(), NULL, NULL, TRUE,
CREATE_DEFAULT_ERROR_MODE, NULL, NULL, &StartupInfo, &proinfo) ;
if ( bolSuccess )
{
if( bolWait )
{
CloseHandle( proinfo.hThread ) ;
WaitForSingleObject( proinfo.hProcess ,INFINITE ) ;//等待程序运行完毕
CloseHandle( proinfo.hProcess ) ;
}
return true ;
}
else if( ! bolSuccess )
{
LPVOID lpMsgBuf;
FormatMessage(
FORMAT_MESSAGE_ALLOCATE_BUFFER |
FORMAT_MESSAGE_FROM_SYSTEM |
FORMAT_MESSAGE_IGNORE_INSERTS,
NULL,
GetLastError(),
MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), // Default language
(LPTSTR) &lpMsgBuf,
0,
NULL
);
MessageBox( NULL, (LPCTSTR)lpMsgBuf, "信息提示", MB_OK | MB_ICONINFORMATION );
LocalFree( lpMsgBuf );
return false ;
};
}
shuohua
2002-07-03
打赏
举报
回复
哦,虽然不能帮你,但是帮你UP一下!希望你能得到好的解答!
UP! :)
sssoft
2002-07-03
打赏
举报
回复
云霄您好,您给我的链接没有办法浏览
能否再给我贴一个?
螺丝刀2000
2002-07-03
打赏
举报
回复
up
lingfeng_314
2002-07-03
打赏
举报
回复
关注!
wgku
2002-07-02
打赏
举报
回复
http://211.157.102.21/Expert/forum.asp?typenum=8&searchKeys=ShellExecute&roomid=2&author=&tabletype=now
这里有你想要的!!!!!
griefforme
2002-07-02
打赏
举报
回复
用Shell打开可以得到ProcessID
intersun
2002-07-02
打赏
举报
回复
可不可以得到该进程的进程ID,循环看该进程是否结束,如结束就退出循环。
下面代码近似这一过程。
pId = Shell(AppName)
Call EnumWindows(AddressOf EnumWindowsProc, pId)
hProcess = OpenProcess(SYNCHRONIZE, 0, pId)
Do
Call GetExitCodeProcess(hProcess, ExitCode)
DoEvents
Loop While ExitCode = STILL_ALIVE
Call CloseHandle(hProcess)
sssoft
2002-07-02
打赏
举报
回复
各位高手,只要给个思路就行,不需要真正实现
正版佳佳象棋未加密版
这是一款真正的佳佳正版软件,是我花1000元买的光盘。快棋水平
超
高。自带200MB商业开局库。是象棋爱好者的宝贝。
BindIt.exe
● 真正的高通量与快速度,在 15 ~ 30 min内纯化 96 个样品,是真正引领市场的自动化仪器,并且可以有效消除样品之间的交叉污染和试剂浪费现象 ● KingFisher Flex 系统,可以使用 KF96DW、 KF96、KF96PCR和KF24DW...
2019信息系统项目管理师基础知识真题解析
本课程以最新教材(第三版)为依据,深入浅出的讲解方式,保证您充分全面的掌握信息系统项目管理师的基础知识,老师具备国内外多项项目管理资质认证,理论结合实践,课程内容持续更新。
超
高性价比!
直播电商供应链研究报告
从中国消费者协会的调研数据中可以看到,无论是消费者观看直播,还是真正在直播购物中下单的原因,大致可以归为两类,优质的内容和 性价比
超
高的商品。 内容方面(蓝色)主要体现在有趣、使人放松、学到新知识、可以...
DVDFab PlayerFab v7.0.0.1 Win 一款支持4K UHD杜比 TrueHD、DTS-HD 视频播放器
此外,它还提高了整体软件稳定性、与 ISO 映像文件和文件夹的兼容性,以及更
高水平
的播放流畅度。 完全重新设计的用户界面,支持 PC 和 TV 播放模式 彻底改造的 DVDFab Player 5 具有两种播放模式,具有独特的用户...
VB基础类
7,763
社区成员
197,609
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章