如何在 VB 中使用 ExitWindowsExec() 功能来运行 MS-DOS 批处理文件

注意:这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇,语法或文法的问题,就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量,但是我们不保证机器翻译的正确度,也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。

点击这里察看该文章的英文版: 147806
本文已归档。它按“原样”提供,并且不再更新。
概要
ExitWindowsExec() 函数终止 Windows、 运行指定的 MS-DOS 应用程序,然后重新启动 Windows。本文中的信息说明如何从 Microsoft Visual Basic 中调用此函数。
更多信息
若要替换的处于活动状态时 Windows 正在运行的 Windows 组件 ExitWindowsExec() 函数通常用于由安装程序。 通常情况下,您要执行复制时 Windows 暂时关闭该文件将 MS-DOS 批处理文件运行。对于 ExitWindowsExec() 声明如下所示:
   ' Place the following declaration on one, single line:  Private Declare Function ExitWindowsExec Lib "User" (ByVal lpszExe As String,      ByVal lpszParams As Any) As Integer				

第一个参数: lpszExe $

ExitWindowsExec(),lpszExe $ 的第一个参数应包含您要运行的可执行文件的完全限定的路径的字符串。 此字符串必须包含不超过 127 个字符。为批处理文件需要与文件--C:\DOS\COMMAND.COM 指定 COMMAND.COM。若要获取完全限定的路径以 COMMAND.COM Visual Basic 中,您可以使用 Environ $ 函数:
   lpszExe$ = Environ$("COMSPEC")				

有关 Environ $ 函数的详细信息,请参阅 Microsoft Visual Basic 语言参考或帮助菜单。

第二个参数: lpszParams $

对于 ExitWindowsExec(),lpszParams $ 第二个参数应为一个字符串,其中包含可执行文件的任何必要参数。是否需要任何参数传递的长整数 0 0 如和。

若要执行批处理文件,但是,这是您在其中指定路径批处理文件以及任何所需的参数。此外,您需要使用/c 开关指示要调用的 COMMAND.COM 副本的 MS-DOS 字符串之前加上。下面是一个示例:
   lpszParams$ = "/C C:\DIRNAME\GENERIC.BAT  PARAMETER1 PARAMETER2"				

此函数的返回值为 False 时函数失败。

分步示例

  1. 使用记事本在 Windows 中的,或者在 MS-DOS 中的编辑称为 C:\RUNIT.BAT 硬盘的根目录中创建一个批处理文件。为其指定以下内容:
       @echo off   echo Making Backup of autoexec.bat   copy c:\autoexec.bat c:\*.bak   echo Done						
  2. 在 Visual Basic (Alt,F,N) 中启动新项目。默认情况下创建 Form1。
  3. 将下面的声明添加到窗体的通用声明部分:
       ' Place the following declaration on one, single line:   Private Declare Function ExitWindowsExec Lib "User" (ByVal lpszExe As String, _      ByVal lpszParams As Any) As Integer						
  4. 将一个 (Command1) 的命令按钮添加到该的表单,并将下面的代码放入 Click() 事件中。
       Private Sub Command1_Click ()      sComspec$ = Environ$("COMSPEC")      ret% = ExitWindowsExec(sComspec$,  "/c c:\runit.bat")   End Sub						
  5. 保存项目 (Alt,F,V)。然后按 F5 键运行该程序。 单击命令按钮,退出 Windows、 运行该批处理文件和然后重新启动 Windows。
vbwin vb416 4.00

属性

文章 ID:147806 - 上次审阅时间:09/30/2013 20:37:30 - 修订版本: 1.1

Microsoft Visual Basic 4.0 专业版, Microsoft Visual Basic 4.0 16-bit Enterprise Edition

  • kbnosurvey kbarchive kbmt kbwndw KB147806 KbMtzh
反馈
ERROR: at System.Diagnostics.Process.Kill() at Microsoft.Support.SEOInfrastructureService.PhantomJS.PhantomJSRunner.WaitForExit(Process process, Int32 waitTime, StringBuilder dataBuilder, Boolean isTotalProcessTimeout)