时间:2021-05-02
有时,我们想给自己的程序也加一个快捷方式,当然程序安装后,我们可以通过点击我们程序的可执行文件,右击选择添加桌面快捷方式来实现,但我们有时想通过编程自动实现,这怎么办呢?我们可以调用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://),转载请保留此信息!声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。
1、在首先建立此程序的快捷方式。 2、在此快捷方式图标上单击鼠标右键点“属性”。 3、点击“快捷方式”选
Ubuntu系统创建桌面快捷方式有三种类型:1、普通应用程序的快捷方式;2、终端应用程序的快捷方式;3、给指定的文件夹或位置创建快捷方式。今天小编再来分享一下,
win10怎么在桌面上添加快捷方式?win10怎么添加桌面快捷方式?当我们在win10系统安装程序时,发现桌面上没有该程序的快捷方式,那怎么添加桌面快捷方式
win10怎么在桌面上添加快捷方式?win10怎么添加桌面快捷方式?当我们在win10系统安装程序时,发现桌面上没有该程序的快捷方式,那怎么添加桌面快捷方式
手机桌面快捷方式是一种快速启动程序、打开文件或文件夹的方法。如下: 快捷方式是应用程序的快速连接。快捷方式的一般扩展名为*.lnk。它是一种快捷方式对经常使用