A veces queremos agregar un acceso directo a nuestro programa. Por supuesto, después de instalar el programa, podemos hacerlo haciendo clic en el archivo ejecutable de nuestro programa, haciendo clic derecho y seleccionando Agregar acceso directo al escritorio. Pero a veces queremos agregar un acceso directo a nuestro programa. implementarlo a través de la programación. ¿Qué hacer? Podemos llamar a funciones API para lograr esto. El código fuente se proporciona a continuación:
Función de declaración privada fCreateShellLink Lib vb5stkit.DLL (ByVal _
lpstrFolderName como cadena, ByVal lpstrLinkName como cadena, ByVal _
lpstrLinkPath como cadena, ByVal lpstrLinkArgs como cadena) siempre y cuando
Sub MakeShortCuts privados()
Atenuar lRegresar mientras
Atenuar MyPath como cadena
Atenuar mi nombre como cadena
Mi ruta = ruta de la aplicación
MiNombre = App.EXEName
'Agregar al escritorio
lReturn = fCreateShellLink(../../Escritorio, _
Acceso directo a Net Timer, MyPath y/y MyName,)
'Agregar al grupo de inicio
lReturn = fCreateShellLink(/start, acceso directo al temporizador de red, _
MiRuta y/y MiNombre, )
Subtítulo final
¿Qué tal? Es muy simple, ¿verdad?