LinktoDesk

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 specifica a quale cartella deve essere aggiunga

'l'icona (relativo alla posizione della cartella Programmi nel menu

'di Avvio di Windows). Il secondo parametro e relativo al nome che

'dovra comparire sottostante l'icona. Il terzo parametro specifica

'l'eseguibile o il documento da aprire, completo del percorso. Il

'quarto parametro non ha importanza in questo contesto.

'Per aggiungere l'icona nel desktop usare:

iLong = fCreateShellLink("..\..\Desktop", "My Link", "C:\Path\My Application","")