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

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

编辑:说三道四文库 发布时间:2017-12-18 07:42
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处理文件系统也行啊。
窗口建立和关闭时的特效-Delphi资料 窗口中状态行的显示-Delphi资料 动态提示的可视化实现-Delphi资料 动态修改显示器分辨率-Delphi资料 对数据库中的数据进行处理-Delphi资料 改变壁纸-Delphi资料 改变元件的视窗式样-Delphi资料 给MDI主窗口加背景-Delphi资料 更改StatusBar为黑底绿字-Delphi资料 画布的圆拷贝和直线拷贝-Delphi资料 回车替Tab下移控件-Delphi资料 获取系统颜色-Delphi资料 渐变色窗口背景-Delphi资料 控件深度投影和阴影效果的实现-Delphi资料 控制Delphi的窗口显示位置 控制Form不能放大、缩小、移动、关闭-Delphi资料 控制系统菜单-Delphi资料 利用Delphi实现支持窗体的自定义函数 轻轻松松在DELPHI3.0中实现三态按钮 全部窗体可使用鼠标移动-Delphi资料 让按钮连续工作--兼谈Delphi元件开发 让彩色光标出现在Delphi程序中 让彩色光标出现在程序中-Delphi资料 在Windows桌面的任务栏上有一个凹陷的区域,其中显示着系统时钟以及一些图标,这个长方形的区域便 如何使用Show方法来显示一个模态窗口-Delphi资料 如何旋转字体-Delphi资料 如何隐藏和显示Windows的任务条-Delphi资料 如何在DELPHI界面上运行可执行文件 设计Form时的快捷键-Delphi资料 生成非矩形窗口-Delphi资料 时隐时现的鼠标-Delphi资料 热键然后更改 换工作了,散分!!! 大家来看看[CSDN总版主的立法和执法],就会知道为什么水园的执法者如此猖狂了 请用这则给下面这个替换字符 局域网2000系统如何设置计算机描述(50分)? 强答题:请听好题"请问如何在可编辑的列表框中显示你想输入的字符串,而且可以输入多行?",开始! 下面两个操作,哪种效率高一些?或者还有什么更好的方法,谢谢! 简单问题,马上结账 ^在Delphi中是什么操作符? 各们兄台,小弟有急事相求,在线等~~~~~~~~~~~~~~~~~ 关于新闻发布时内容显示的问题 请教Tab Control的使用 microsoft jdbc for sqlserver2000 result 如何将指针移到首位!!在线等急!!! 谁有CVS下载?我去官方网站的下载,根本没有安装文件。 JSP中新建文件夹的问题 关于地图的问题,谁能解决啊? 怎样获取点击或按下winform上 [×]按钮时的事件 在服务器端执行一个 在客户端弹出对话框的程序? 如何不让局域网上的其他机用二级代理上网. oracle 表空间问题 哪位老大知道DBF的格式。 新手想请问关于刚学图象处理先学哪些?即先从哪入手? 请问关于函数挂接的问题 学习中的、已经学好的、准备学习java的朋友来看看 如何在一个线程里创建一个窗体? 难题,,,,(马上结) 怎样使windows service能接受其他程序的调用? ADO+ACCESS问题 十万火急!怎样在ASP.net(C#)中调用OCX对象 如何填充一个封闭的区域 吉林延边发生多起朝鲜警备队员越境抢劫杀人案件 perl有比较好的ide吗????? FilenameFilter用声明吗?? 怎样将两张表中相关数据绑定到DropDownList 请问java 中如何实现大小写不敏感的字符串替换???谢谢 超级头痛:如何找到DataList里的RadioButton? 权限设定时奇怪问题? 200分相送,如何写一个divx的编码过滤器 求一 SQL 语句的写法 高手来看!!!!如何在BCB程序中打开Oracle数据库 在串口通信中怎样解除waitcommevent()的等待 快三十岁了,适合再当程序员么? 小弟急着连数据库,搞不明白怎样连,拜托 怎么得到一个进程的句柄 ADO+ACCESS问题 谁能告诉我windows server 2003的显卡驱动到哪里下载 用DataOutPutStram的writeUTF写文件时开头总出现两个字符的乱码? 关于IMAIL6.0外发邮件问题 是个关于表单的问题? 小问题,在线等 谁能告诉我windows server 2003的显卡驱动到哪里下载 global文件竟然没有,为何???---waiting!!! 移动光纤只看到信号不能上网怎么回事 是这里吧27 3 24y 9分之8a追问你的意思是我第一步的11分之12算错了?2014-02-11 11:18回答不是你算的是铝,你不能把镁的11分之12带进去,应该是9分之8a.对11分之12也能算,不过y=32分之33a我怎么算不出来 什么动物最多 孙泰克己为人文言文原文+加点字解释最好是初中《文言文助读》的! 窥深悸魄中“悸”的意思 EXCEL中的IF函数怎么用啊?我想表达:如果B1不显示任何数据,那么C1=A1; 如果B1显示数据,那么C1=(A1+B1)/2. 我认为有时光机就有共产主义社会, intimidate是什么意思 为什么逆变器空载或短路会烧功率管 自制逆变器空载开机电流大1A多,功率管IRF1010发烫什么原因自制逆变器空载开机电流大1A多,前级驱动没问题功率管IRF1010发烫,频率有五六十HZ开始用的黑白电视机电源变压器不知是何原因场效 三棱锥o-abc三条棱OA-OB-OC两两相互垂直,且有OA=OB=OC=1 M是AB边的中点,则OM与平面ABC所构成的角的大小____(用反三角函数表示)acttan根号2由题意这个三棱锥为正三棱锥,不难得出角OMC就是OM与平面ABC 坦桑尼亚当局在一中国人家中查出180日本浜名湖渔船失火 恰逢货船经过救起日本九州遭遇雾霾 政府呼吁民众尽量减玻利维亚北部发生坠机事故 已致8人死印度将发射火星探测器 被指火星探测失评论:新一轮财税体制改革应有新突破美国务卿称美国永远不会允许伊朗有核武民调显示超3/4德国人认为美国国安局克里开启中东之行 欲修复美国与沙特关罕见日食现象横扫非洲 遇恶劣天气仍壮日本进行最大规模军事演习 日媒受压力日本若派全球鹰巡钓鱼岛 中日冲突几率中国抽象艺术展亮相偏锋画廊推新人(图大陆学者质疑“台独”党纲 赖清德:尊助力中国大运河申遗 66对新人行汉代马鼎盛:中国不止DF-21D 还有反助力中国大运河申遗 66对新人行汉代台军方办人才招募展精良武器任民众学习若不连任 宋楚瑜选新北?朱立伦:这种“同场不同台”连胜文奔讨握手 马英九台湾“牛肉”灌水增重 猪肉、羊肉也不谈“勇固案” 马英九:绝不废海军陆战水浒宋江新传艳遇加身妖孽纵炙炼穿越旅行葫芦仙修玄记助践为孽大道天数死亡梦记蛮荒大巫师蓬莱极地海洋世界旅游白马寺旅游王城公园旅游泰州老街旅游木格措旅游泸定桥旅游长隆海洋王国旅游花城广场旅游广东省博物馆旅游南方长城旅游五大连池地质公园旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘