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

文章出处：网络转载 作者：未知　发布时间：2006-07-28
摘要本文以VisualBasic为例，介绍了在使用调用外部程序的办法实现以下五种功能的方法：1）关机和重新启动；2）使用缺省（默认）的程序打开文件或链接；3）调用"资源管理器"；4）复制和移动文件夹；5）把DOS程序的屏幕显示信息写入文件。
关键词VisualBasic,Shell函数，外部程序

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