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

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

编辑:说三道四文库 发布时间:2017-10-20 08:04
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处理文件系统也行啊。
移动周报:雷军做红米的N个理由 Pangea Software CEO:08年App Store游戏降价大战的真相 揭秘MongoDB最新Java驱动:更好的JVM支持,指日可期的异步 不仅只有IE Mozilla将于发布Win8平台Metro版Firefox 360搜索发布新产品“我的搜索” 引入网民评价和网站名片功能 AppScale:Google App Engine的开源实现 近期十大优秀jQuery插件推荐 通过语音识别来编程 速度远超键盘 BrowserStack:多系统跨浏览器兼容性测试工具API发布 更加开放?Path向13家应用开发商开放API 重金力邀开发者 联想智能桌面应用开发大赛开幕 SDCC 2013大会讲师名单议题出炉 8月20日五折票价最后一天 程序员困境:底层编码能力正逐步丧失 寓教于乐 给代码审查者的几点建议 裁员4千、总裁员人数超过7.5万,难掩思科锋芒 物联网离普罗大众还有多远? 悼念斯诺登使用的加密电邮服务——Lavabit架构解析 运营商上阵OTT “一笑泯恩仇”后路在何方 [企业开源系列]后起之秀Facebook凭什么挑战互联网霸主Google? 谷歌推出免费标签管理应用Tag Manager McAfee CTO Phyllis Schneck被任命为NPPD副部长 Bootstrap 3.0发布 更好地支持移动端和响应式开发 国内创业公司QingCloud的魄力:做一个世界级的IaaS服务 从毫秒到微妙,纯硬的闪存阵列IBM Flash System来了! 中科创达邹鹏程:黑客精神逐渐被人遗忘 有点让人感伤 通过讲故事的方式来设计优秀网站 “肮脏的”IT工作排行榜 Clank:带有SCSS的高效率移动应用原型框架 欧朋 CTO 罗志宇:谈Sphinx游戏引擎的前世今生 John Carmack大神亲手操刀,Oculus Rift SDK即将发布 从南极之争谈软件架构十个技巧,及成功团队具备的气质 利用C# 读取系统当前进程的出现问题,帮忙!! 请教高手:怎样在一个窗口里能够输入文本文件(按回车键) 另一个窗口显示出同样的文本 高手在何方 (大力请进)sql字符串处理的问题 上哪能下到exchange 2000,下到马上给分! ado问题? 数据迁移问题??? 怎么把列名选出来? [在线求助]:有什么好的方法可以使得鼠标放上有链接的地方状态栏不显示真实地址? 高手在哪!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 各位大哥﹐何為微创软件开发管理﹖﹖﹖﹖ 3com switch 3300 xm 有网管的功能吗? 关于窗口大小的问题,快来捡分~~~ 为什么2001年前的提问的问题、得分的问题、信誉分变化纪录都不见了。 无法在人才频道上提交简历。。。 请问:wsad4支持滚轮鼠标的插件哪里有下载??? 自动锁定计算机? 请问如何终止一个正在运行的应用程序 无法在人才频道上提交简历。。。 后面数据库为ms sql server2000的时间问题? DoEvents 怎么用?(不好意思,只有这么多分了!) CSDN真让我失望,大家都喜欢回答无聊的问题(不要回复) jdbc中LIKE条件如何使用prepareStatement? 请问,如果想报考系分的话,需要先过高程吗? 请问怎么把Excel形式的表结构导入到Oracle … 请问数据窗口中如何自动记录资料修改的帐户? 我倒要看看谁有本事让javac输出这样的信息? ADSL 可以直联吗? linfeng1216 (林枫) 请来领分。 在java中的暴露事件如何处理? 求PowerDesigner电子书籍资料!急! 有关_SERVER["HTTP_CONNECTION"] 两个窗体 带有setup程序和一堆代码的电子书怎么看? 这个web控件谁能介绍的详细一点 DCOM的配置问题 三国经典故事(女性,18岁以下者勿进) TIME_WAIT问题(100分!!!) linfeng1216 (林枫) 请来领分。 求C++Test2.1的license 我在用ASP.NET编程,请问如何让Datagrid的head显示两行,并且可以合并单元格。在线等 我的程序这样写对不对? 表格宽度的问题! linfeng1216 (林枫) 请来领分。 履约费小计=履约合同费1+履约合同费2 计算问题。 问问unix下进程的问题 javascript中的函数互相调用? 为了我们的生殖健康,坚决反对婚前性行为!!---人类生殖健康的天敌:支原体感染,不是艾滋的艾滋! 大家说说我该不该向这个MM表达? Marshal 问题求救 linfeng1216 (林枫) 请来领分。 一个正方体水池的表面积是80平方分米,缸高16厘米,水原来的高是8厘米正方体水池放入石块后,水深上升到12厘米,求这个石块的体积越简便越好 《咏雪》一文中用哪两句来比喻大雪纷纷的 梨树黑星病的防治有什么? 旗杆外部没有旗绳为什么有的旗杆外没有旗绳,而转轮在旗杆内部,也能升旗.这是怎么回事 夜雨寄北和咏雪用什么和什么来比拟大雪纷纷 7.仿照例句,在下面两句的横线上补写相应的内容.例:如果我是阳光,我将照亮所有的黑暗.如果我是清风,我将--------------- .如果我是春雨,我将------------------. 一道数学问题,详见问题补充.甲圆柱形容器的底面半径是乙圆柱形容器底面半径的2倍(容器直立放置).现以相同流量同时向这两个空容器内注入水,经过一定的时间,甲、乙两个容器内水面的 英语翻译1他们以勇敢为荣耀(honour)2他们用暴力证明自己勇敢(violence) 请问反犬旁再加一个央,和反犬旁加一个茶,家里没有大的词典.实在是不好查啊.只好救助大家了. 辨别古文字还有下面的小字 富士山是活火山吗?什么时候喷发?周期是多少?分析一个地区的地貌特征,要从哪些方面考虑? 梨树得了黑星病怎么办? 小明看到生旗时旗杆上的旗子迎风飘扬,猜想在气球下面系一面旗子,当气球升到空中以后,如果刮起了风,气球下面的旗子也会飘起来吧!于是他动手做实验发现旗子并不会飘起来,他仍然下垂.你 细胞分裂使细胞趋向专门化,提高了机体生理功能的效率这句话为什么是错的? 梨树黑星病怎么治 甲、乙两只蚂蚁,同时从一跟绳子的两端向中间爬,20分钟后相距6米,这时甲爬了全长的40%,乙爬了全长的75%,求绳长. 活火山什么时候喷发 梨树谢花黑星病怎么办 寅和卯的读音 甲开车,发现乙正往反方向步行走去,10分钟后把车停下跑去追乙.已知甲跑步的速度是乙的3倍,汽车的速度是乙的10倍,问甲追上乙需要几分钟? 梨树 桃树 杏树 你不让我我不让你 抓住春天里的花什么特点 子丑寅都指哪段? 线段AB被M分成3:5两段,同时又被点N分成3:1两段,如果MN=12厘米,求线段AB的长. 《咏雪》一文的主要内容 子,丑,寅,牟,辰,巳,戊,未,申,酉,戌,亥.罗马发音火影里的结印手势要用的 This is the reason whyhe late for school为什么用why,why可不可以省 2012的新年手抄报怎么做啊,(要内容,版面设计!)急---------------------- 谢道韫咏絮中,“公大笑乐”的原因是什么?继! 人教版七年级数学上册77页第八题 高中生物细胞增殖部分怎么学?特别是DNA和染色体在什么时候加倍. 日本的活火山有哪些 升旗手护旗手事迹简介开头怎么写字数不要多了! 有哪些细胞不再增殖(高中生物),请全部列举 地球上现在有多少座活火山? 升国旗的时候,护旗手如何把旗撇好,就是出去后,能让旗飘起来护旗手先把旗扬起来,旗手在升,可怎么扬才最佳!希望有经验的同学让告诉我,最好是天安门广场升旗班的同志告诉我! 修一条路,16天完成了全长的百分之48,己知修路队平均每天修60米.这条公路长多少千米? 中国有活火山吗?在哪? 哪位说说升国旗过程中,旗手举旗行进时,四个旗手应让旗面保持在什么样的一个角度? 梨树的资料 要写作文地 算式中的图形用数字代替,使算式成立. 逆转录的过程是病毒侵入活细胞的过程吗 一亩田种紫花苜蓿草需要多少草种 有木有用来形容看不透人心的句子,可以简短,但一定要有深度要有内容,诗也可以的. 我做了一回主.作文 草籽跟草子有什么区别 获一二三等奖的人占总人数的几分之几?其中获一二等奖的人占总人数的五分之三,二三等奖的人占总人数的八分之七 英语翻译即书诗四句,并自为其名.书:____ 为:____日眅仲永环谒于邑人.于: 咏雪 解释词语 兄女 因 兄子 判断题:1-a一定小于1 若对于有理数a,b,有a+b=0,则a=0,b=0.两个数的和一定大于每一个加数.速求正确谢 求以"让我做了一回主''为题目的500作文 用草做动物造型用什么草种好 生日蛋糕上写什么字好诗意的 以 今天我做了一回主 为题写一篇600字文章.初1水平的. 结缕草草籽现在种适合吗?现在种结缕草可以适合吗?该怎么种的啊? 谢道韫 《咏雪》中的名句是那句? 病毒侵入细胞内后 为什么体液免疫可限制病毒移动 咏雪的诗句有哪些? 10米多高的旗子,绳子掉下来了,如何把旗子再换上去呢?绳子如何穿过旗杆顶端的定滑轮?有没有知道的?谢公司里的旗子破了,我打算把它换下来,自己没注意,一个绳子跑到了上面.最后整个绳子 咏雪一文中用____和____来比拟大学纷纷. 解海龙简介 印度开建182米高世界最高雕塑 呼吁王毅:多签免签协议提高中国护照“含金快递员送货路上猝死 多行业过劳现象蔓日本举行国内首次大规模“夺岛”演习印度开建“全球最高”塑像 呼吁民众捐外交部:美方已向中方澄清 无“夺回”美国总统与伊拉克总理谈安全问题土耳其总统警告说大规模杀伤性武器扩散俄总理:美国窃听外国领导人的行为“无桐庐环保局局长办乔迁宴被免职杭州秋石高架半山匝道11月初启用孕妇被车撞伤无人施救 2名村官停车救3名中国专家受邀参与叙利亚化学武器核联大主席称新兴经济体成为促进发展中国运营商公布垃圾短信举报方式 违规号码河南大货车路过徐州遭胡乱罚款 涉事警中储粮掺转基因油续:千吨进口菜子油获印度开建182米高世界最高雕塑 呼吁加沙唯一发电站停运使供电形势严峻美国洛杉矶国际机场发生枪击事件中储粮就掺转基因油事件处分6人 一公中国各地1月23日天气预报吉林政协委员建言:警惕“室内雾霾病”外交部:中方呼吁泰国尽快恢复国家稳定国务院决定改革中央财政科研项目和资金兴蜀军冻库液氨22日晚转运 预计将转省人大代表:尽快出台《四川省电梯安全杨雄、李希等参加政协上海市十二届二次岁月流转玩心依旧的英国人三亚加强旅游市场价格整治迎接春节黄金叙外长称西方媒体有关叙政府虐杀囚犯报年俗礼仪之禁忌中国足球\"重新归零\" 抓青少足球山西纪委通报2013年查处大案要案重习近平主持中央全面深化改革领导小组第他们的马年心愿惺惺相惜! 王皓身披王治郅八一战袍:他们的马年心愿剥夺失职父母监护权要防权力滥用年俗礼仪之压岁钱省人大代表建议:尽快制定出台无障碍设重庆2013年进出口保持两位数增长
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘