Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Collegamenti sul desktop

Che funzione posso usare per creare un link sul desktop?
Ho provato as usare quella inclusa in VB6STKIT.DLL (fCreateShellLink), ma mi
genera un errore nel modulo OLEAUT32 chiudendo il programma.
Qualche idea?
Grazie 1000 per qualsiasi aiuto.
P.S.
Utilizzo VB6 Enterprise SP3
--
________________________________
Raffaele Tripodo
E-Mail:              
raff...@conmet.it
MSN Messenger: 
px...@hotmail.com
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

 Utilizzo VB6 Enterprise SP3
Questo link 
http://www.morenosoft.com/MSVBSite/sorgenti/lnk.htm
 ti porta nel
sito di Moreno Sirri...direttamente alla pagina che fa quello che chiedi...e
grazie ancora al buon Moreno.
Ciao, Adriano

 ha scritto nel messaggio
news:8l538v$jnh$1...@pegasus.tiscalinet.it...


quella del VB6?
SE non ricordo male la dichiarazione della funzone fCreateShellLink č diversa: 
Declare Function fCreateShellLink Lib "vb6stkit.dll" (ByVal lpstrFolderName As String, ByVal
lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String, ByVal
fPrivate As Long, ByVal sParent As String) As Long
GLi ultimi due parametri (nuovi) sono:
fPrivate:		membro privato (0&)
fParent:		identifica il percorso precedente a quello dove vato a creare il
collegamento, scelto tra una delle seguenti costanti:
Const gsSTARTMENUKEY As String = "$(Start Menu)"
Const gsPROGMENUKEY As String = "$(Programs)"
Prova cosě: dovrebbe andare (non sono riuscito a trovare la doc. aggiornata su questa funzione,
quindi ho spulciato il Setup1.vbp...
Se funge fammelo sapere che aggiorno l'esempio sul sito.
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

Grazie della dritta.
Ora non mi dà più l'errore (giustamente, mancavano 2 parametri) però non
sono riuscito a creare un link sul desktop.
In compenso si riesce facilmente a creare un link in una cartella del Menu
Avvio, come Accessori:
OSfCreateShellLink "Accessori", "Etichetta", "C:\Programmi\MioPrg\Prg.EXE",
"Parametri", True, "$(Star Menu)"
Io non sono ancora riuscito a trovare i parametri necessarri per creare un
link sul desktop: ho provato con $(Desktop), combinazioni varie tra il primo
e l'ultimo parametro come "Desktop" e "C:\WINDOWS" ma senza successo.
Se riesci a farlo funzionare in questo senso, please help me!
Grazie 1k.




Se riesci a farlo funzionare in questo senso, please help me!
ret = fCreateShellLink("..\..\Desktop" & vbNullChar, "Blocco Note", "C:\Windows\Notepad.Exe", "" &
vbNullChar, True, "$(Programs)")
In questo modo gli dici di salire di due livelli rispetto alla dir. Menù Avvio\Programmi, ovvero
Windows\Desktop.
Non so perché, ma dicendogli di risalire di un livello la dir MEnù AVvio non funziona, così come non
riesco a creare un collegamento direttamente nel Menù Avvio
Errata Corrige:
nell'altro post ho detto che il membro privato dev'essere = 0; in realtà è di tipo booleano e
dev'essere "True"


Perfetto. Adesso funziona!
Mi dici una cosa: come mai aggiungi vbNullChar ai parametri della funzione?
Comunque, grazie 1k!


Mi dici una cosa: come mai aggiungi vbNullChar ai parametri della funzione?
In teoria o in pratica? ;-P
Molte funzioni richiedono che alcuni dei loro parametri terminino con un carattere nullo (di solito
prediligo Chr(0) a vbNullChar per questioni di compatibilità); questa in particolare non lo so
poiché non ho trovato la documentazione: il file Setup1.vbp di VB li usa (solo per alcuni parametri)
ed io ho copiato da lì (anche se funziona pure senza...)
