用Shell语句调用系统“创建快捷方式”向导。 新建一个项目，在窗体上放一个按钮，双击此按 钮，加入以下代码： Private Sub Command1_Click() Open App.Path ＆ "\temp.lnk" For Output As
#1 Close #
1 '以上两句在程序所在目录建立一个临时文件 Shell "Rundll32.exe AppWiz.Cpl，NewLinkHere "＆ App.Path ＆ "\temp.lnk" End Sub （注意：Shell语句中NewLinkHere后面跟着一个 空格才是引号，否则将出错。） 调试，按一下命令按钮，“创建快 捷方式”向导出现了，如果创建成功，快捷方式将取 代临时文件temp.lnk的位置，如果选取消，temp.lnk 也会自动消失。当然，您可以在硬盘的任意位置建立 temp.lnk。

Shell语句只能调用可执行文件，即 exe、com、bat和pif文件，当需要调用其它文件时，可以用到Windows提供的 Rundll32.exe1．要打开设置系统时间的控制面板文件 （Timedate.cpl),只需运行如下代码： Shell "Rundll32.exe Shell32.dll,Control_RunDLL Timedate.cpl" 至于打开其他控制面板文件，相信您一定能够举 一反三，尝试一下，换个文件名就成了。 2．要运行某一快捷方式（*.lnk）则可以用以下 代码： She11 "Rundll32.exe url.dll, FileProtocolHandler X" (X代表要运行的文件，包括 路径，下同。 3. 也可以这样写来打开ActiveMovie控制： Shell "RUNDLL32.EXE amovie.ocx，Rundll",1 而用Shell "RUNDLL32.EXE amovie.ocx，Rundll /play X",1 将直接播放媒体文件。 4. Shell "rundll32.exe desk.cpl，InstallScreenSaver X”当然是安装屏幕保 护啦，如果你写了一个屏幕保护程序，那么可以在安 装程序中写上它，而不一定要装到system目录下。顺 便提一下，VB不是自捞一个“Application Setup Wizard”么？它的VB源代码都在安装目录下的 “\setupkit\setup1”中放着呢，好好把它研究一下。 你完全能做出富有个性的安装程序来。 5.按住shift键，右击某一文件，菜单中会出现 “打开方式”选项，这也许已不是什么秘密。但现在， 用shell "rundll32.exe shell32.dll OpenAs_RunDLL X" 便能直接调用“打开方式”框。 6. 甚至能用这样一句来打印文件（包括HTML所 支持的所有文本与图像格式): Shell "rundll32.exe MSHTML.DLL，PrintHTML X”, 1 怎么样？是不是小有收获呢？这下，您一定会对 Rundll32.exe这个平时不起眼的文件另眼相待了，它 可是系统运行必不可少的部件呢！其实 Shell＋Rundll32还能调用其他许多系统功能，比如关 于NetMeeting和Telnet方面的。如果您有兴趣，可以 到往册表的“我的电脑＼HKEY_CLASSES_ROOT＼”或“我 的电脑\HKEY_LOCAL_MACHINE\Software\CLASSES”下 去看看