Às vezes, queremos adicionar um atalho ao nosso programa. Claro, depois que o programa for instalado, podemos fazer isso clicando no arquivo executável do nosso programa, clicando com o botão direito e selecionando Adicionar atalho na área de trabalho. implementá-lo através da programação. Podemos chamar funções de API para conseguir isso. O código-fonte é fornecido abaixo:
Função de declaração privada fCreateShellLink Lib vb5stkit.DLL (ByVal _
lpstrFolderName como string, ByVal lpstrLinkName como string, ByVal _
lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
Sub MakeShortCuts privados()
Dim lReturn As Long
Dim MyPath como string
Dim MyName como string
MeuCaminho = App.Path
MeuNome = App.EXEName
'Adicionar à área de trabalho
lReturn = fCreateShellLink(../../Desktop, _
Atalho para Net Timer, MyPath & / & MyName, )
'Adicionar ao grupo de inicialização
lReturn = fCreateShellLink(/start, Atalho para Net Timer, _
MeuCaminho & / & MeuNome, )
Finalizar sub
Que tal? É muito simples, certo?