|
Declare Function fCreateShellLink Lib "STKIT432.DLL" _
(ByVal lpstrFolderName as String ,ByVal lpstrLinkName as String _ ByVal lpstrLinkPath as String ,ByVal lpstrLinkArgs as String ) As Long 'Il primo parametro chiede dove piazzare il collegamento (shortcut) r 'elativo alla cartella dei programmi del Menu di Avvio.Il secondo parametro 'e' il name o il testo che appare con il collegamento. Di seguito viene il 'percorso del file; il parametro finale supporta ogni argomento. Pertanto, 'per piazzare il collegamento sul desktop, inserisci questo codice: Dim iLong As Long iLong = fCreateShellLink("..\..\Desktop", "Collegamento a _ Program", "C:\Path\Program.exe","") E' semplice creare un collegamento del proprio programma sul desktop. Il segreto per creare un collegamento con Visual Basic e in questa dichiarazione del VB4 setup kit: |