有时，我们想给自己的程序也加一个快捷方式，当然程序安装后，我们可以通过点击我们程序的可执行文件，右击选择添加桌面快捷方式来实现，但我们有时想通过编程自动实现，这怎么办呢？我们可以调用API函数来实现，下面给出了源代码：
Private Declare Function fCreateShellLink Lib "vb5stkit.DLL" (ByVal _lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal _lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As LongPrivate 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
怎么样，很简单吧
本文源自：翔宇亭——IT乐园（http://），转载请保留此信息！
最新文章
热门文章
猜你喜欢
