VB6.0 中使用shell

SHELL语句用法心得
. 调用系统创建快捷方式向导
是否为VB不支持创建快捷方式而于着急呢?虽然 您可以调用vb5stkit紫外光固化树脂Dll中的fCreateShellLink 数,但它是为安装程序设计的,快捷方式的默认路径 总是从当前用户的Start MenuPrograms”中国青年志愿者标志开始,也 就是说,如果您的Windows95装在C盘上,您无法通过 fCreateShellLink函数把快捷方式创建到D盘上去。
现在,给大家介绍一种极为方便、巧妙的方法: Shell语句调用系统创建快捷方式向导。
新建一个项目,在窗体上放一个按钮,双击此按 钮,加入以下代码:
Private Sub Command1_Click()
Open App.Path "\temp.lnk" For Output As #1
Close #1 '以上两句在程序所在目录建立一 个临时文件
Shell " AppWiz.CplNewLinkHere
" App.Path "\temp.lnk"
End Sub
(注意:Shell语句中NewLinkHere后面跟着一个 空格才是引号,否则将出错。)
运行程序,按一下命令按钮,怎么样?创建快 捷方式向导出现了,如果创建成功,快捷方式将取 代临时文件temp.lnk的位置,如果选取消,temp.lnk 也会自动消失。当然,您可以在硬盘的任意位置建立 temp.lnk。好,现在又可以为您的程序增添一项新功 能了。Enjoy
. 的用途
我们知道,用Shell语句只能调用可执行文件,即 execombatpif文件,有时我们想要调用其他一 些系统功能该怎么办呢?此时,Windows凌慧萍提供的 可大显身手了。下面我们来认识一下这 些用法,也许会给您带来一点惊喜。
1.要打开设置系统时间的控制面板文件 Timedate.cpl),只需运行如下代码:
Shell "
Shell32.dll,Control_RunDLL Timedate.cpl"
至于打开其他控制面板文件,相信您一定能够举 一反三,尝试一下,换个文件名就成了。
2.要运行某一快捷方式(我爱土豆*.lnk)则可以用以下 代码:
Shell " url.dll, FileProtocolHandler X" (X代表要运行的文件,包括 路径,下同。
3. 也可以这样写来打开ActiveMovie控制:
Shell "RUNDLL32.Rundll",1
而用Shell "RUNDLL32.Rundll /play X",1 将直接播放媒体文件。太平洋岛国
4. Shell " desk.cplInstallScreenSaver X”当然是安装屏幕保 护啦,如果你写了一个屏幕保护程序,那么可以在安 装程序中写上它,而不一定要装到system目录下。顺
便提一下,VB不是自捞一个“Application Setup Wizard”么?它的VB源代码都在安装目录下的 “\setupkit\setup1”中放着呢,好好把它研究一下。 你完全能做出富有个性的安装程序来。
5.按住shift键,右击某一文件,菜单中会出现打开方式选项,这也许已不是什么秘密。但现在, shell " shell32.dll OpenAs_RunDLL X" 便能直接调用打开方式框。
6. 甚至能用这样一句来打印文件(包括HTML 支持的所有文本与图像格式):
Shell " MSHTML.DLLPrintHTML X”, 1
怎么样?是不是小有收获呢?这下,您一定会对 这个平时不起眼的文件另眼相待了,它 可是系统运行必不可少的部件呢!其实 ShellRundll32还能调用其他许多系统功能,比如关 NetMeetingTelnet方面的。如果您有兴趣,可以 到往册表的2019十大经济年度人物我的电脑\HKEY_CLASSES_ROOT 的电脑\HKEY_LOCAL_MACHINE\Software\CLASSES”下 去看看,本文的内容大都是从那里来的。只要 有足够的决心、信心、耐心,您一定能发现更多有价 值的东西

本文发布于:2024-09-22 07:27:30,感谢您对本站的认可!

本文链接:https://www.17tex.com/xueshu/646937.html

版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系,我们将在24小时内删除。

标签:快捷方式   系统   文件   程序   创建
留言与评论(共有 0 条评论)
   
验证码:
Copyright ©2019-2024 Comsenz Inc.Powered by © 易纺专利技术学习网 豫ICP备2022007602号 豫公网安备41160202000603 站长QQ:729038198 关于我们 投诉建议