Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Collegamenti a eseguibili!!!! Aiuto!!!!
Forum - Visual Basic 6 - Collegamenti a eseguibili!!!! Aiuto!!!!

Avatar
TheEngi (Ex-Member)
Pro


Messaggi: 145
Iscritto: 30/08/2009

Segnala al moderatore
Postato alle 13:28
Domenica, 30/08/2009
Ciao ho un piccolo problema con un codice che non riesco a creare!
si tratta di un form che ho creato che alla fine copia dei file
da un cd sull'hd.
il problema che voglio che quando finisca la copia (ciclo if basato su progressbar.value)
il programma crei un collegamento sul desktop di un exe copiato in precedenza.
per favore aiutatemi ho il cervello in pappa.
ringrazio in anticipo tutti!!
grazie

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 15:01
Domenica, 30/08/2009
usa questo

Codice sorgente - presumibilmente VB.NET

  1. Option Explicit
  2.  
  3. Private Declare Function VB4CreateShellLink Lib "STKIT432.DLL" Alias "fCreateShellLink" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
  4. Private Declare Function VB5CreateShellLink Lib "VB5STKIT.DLL" Alias "fCreateShellLink" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
  5. Private Declare Function VB6CreateShellLink Lib "VB6STKIT.DLL" Alias "fCreateShellLink" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String, ByVal fPrivate As Long, ByVal sParent As String) As Long
  6. Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
  7. Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
  8.  
  9. Private Enum VersioneVB
  10.     VisualBasicUnknown = 0
  11.     VisualBasic4 = 4
  12.     VisualBasic5 = 5
  13.     VisualBasic6 = 6
  14. End Enum
  15.  
  16. Private AppPath As String
  17. Private Function CreateShellLink(ByVal intVersione As VersioneVB, ByVal strGruppo As String, ByVal strTitolo As String, ByVal strPath As String) As Boolean
  18.     Dim intConta As Integer
  19.     Dim lngRis As Long
  20.  
  21.     On Error GoTo Err_Handler
  22.     If intVersione = VisualBasicUnknown Then
  23.     For intConta = 4 To 6
  24.             lngRis = LoadLibrary(Choose(intConta - 3, "STKIT432", "VB5STKIT", "VB6STKIT"))
  25.             Call FreeLibrary(lngRis)
  26.             If lngRis <> 0 Then intVersione = intConta
  27.         Next intConta
  28.     End If
  29. lngRis = 0
  30.     If intVersione = VisualBasic6 Then
  31.         lngRis = VB6CreateShellLink(strGruppo, strTitolo, strPath, "", True, "$(Programs)")
  32.     ElseIf intVersione = VisualBasic5 Then
  33.         lngRis = VB5CreateShellLink(strGruppo, strTitolo, strPath, "")
  34.     ElseIf intVersione = VisualBasic4 Then
  35.         lngRis = VB4CreateShellLink(strGruppo, strTitolo, strPath, "")
  36.     End If
  37.     CreateShellLink = CBool(lngRis)
  38.     Exit Function
  39. Err_Handler:
  40.     CreateShellLink = False
  41. End Function




PM Quote
Avatar
TheEngi (Ex-Member)
Pro


Messaggi: 145
Iscritto: 30/08/2009

Segnala al moderatore
Postato alle 15:56
Domenica, 30/08/2009
Grazie mille lo proverò subito appena posso!!!!:k::k::hail:
grazie

PM Quote