使用调用外部程序函数实现API函数高级功能

使用调用外部程序函数实现API函数高级功能
作者：曹首光 
摘要 本文以Visual Basic 为例，介绍了在使用调用外部程序的办法实现以下五种功能的方法：1）关机和重新启动；2）使用缺省（默认）的程序打开文件或链接； 3）调用"资源管理器"； 4）复制和移动文件夹；5）把DOS程序的屏幕显示信息写入文件。
关键词 Visual Basic, Shell 函数，外部程序

调用调用API 函数可直接使用Windows 底层资源，因此功能强大。然而API函数使用较复杂，易出错。本文将以Visual Basic 6.0中的shell 函数为例，详细说明调用外部程序实现一些windows 高级功能的方法。
一、关机和重新启动Windows
在"开始-运行"对话框或DOS窗口中输入 rundll.exe user.exe,exitwindowsexec命令，Windows 就会重新启动；输入 rundll.exe user.exe,exitwindows，机器关闭。
所以您在Visual Basic 中使用下面两个命令来实现重起和关机：
Shell "rundll.exe user.exe,exitwindowsexec", vbHide '重新启动
Shell "rundll.exe user.exe,exitwindows", vbHide '关闭
二、使用缺省（默认）的程序打开文件或链接
在Windows的Command子目录中有一个Start.exe, 在这个命令后加上一个文件名参数，该文件即可用缺省程序打开。所以在Visual Basic 中可使用下面的代码：
Dim FiletoOpen$
FiletoOpen= "system.ini" 
Shell "Start.exe " & FiletoOpen, vbHide 
注意：1)如果变量FiletoOpen的值为包含长文件名的字符串，以上第三行应为
Shell "Start.exe " & Chr(34) & FiletoOpen & Chr(34) ' Chr(34) 为双引号。
这是因为当参数中的长文件名含有空格时，程序会认为空格以前的部分子符串为一个参数，所以会产生找不到文件的错误。例如要用Winword.exe 打开"C:\my documents\mydoc.doc" 时，如果在 "运行"对话框中输入start.exe c:\my documents\mydoc.doc, 系统寻找的文件是 c:\my 和 documents\mydoc.doc两个文件，所以会出错。正确的命令应当是start.exe "c:\my documents\mydoc.doc"
2）在上面第三行中，Start.exe 后别忘了留空格。
另外程序员也常常希望用户能点击软件上的链接而直接打开自己的主页或给自己写信。用下面的方法可以不另外添加控件而实现这种功能。
Dim url$，email$
url="nwdonkey.uhome.net"
email="mailto:nwdonkey@371.net"
shell "start.exe " & url, vbHide
shell "start.exe " & email, vbHide
三、调用"资源管理器" 
用下面的命令可调用Windows资源管理器，并打开指定的文件夹：
Dim PathtoOpen$
PathtoOpen = "c:\my documents" 
Shell "explorer.exe " & PathtoOpen, vbNormalFocus
四、复制和移动文件夹 
是不是很怀念强大的DOS命令？其实所有的DOS外部命令所能实现的功能，您都能在VB中通过Shell函数来实现。比如您要把一个子目录的包含下一级目录的所有文件复制到另一个位置，可使用下面的代码：
If Dir$("c:\mydos", vbDirectory) = "" Then MkDir "c:\mydos" '在硬盘上新建一个c:\mydos的文件夹。
Shell "xcopy.exe c:\windows\command\*.* c:\mydos/s/e", vbHide
Shell "explorer.exe " & "c:\mydos", vbNormalFocus
同样我们也以用shell 来调用move.exe来实现来实现文件或文件夹的移动。
说明：此方法仅限于外部DOS命令，并需要把参数中的长文件名转换为8.3制文件名，转换似乎可以用API函数实现，我们自己编写了不调用API函数实现这一功能的函数，您如果需要请到http://go.163.com/
~nwdonkey/vb/ 去下载。 
Contributor: NorthWest Donkey 
五、把DOS程序的屏幕显示信息写入文件 
Shell函数不支持DOS内部命令，要想在VB 中使用DOS内部命令，就得使用迂回的办法：先把DOS命令写到一个BAT文件中，然后再用Shell函数调用该BAT文件。如果您是编写DOS批处理的高手，则完全可以先编写好BAT文件，然后再用Shell 函数来调用。另外，大家还记得DOS命令中的管道命令符吧？ 例如〈和〉号可以把一个文件的内容传递到另一个程序中去，也可把DOS应用程序的屏幕输出写到一个文件中去。例如用下列代码可把DOS命令copy的帮助信息写到一个文件中去。
Open "c:\test.bat" For Output As #1 '建立批处理文件
Print #1, "copy/?>c:\copyhelp.txt"
Print #1, "@exit"
Close #1
Shell "c:\test.bat", vbHide
Shell "start.exe c:\copyhelp.txt", vbHide
注意：'test.bat 中最后一句必须是@exit，不然经Shell调用后的批处理文件无法从内存中退出。
这种方法可以把dos 程序中显示在屏幕上的信息写入一个文件，因此对编写一些dos应用程序的windows 版本特别有用。
以上以Visual Basic 为例，讲述了巧用Shell函数实现一些一般不容易实现的功能的方法。一般情况下，其他编程语言也都提供了类似的函数接口，在这些编程环境下也可以轻易实现上述功能。对本文，您如有什么问题请寄信到 nwdonkey@371.net 或到我的主页http://nwdonkey.uhome.net/ 上留言。
河南省洛阳市解放军外国语学院第三系 曹首光