加载中…
个人资料
刘先生
刘先生
  • 博客等级:
  • 博客积分:0
  • 博客访问:122,524
  • 关注人气:8
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
相关博文
推荐博文
谁看过这篇博文
加载中…
正文 字体大小:

delphi中调用执行windows的exe文件

(2014-10-22 17:09:46)
标签:

delphi

执行

exe

分类: delphi

delphi中调用执行windows的exe文件

uses ShellAPI,WinExec,WinExecEX,ShellExecute;

--------------------------------------------------------------- 
 
用ShellExecute(Handle,PChar('open'),PChar('calc.exe'),nil,nil,SW_SHOWNORMAL); 
 
前面还要包含ShellApi单元。 
--------------------------------------------------------------- 
 
*:  启动一个程序 
 
ShellExecute(Handle,'open',PChar('c:\test\app.exe'),nil,nil,SW_SHOW); 
 
Winexec(pchar(edit1.text),sw_restore); 
 
 启动记事本  (因为记事本在系统路径下,所以不必写完整的路径名了): 
 
ShellExecute(Handle,  'open',  PChar('notepad'),nil,  nil,  SW_SHOW); 
 
 启动记事本并加载一个纯文本文件: 
 
ShellExecute(Handle,  'open',  PChar('notepad'),PChar('c:\test\readme.txt',  nil, SW_SHOW); 
 
 使用记事本打开一个纯文本文件  (请确定*.txt文件被关联到记事本): 
 
ShellExecute(Handle,  'open',  PChar('c:\test\readme.txt'),nil,  nil,  SW_SHOW); 
 
 使用默认浏览器打开网址: 
 
ShellExecute(Handle,  'open',  PChar('http://www.festra.com/'),nil,  nil,  SW_SHOW); 
 
 打印一个文件: 
 
ShellExecute(Handle,  'print',  PChar('c:\test\readme.txt'),nil,  nil,  SW_SHOW); 
 
 用Windows  Explorer打开一个文件夹: 
 
ShellExecute(Handle,  'explore',  PChar('c:\windows)',nil,  nil,  SW_SHOW); 
 
 运行一个DOS命令并立即返回: 
 
ShellExecute(Handle,  'open',  PChar('command.com'),  PChar('/c  copy  file1.txt file2.txt'),  nil,  SW_SHOW); 
 
 运行一个DOS命令并保持DOS窗口打开  ("stay  in  DOS"): 
 
ShellExecute(Handle,  'open',  PChar('command.com'),  PChar('/k  dir'),  nil, SW_SHOW);

0

阅读 评论 收藏 转载 喜欢 打印举报/Report
  • 评论加载中,请稍候...
发评论

    发评论

    以上网友发言只代表其个人观点,不代表新浪网的观点或立场。

      

    新浪BLOG意见反馈留言板 电话:4000520066 提示音后按1键(按当地市话标准计费) 欢迎批评指正

    新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 会员注册 | 产品答疑

    新浪公司 版权所有