关于系统的问题,如何把应用程序假如快速启动栏

[kenryHuang]

如何把应用程序假如快速启动栏?用程序实现

[kenryHuang]

如何建立lnk 文件

[kenryHuang]

如何建立lnk 文件

[ynhelian]

listen

[Seedling]

Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
Sub Command1_Click()

Dim lReturn As Long
'添加到启动组
lReturn = fCreateShellLink("\启动", "Shortcut to Calculator", "c:\windows\calc.exe", "")

End Sub
'windows中文版
'将上述 c:\windows\calc.exe 换成你要的 .exe文件名(包括路径)即可。

[tianye]

'FORM里做几个COMMAND按钮，起名是cmdadd
Private Declare Function OSfCreateShellGroup Lib "Vb5stkit.dll" Alias "fCreateShellFolder" (ByVal lpstrDirName As String) As Long
Private Declare Function OSfCreateShellLink Lib "Vb5stkit.dll" Alias "fCreateShellLink" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String) As Long
Dim lresult As Long
Private Sub CmdAdd_Click()
Dim lresult As Long
'在桌面创建快捷方式
lresult = OSfCreateShellLink("..\..\desktop", App.EXEName, App.Path & "\" & App.EXEName, "")
End Sub
Private Sub CmdAdd2_Click()
'在开始菜单\启动里创建快捷方式
lresult = OSfCreateShellLink("..\..\start menu\启动", App.EXEName, App.Path & "\" & App.EXEName, "")
End Sub

[TechnoFantasy]

在快速启动栏目录下建立一个lnk文件