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

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

编辑:说三道四文库 发布时间:2017-08-23 12:45
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处理文件系统也行啊。
一周消息树:从程序员到架构师的方法与逻辑 【CTO俱乐部走进海尔】海尔的转型探索之路 十一问MongoDB CTO,谈NoSQL人气王的扩展、事务及运维 腾讯“创业•密码”开发者论坛 ChinaJoy引爆创业者关注 从F1赛车到智能手机,无线充电技术之崛起 助力梦想!MDCC免费为优秀App开发团队提供展位 为Symfony2和Redis正名,基于PHP的10亿请求/周网站打造 【聚焦API】教你如何选择最适合的NLP API服务商? 直接改应用!Flipboard开源iOS应用内调试工具FLEX 专访腾讯游戏运营总经理崔晓春:云时代游戏运营的变革与创新 嵌入式专家Bruce Douglass经验谈 门票销售过半 从2014微信开发者大会购票者特征说起 当来自金星的Devs碰上火星的Ops——共话应用扩展 移动平台市场占有率:Android首次赶超iOS 豌豆荚范怀宇 I/O大会总结:Android无处不在 轻博客始祖Tumblr:哈希以支撑2.3万Blog请求/秒 《近匠》FIR.im:简单易用的内测分发工具 传苹果公司将于9月9日召开新一代iPhone发布会 近百家微信开发商参与征集评选活动 TOP10正浮出水面 Java程序猿,手游引擎怎么选? MDCC 2014优秀移动团队免费展位火热申请中 【微信讲师面对面】你在企业服务号开发中遇到的坑和难点 五个解决方案让MongoDB拥有RDBMS的鲁棒性事务 浅谈Apache Spark的6个发光点 安卓 “假ID” 签名漏洞,竟然骗过了支付宝和360 从Social到Big Data,移动App蚂蜂窝转型推新品 《近匠》nice曹大鹏,从男装导购到潮人社区的心路历程 DevOps扼杀的不是开发者,而是开发生产力! 利用Docker构建开发环境 Netflix公布Cassandra新性能:基于AWS的百万次写入每秒 一周消息树:谷歌Android遭遇“颠覆”危机 session出的问题,高手请进来!! 请问,大连雅奇培训如何?请指点。。。。。。 怎样用header()做下载文件? 关于检测组合键的程序怎样写? 菜鸟问题!!!页面显示后台数据 请问软件包LEDA -- library of the data types and algorithms 哪里有下载的? 如何获得当前页面中的所有Textbox控件集合? 如何对两个表操作???谢谢! java的程序在写Dreamweaver 4里写完不可以直接用,是不是 打印的问题 DELPHI5的资源编辑器用起来很不爽,有没有好点的? 帮帮忙~~~~ 请问软件包LEDA 哪里有下载的?谢谢 ado连接远程数据库是以文件共享方式,还是c/s方式啊? 有没有工作的JAVA程序员吗? 简单的语法问题 vb还是不太会用 求教 最菜的问题 如何保存无法保存的网页? 只要每人献出一点爱,人人都能成为程序员 呵呵,又有问题了 苦恼,大家帮忙啊 关于声音处理的一个问题 求英文资料,急!!! 帮忙解释一下程序,谢谢:) 怎样实现这样的存储过程?高手快来! 用过websnap的进来看一下,巨简单! 调试版本与发布版本的区别? 急等答案, sql的基本表是用一个存储文件表示还是用若干个存储文件表示 我的Windows 2000有时无法关机(重起) ********通过编号找名称!*******求最快的方法!!! 格式化硬盘后安装WIN98过程中为什么出现蓝屏,继续安装下去连软件都安装不了? 请教一个让人郁闷的问题! 寻找一本人民邮电出版社出版的有关 GSM 网络优化的书 请问高手:能不能动态creatLayer? select * ????? 问候大家 晚上好 ,有个问题请教,立即给50分! 怎样使模式对话框最大化显示? 关于socket 十万火急,大哥大姐快救小弟一命!!!考高程的或考过的请帮忙,感激!!! 求救 跟帖 在SERVLET中,页面怎么跳转呢?客户端可以下载指定的ftp文件。。? 一个数据库连接问题??? 挂了双硬盘后,我的光驱不见了,请问怎么办?急!!!!!!!!!!!!!!!! 在SERVLET中,页面怎么跳转呢?客户端可以下载指定的ftp文件。。? 急急急急急! 寻求JB8+Weblogic7的配置! ftp 问题 CFormView有什么优势啊? 请问VB.NET中sln文件是做什么用的??? 你知不知ASP。NET可不可以做出JAVA APPLET 这样的效果?或者VB。NET也可以不? 为什么我的word有时竟然占用了100%的cpu? e t s a 可以组成什么单词 问一道数问题已知代数式x方(a* x的五次方 + b* x的三次方+ cx)/x的四次方+d* x的平方当x=1时,值为1,当x=-1时直是?是-1伐 蚂蚁从10层高的大楼落下为什么安然无恙 黑洞一个小时=地球多少年? 高中政治生活是必修几? 蚂蚁从高处落下为什么不死(简短) w t s e e 能组成什么单词 熬好的中药可以在常温下放多久不坏?(密封状态) 世界上第一个人生得是谁?是谁生的? 黑洞存在了多少年?黑洞是随宇宙诞生一起诞生的吗? 音响led灯我想做一个音响灯,灯是led.问题是用什么电路驱动.要求是这样的,有音频输入,有电源,led会跟着音乐的节奏亮,给个电路图. 条形码 有22个数字的那种是属于哪类条码 a e t s组成什么单词 怎么在音响上连接灯泡让它随着音乐的旋律闪烁?有源音响,但是我想在音响上接一串灯泡让它跟随音乐的旋律闪烁·请问各位大侠该怎么做啊帮帮忙!能不能请各位说的清楚一点啊! 请问这个是什么类型的条码? e、t、a、t、s组成单词 功放机上像电灯泡一样的东西是什么,干什么用的. 炼铁 碳酸钙炼铁时为什么要加碳酸钙?我知道是要和二氧化硅反应,那又是为什么? 世界上有没有无血动物 - 宇宙航行:关于地球同步卫星的说明中不明白的地方……由于同步卫星相对于地面静止,故其必须做匀速圆周运动,而做匀速圆周运动的物体的合外力必总是指向圆心……其中‘而做匀速圆周 有哪些病的病原体是细菌?如题,麻烦多举几个典型的例子. 将一个质量为M,边长为A的正方形均匀木箱放在粗糙水平面上将一个质量为m,边长为a的正方形均匀木箱放在粗糙水平面上,今用力推木箱使其绕一棱翻倒,求推力至少做多少功 答案是(根号2-1)m 日本核危机会污染盐巴吗? 皮肤大面积烧伤的病人,容易被细菌感染,其原因是A非特异性免疫能力降低B由于皮肤真皮内的血管大部分被烧坏,导致酶的活性降低为什么不选B呢? 如图所示质量为m的木箱放在水平面上木箱中的立杆上套着一个质量为m的小球,开始时小球在杆的顶端,由静止释放后,小球沿杆下滑的加速度为重力加速度的二分之一倍,即a等于二分之一g,则小 卡拉ok音响高音会保护如何加灯泡详细步骤或图解我知道在音响里,我是说在分频器上怎么加 4级英语口语何时可以考 质量为M=50kg的木箱放在水平面上,木箱中的立杆上套着一个质量为m=5kg的小球.开始时小球在杆的底端,以16m/s速度向上滑行,滑行的最大高度为8m,则小球在下滑过程中,木箱对地面的压力为多少?希 LED灯条可以直接接上音响吗家里低音炮 可以把LED灯条直接接在喇叭线借口那里吗 我想让灯光跟着音频亮,我是电子白痴 谁知道怎么搞 柏林电视塔有多高. 哲学有什么分类? 怎样记住有氧无氧呼吸公式 我08年6月过的四级,当时561分,现在都09年6月过了,我还能以去年的成绩去考英语口语证么? 运用政治生活说明如何理解当前国际形势的特点 氯化镁溶液是胶体吗?请回答具体些,马上选出最佳答案 有没有五硫化钠? 对的打对号,错的打错号并说明原因 五颜六色是什么动物 无氧呼吸的公式是怎样的 判断的第四第五题打对号还是错号 掏鸟窝 我要四级燕子蛋,送我 要什么鸟蛋交换随挑要四级燕子蛋,加我好友,或留下开心名我加你开心名:罗文菁有5级燕子蛋,4级喜鹊蛋,4级布谷蛋,4级百灵蛋,4级珍珠鸟蛋,4级乌鸦蛋,4级白鸽蛋, 受平衡力的两个力大小相等吗 判断正误 对的打对号 错的打错号 掏鸟窝中怎么加入鸟友会 两力相同指两力的大小、方向、施力物体、受力物体都相同,实质上指的同一个力 这句为什么错? 请问:什么是二维码,具体怎么使用. 掏鸟窝中 什么是处在保护期的鸟蛋?为什么不能掏走? 锚杆长度和数量在设计里有要求吗,计算环向受力怎么样算啊?要重了? 怎么使用二维码?二维码是干什么用的? 关于问问分类我很气愤!分类是为了让想得到答案的人能更便于得到答案,而有些人不管什么分类,就选了,有兴趣的朋友可以去诗词歌赋里看看,没有几个是真正讨论诗词歌赋的!请问你们是怎么 长江的起源在那二 什么是二维码?二维码有哪些新奇应用 那为朋友能帮我买到是高等教育出版社或者是上海外语教育出版社急用! 英语翻译:1.你有养宠物的打算吗? 17岁,一米58正不正常? 大学英语教学大纲通用词汇表 哪里有旧书卖? 当大面积的烧伤护理不当时,易发生感染而引起严重的后果,为什么是由于非特异性免疫能力减弱?人体主要不...当大面积的烧伤护理不当时,易发生感染而引起严重的后果,为什么是由于非特异 s e t w e 都能组成什么单词 急 问一道植物分类题下类植物依次按藻类植物,苔藓植物,蕨类植物,裸子植物,被子植物排列的是( )A 海带,葫芦藓,蕨,银杉,珙桐B 水绵,地钱,胎生狗脊,玉兰,水杉, 大面积烧伤病人,如果护理不当,很容易发生感染,其原因是非特异性免疫功能降低还是特异性免疫功能降低? 美国监听行为激怒欧盟 欧盟各国首脑纷促政府兑现修路承诺 小镇妇女性罢工拒美国19岁学生欲徒步闯南极 14岁曾瑞典家具商为索马里难民提供塑料屋 手日本茨城县一金属加工厂爆炸 两员工严专家:消费升级人口基数大 中国车市仍美国北卡州狂欢活动发生意外事故 致5欧盟主席谈隐私 被称暗示美国搞监视是挪威拒绝美国请求 将不接收销毁叙利亚克里叹美政府关门损形象 他国外交官欲德一男子拒绝受审持枪劫持12名亲友终第二届全国茶艺职业技能竞赛在浙江武义吉尔吉斯斯坦:秋至伊塞克湖【高清组图粉丝自制任天堂智能手机惊现网络澳大利亚最老双胞胎长寿秘诀:不与坏男吉尔吉斯斯坦:探访美丽而濒危的猫科动日本茨城县一金属加工厂爆炸 两员工严美国19岁学生欲徒步闯南极 14岁曾澳大利亚最老双胞胎长寿秘诀:不与坏男促政府兑现修路承诺 小镇妇女性罢工拒沙特前高官批评美国中东政策 或联手埃权健老总:不是为孙可买球队 必兑现3解读《行业协会商会与行政机关脱钩总体中办国办发文提出实现行业协会商会与行孙可:终于可以安心踢球 继续代表家乡国务院:国家助学贷款最长期限统一延长浙江工商与法院银行签约 对失信企业信著名经济学家熊性美教授逝世外交部:海峡两岸中国人都有责任和义务中科招商斥资7亿元举牌5家A股上市公广西南宁公务员连续6年集体无偿献血 广西加快人民陪审员制度改革 当事人获石家庄出台社会信用体系建设规划 加快石家庄滹沱河生态绿廊“花容”初显 东浙江公布企业年报情况:10万户企业将南开成立材料科学与工程学院暨国家新材峨眉山公告称高管买1000股 网友:李源潮与津巴布韦副总统会谈广东:依法对命案高发地区有关官员进行妈妈级模特队亮相南京街头秀旗袍浙江专项治理中小学有偿补课 最高或免长沙工人排队形呼吁关注人口问题
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘