ShellExecute的功能是运行一个外部程序(或者是打开一个已注册的文件、打开一个目录、打印一个文件等等),并对外部程序有一定的控基档兆制。有几个API函数都可以实现这些功能,但是在大多数情况下ShellExecute是更多的被使用的,同时它并不是太复杂。 返回值: 执行成搏租功会返回应用程序句柄 返回的HINSTANCE可以将它转换为一个整数(%d),蠢亏并比较它的值大于还是小于32或比较它的错误代码 返回值大于32表示执行成功 返回值小于32表示执行错误 返回值可能的错误有: = 0 {内存不足} ERROR_FILE_NOT_FOUND = 2; {文件名错误} ERROR_PATH_NOT_FOUND = 3; {路径名错误} ERROR_BAD_FORMAT = 11; {EXE 文件无效} SE_ERR_SHARE = 26; {发生共享错误} SE_ERR_ASSOCINCOMPLETE = 27; {文件名不完全或无效} SE_ERR_DDETIMEOUT = 28; {超时} SE_ERR_DDEFAIL = 29; {DDE 事务失败} SE_ERR_DDEBUSY = 30; {正在处理其他 DDE 事务而不能完成该 DDE 事务} SE_ERR_NOASSOC = 31; {没有相关联的应用程序} 示例: 下面的示例演示如何启动一个应用程序或将文档加载到其关联的应用程序。Windows API ShellExecute() 函数是文档的不同于 Visual Basic Shell() 函数,可以将 ShellExecute() 函数传递的名称,它将启动关联的应用程序,然后将文件名传递给应用程序。 在 Visual Basic 中开始一个新项目。默认情况下,将创建 Form1。 将以下代码添加到 Form1 的通用声明部分: Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As String, ByVal lpszFile As String, ByVal lpszParams As String,ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long Private Declare Function GetDesktopWindow Lib "user32" () As Long Const SW_SHOWNORMAL = 1 Const SE_ERR_FNF = 2& Const SE_ERR_PNF = 3& Const SE_ERR_ACCESSDENIED = 5& Const SE_ERR_OOM = 8& Const SE_ERR_DLLNOTFOUND = 32& Const SE_ERR_SHARE = 26& Const SE_ERR_ASSOCINCOMPLETE = 27& Const SE_ERR_DDETIMEOUT = 28& Const SE_ERR_DDEFAIL = 29& Const SE_ERR_DDEBUSY = 30& Const SE_ERR_NOASSOC = 31& Const ERROR_BAD_FORMAT = 11& Function StartDoc(DocName As String) As Long Dim Scr_hDC As Long Scr_hDC = GetDesktopWindow() StartDoc = ShellExecute(Scr_hDC, "Open", DocName, "", "C:\", SW_SHOWNORMAL) End Function Private Sub Form_Click() Dim r As Long, msg As String r = StartDoc("C:\WINDOWS\ARCADE.BMP") If r <= 32 Then 'There was an error Select Case r Case SE_ERR_FNF msg = "File not found" Case SE_ERR_PNF msg = "Path not found" Case SE_ERR_ACCESSDENIED msg = "Access denied" Case SE_ERR_OOM msg = "Out of memory" Case SE_ERR_DLLNOTFOUND msg = "DLL not found" Case SE_ERR_SHARE msg = "A sharing violation occurred" Case SE_ERR_ASSOCINCOMPLETE msg = "Incomplete or invalid file association" Case SE_ERR_DDETIMEOUT msg = "DDE Time out" Case SE_ERR_DDEFAIL msg = "DDE transaction failed" Case SE_ERR_DDEBUSY msg = "DDE busy" Case SE_ERR_NOASSOC msg = "No association for file extension" Case ERROR_BAD_FORMAT msg = "Invalid EXE file or error in EXE image" Case Else msg = "Unknown error" End Select MsgBox msg End If End Sub 特殊用法: 如果将FileName参数设置为“http:”协议格式,那么该函数将打开默认浏览器并链接到指定的URL地址。若用户机器中安装了多个浏览器,则该函数将根据Windows 9x/NT注册表中http协议处理程序(Protocols Handler)的设置确定启动哪个浏览器。 格式一:http://网站域名 如:ShellExecute(Handle, "open", "http:// ; www.neu.edu.cn", "", "", SW_SHOWNORMAL); 格式二:http://网站域名/网页文件名 如:ShellExecute(Handle, "open"," http:// ; www.neu.edu.cn/default.htm","","", SW_SHOWNORMAL); 如果将FileName参数设置为“mailto:”协议格式,那么该函数将启动默认邮件客户程序,如Microsoft Outlook(也包括Microsoft Outlook Express)或Netscape Messanger。若用户机器中安装了多个邮件客户程序,则该函数将根据Windows 9x/NT注册表中mailto协议处理程序的设置确定启动哪个邮件客户程序。 格式一:mailto 如:ShellExecute(Handle,"open", "mailto:", "", "", SW_SHOWNORMAL);打开新邮件窗口。 格式二:mailto:用户账号@邮件服务器地址 如:ShellExecute(Handle, "open"," mailto:who@mail.neu.edu.cn", "", "", SW_SHOWNORMAL);打开新邮件窗口,并自动填入收件人地址。若指定多个收件人地址,则收件人地址之间必须用分号或逗号分隔开(下同)。 格式三:mailto:用户账号@邮件服务器地址 subject=邮件主题&body=邮件正文 如:ShellExecute(handle, ‘open’, ‘ mailto:who@mail.neu.edu.cn?subject=Hello&Body=This is a test’,"", "", SW_SHOWNORMAL);打开新邮件窗口,并自动填入收件人地址、邮件主题和邮件正文。若邮件正文包括多行文本,则必须在每行文本之间加入换行转义字符%0a。 例子(delphi): 在一个应用程序调用c:\Project1.exe; ShellExecute(handle, 'open',"c:\Project1.exe",'字串内容',"", SW_SHOWNORMAL); 在Project1.exe里可以调用: procedure TForm1.FormCreate(Sender: TObject); var i:integer; begin for i:=1 to paramcount do if ParamStr(i)<>'' then showmessage(ParamStr(i)); end; 最后的那个参数,为窗口指定可视性方面的一个命令。 请用下述任何一个常数 SW_HIDE 隐藏窗口,活动状态给另一个窗口 SW_MINIMIZE 最小化窗口,活动状态给另一个窗口 SW_RESTORE 用原来的大小和位置显示一个窗口,同时令其进入活动状态 SW_SHOW 用当前的大小和位置显示一个窗口,同时令其进入活动状态 SW_SHOWMAXIMIZED 最大化窗口,并将其激活 SW_SHOWMINIMIZED 最小化窗口,并将其激活 SW_SHOWMINNOACTIVE 最小化一个窗口,同时不改变活动窗口 SW_SHOWNA 用当前的大小和位置显示一个窗口,不改变活动窗口 SW_SHOWNOACTIVATE 用最近的大小和位置显示一个窗口,同时不改变活动窗口 SW_SHOWNORMAL 与SW_RESTORE相同
相关文章
-
C#中List<>的用法?
2023-04-15 10:22 阅读(616) -
between的用法
2023-04-13 13:29 阅读(541) -
rise和raise的区别和用法是什么?
2023-04-13 06:36 阅读(587)
1 as muchas的用法是什么
596 阅读
2 popular用法及搭配
541 阅读
3 第三人称单数的用法
579 阅读
4 请问 apply 的用法有哪些(具体一些)?
566 阅读
5 什么是C语言程序设计?
536 阅读