—————————————————————
用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);
* 用WindowsExplorer打开一个文件夹:
ShellExecute(Handle, ‘explore’,PChar(‘c:\windows)’,nil, nil, SW_SHOW);
*运行一个DOS命令并立即返回:
ShellExecute(Handle, ‘open’,PChar(‘command.com’), PChar(‘/c copy file1.txtfile2.txt’), nil, SW_SHOW);
*运行一个DOS命令并保持DOS窗口打开 (“stay inDOS”):
ShellExecute(Handle, ‘open’,PChar(‘command.com’), PChar(‘/k dir’), nil,SW_SHOW);
Delphi中调用执行Windows的exe文件
最新推荐文章于 2024-06-18 11:48:33 发布