说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

请问在DELPHI中如何调用EXE文件?

编辑:说三道四文库 发布时间:2017-05-23 05:25
HTML文档下载 WORD文档下载 PDF文档下载
请问在DELPHI中如何调用外部文件? 另如何调用WINDOWS 下的"文件查找"(可查找 

文章中的某些内容)? 请高手详细回答! 

const badresult='error';
      function _FileExec(const FileName:string;Params:string;
                         DefaultDir: string;ShowCmd: Integer
                         ): string;
         var zFileName, zParams, zDir: array[0..79] of Char;
         var exechandle:Thandle;
         begin
           exechandle := ShellExecute(0, nil,StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),StrPCopy(zDir, DefaultDir), ShowCmd);
           case exechandle of
                0                      :result:=BadResult+'操作系统资源溢出!';
                ERROR_FILE_NOT_FOUND   :result:=BadResult+'指定的文件没有找到.';
                ERROR_PATH_NOT_FOUND   :result:=BadResult+'指定的文件路径没有找到.';
                ERROR_BAD_FORMAT       :result:=BadResult+'指定的.EXE文件非法(不是一个有效的Win32程序)';
                SE_ERR_ACCESSDENIED    :result:=BadResult+'操作系统拒绝访问指定的文件.';
                SE_ERR_ASSOCINCOMPLETE :result:=BadResult+'文件名的关联不完整或是一个非法关联';
                SE_ERR_DDEBUSY        :result:=BadResult+'其它DDE事务正在处理无法响应当前请求事务.';
                SE_ERR_DDEFAIL        :result:=BadResult+'事务失败';
                SE_ERR_DDETIMEOUT      :result:=BadResult+'由于请求时间超期,DDE 事务无法完成';
                SE_ERR_DLLNOTFOUND     :result:=BadResult+'指定的动态连接库没有找到';
                //SE_ERR_FNF        :result:=BadResult+'指定的文件没有找到.';
                SE_ERR_NOASSOC        :result:=BadResult+'没有与当前文件扩展名相关联的服务程序';
                SE_ERR_OOM        :result:=BadResult+'没有足够的内存来完成此操作';
                //SE_ERR_PNF        :result:=BadResult+'指定的文件路径没有找到';
                SE_ERR_SHARE        :result:=BadResult+'发生了一个访问共享冲突';
           else
               result:=inttostr(exechandle); //返回执行程序的句柄
           end;
         end;
creaeprocess()
用Winexec(Exe的路径+文件名,sw_show)
uses ......,ShellAPI;

......

shellexecute(0, 'open', 可执行文件名, 参数, nil, 0);
用winexec(文件名,窗体状态)即可
uses ......,ShellAPI;

.......
shellexecute(handle,'open','exe文件路径','','exe文件工作路径',SW_SHOWNORMAL) 

调用查找,不如自己做一个吧,用API,不过很繁,用Delphi处理文件系统也行啊。
走苹果的路子!Jawbone推低端健身追踪设备 专访POWER 8编程挑战赛选手吴亮:集众家之长, 激发算法性能极限 微信沟通接口上线,开启移动应用与公众号的连接 【特惠最后1天】参加深圳微信开发者大会赠书及全套讲师讲义(附大会最新日程) 编码运行两不误!KZPlayground,Objective-C中的Playgrounds 专访PopCap:AR是数字与物质世界的调和剂 【多图】Github编程语言分布统计:JavaScript称霸 【最具价值CTO评选秀】途家美女CTO杨孟彤:不创业会后悔 2014腾讯WE大会:开启未来的五大科技发展趋势 TIOBE 2014年11月编程语言排行榜:R受大数据影响跃至12位 深圳微信开发者大会全部议程出炉 最后仅剩30个参会名额 智能硬件:一半海水,一半火焰 聚焦SDN、NFV、云安全基础架构等技术热点 2014云安全联盟高峰论坛即将召开 富Web应用开发的七大原则 应用原型设计毫无压力!开源Sketch插件管理器Sketch Toolbox 【MDCC专访】友盟副总裁焦岳:从36万款App,看今年的热门领域 一切只为经典 微信开发者大会前瞻(附议程) 从手势识别到增强现实,开发实感应用该了解的技术细节 福利来了,爱拍原创免费为iOS版手游制作宣传视频 【工具推荐】Zrender——轻量级Canvas类库,让绘图大不同! 基于Docker和CoreOS的开源PaaS平台——Deis v1.0正式发布! 微软宣布.NET开发环境开源 支持三大操作系统 爆发吧,诺基亚!前员工开发物联网新设备 详解Visual Studio Emulator for Android,微软的Mobile First! HPC China 2014完美落幕,AMD Firepro荣获好评! 揭秘微软的Container技术之一Drawbridge AWS副总裁谈数据中心网络打造 【最具价值CTO评选秀】出门问问CTO雷欣:从技术极客到核心管理的秘密 《近匠》APICloud:“云”+“端”一体的移动API提供者 Oculus移动SDK发布!John Carmack操刀、集成Unity 4.5 11月15日深圳见!深圳微信开发者大会公布全部议程 盼望高手指教 小弟想请教众位高手一人关于intraweb 这组控件的一个小问题,还望大家不吝赐教,100分送上! keyboard err or no keyboard present 相信这是一个不可回避的问题:有关VB和SQL,欢迎有兴趣者前往... 如何确定一个treeview下的node是否有子节点? 庆祝菜鸟程序员联盟成立,特来散分~~ 中文转换问题!!在线等待!! php安装在编译时有个vpopmail的选项是有什么用的? 100分紧急求救,SQL Server 2000日志问题 为什么三层结构下某些小数不能保存? 100分求助,关于图形处理 庆祝菜鸟程序员联盟成立,特来散分~~ 请问如何设置wingate的server端? 请帮忙给一个能在短时间内做成一个网站(功能很简单)的思路 如何创建一个DialogBar 有关目录问题。 .................寻找最佳方法::『关于关键字检索』(参与有分!) 有谁做过小波分析的分解及重构程序 口误(爆笑) 救命阿 急!在线等 如何补捉MSCOM控件的错误消息? 如何查看dll中的函数,不是引出函数 有没有初恋(第一次)的对象就成了自己的伴侣的? 在线等待,马上送分:怎样将Query查询的数据集全部删除,数据库SQL中的数据也删除 iostream.h 和 iostream的区别 我新建了一个dialog,我想让他在程序一开始出现 为什么在win xp 下安装vc7.0后不能导入图片资源? 请问用C++ 如何打开数据库 请教高手有关C#的DLL的使用???? 我想找一个比较好的菜单系统,哪有呢? iis5.0中的调试能不能做到象在pws中一样轻松? 在线等待,马上送分:怎样将Query查询的数据集全部删除,数据库SQL中的数据也删除 大家一定遇到过同样的问题!有好办法吗? 如何扩充linux的硬盘空间? 关于JBuilder7的注册码和key 一点小问题,请帮帮忙 请教:哪边有详细介绍使用VBSQL对DB库API编程的?? 急!!!我用push模式把dataset的值在运行时,动态赋给crystal report, 在有.net的开发环境中运行没有任何问题,可是在只有发布后,执行 在线等待,马上送分:怎样将Query查询的数据集全部删除,数据库SQL中的数据也删除 linux下的图形处理程序,哪里可找到? EJB菜鸟级问题,我有分可捐赠,那位要请在这里说 报错的原因(Invalid cursor state) infopower有没有for BCB5的呢??哪里可以下载?? 奇怪的现象! 关于接口 请大家提供方案 同志们我想问的是高程中考的是标准C还是C++ SQL查询结果问题 在Delphi中我如何得到,打印机任务个数? 刚上来散分了 安装softice后,机器不能启动了!!!!!!
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘