Crear accesos directos

Qwerty
11 de Junio del 2004
Hola a todos,

Seguro que lo que os voy a pedir es muy simple. Necesito la función en Visual Basic 6 que pueda crear un acceso directo de un programa determinado en el Escritorio de Windows.

¡Gracias!

molen
11 de Junio del 2004
[usa esta API]
http://www.mentalis.org/apilist/fCreateShellLink.shtml

[ejemplo que te da mentalis]:

Private Declare Function fCreateShellLink Lib "VB5STKIT.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
Private Sub Form_Load()
'KPD-Team 1999
'URL: http://www.allapi.net/
'E-Mail: [email protected]
' -> code by Raist Lin
'Create a shell link on your desktop
lngresult = fCreateShellLink("....Desktop", "LINK", "C:myfile.exe", "")
End Sub