lpstrFo,标题:建立快捷方式" /> 建立快捷方式 - 关于VB的经验之谈 - VB爱好者乐园(VBGood) - 关于VB的经验,电子教程,代码,控件,论坛,博客,微博等.

VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 建立快捷方式
发表评论(0)作者:, 平台:, 阅读:11687, 日期:2000-03-12
建立快捷方式

Private Declare Function fCreateShellLink Lib "vb5stkit.DLL" (ByVal _

lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal _

lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long


Private Sub MakeShortCuts()


Dim lReturn As Long

Dim MyPath As String

Dim MyName As String

MyPath = App.Path

MyName = App.EXEName

'增加到桌面

lReturn = fCreateShellLink("..\..\Desktop", _

"Shortcut to Net Timer", MyPath & "\" & MyName, "")

'增加到启动组

lReturn = fCreateShellLink("\启动", "Shortcut to Net Timer", _

MyPath & "\" & MyName, "")


End Sub