ShellExecute函数学习

记得曾经用VB调用外部连接一句代码实现了,用到了SHELL函数,在Delphi中需要加入函数所在的单元,Delphi中ShellExecute函数所在的单元是shellapi也就是加入下面代码:
uses shellapi
下面介绍这个函数的用途:
//调用可执行文件:
ShellExecute(Handle, ‘open’, PChar(‘c:\test.exe’), nil, nil, SW_SHOW);
//记事本并打开一个文本文件 (系统知道记事本程序的位置,所以我们不必给出完整路径):
ShellExecute(Handle, ‘open’, PChar(‘notepad’), PChar(‘c:\readme.txt’), nil, SW_SHOW);
//打印一个文档:
ShellExecute(Handle, ‘print’, PChar(‘c:\test.doc’), nil, nil, SW_SHOW);
//打开一个HTML网页,本地的或远程的:
ShellExecute(Handle, ‘open’, PChar(‘http://www.0535code.com/’), nil, nil, SW_SHOW);
//打开HTML帮助文件:
ShellExecute(Handle, ‘open’, PChar(‘c:\windows\help.chm’), nil, nil, SW_SHOW);
//浏览文件夹:
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窗口是开着的:
ShellExecute(Handle, ‘open’, PChar(‘command.com’), PChar(‘/k dir’), nil, SW_SHOW);

发表评论

电子邮件地址不会被公开。 必填项已用*标注

This site uses Akismet to reduce spam. Learn how your comment data is processed.