发信人: flashboy()
整理人: cobe(1999-12-17 09:59:40), 站内信件
|
一、怎样在VB中创建一个快捷方式？
回答：这里介绍另外一种方法！只要你拥有例如“vb5stkit.dll" 或者"vb6stki
t.dll"在你的系统目录下就可以了（一般来说，VB将程序打包后会自动将这个文
件包含其中，解压时也会自动解压到系统目录）
如果你有的话。即可在模块中进行如下申明：
Public Declare Function fCreateShellLink Lib "vb6stkit.dll" (ByVal For
der As String, ByVal ShortCutName As String, ByVal ExePath As String,
ByVal Params As String) As Long
加了之后，下面我们就来进行一个实例讲解！比如我们要在启动组中添加一个快
捷方式：
Sub Main()
Dim ret As Long
Dim AppStart As String
AppStart = "c:\windows\Start Menu\Programs\启动"
ret = fCreateShellLink(AppStart, "电脑卫士", App.path & "\" & App.EXEN
ame, "")
Msgbox"I have created the shelllink!!"
End Sub
注：参数1是你要创建快捷方式的路径；参数2是你要创建的快捷方式名；参数3是
你要创建的快捷方式所指向的程序路径及程序名；参数4可设置为空串（vbNULLS
tring)
以上方法在WINDOWS98，vb5 与 vb6下都可以通过！但在WINDOWS95下可能没有作
用！
二、怎样在VB中禁止ctrl+alt+del、ALT+TAB、CTRL+ESC?
API:SystemParametersInfo
生效：
Sub Disable()
SystemParametersInfo 97,True,ByVal 1&,0
End Sub
还原:
Sub Enable()
SystemParametersInfo 97,False,ByVal 1&,0
End Sub
TO BE CONTINUE。。。。。。
--
真诚加上信赖这是我的网上原则！
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.103.28.36]
|
|