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!
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
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