Newsgroup: it.comp.lang.visual-basic
Titolo: Creare un collegamento con le api in modo semplice

Vorrei creare un collegamento, nel modo più semplice possibile, ossia:
Declare Function CreateShellLink (nome del link, path dell'icona, path del
link, path del programma, tasto di scelta rapida)
In modo da fare semplicemente:
CreateShellLink "Memo", "C:\icons\memo.ico",
"C:\windows\desktop","C:\Memo\Memo.exe -option", "F12"
Tanto le variabili sono sempre le stesse.
C'è qualche funzione "semplice" che posso usare ?
Grazie infinite a tutti

HOWTO: Create Shortcuts (Shell Links) within Windows
[snip]
SUMMARY
Sometimes it is necessary to create shortcuts to your applications or
documents somewhere on another user's system. Do this by calling the
fCreateShellLink API function found in the STKIT432.DLL file that ships with
the Setup Kit in Microsoft Visual Basic version 4.0 for Windows. Below are
the steps that show you how to do this.
MORE INFORMATION
Shell links, also known as shortcuts, are a convenient way to reference
objects within the shell name space (the hierarchical structure of objects
in the Microsoft Windows 95 shell) without having to keep track of the name
and location of the original object. Shell links are referred to as
shortcuts in the Context menu (that appears when you right-click an object)
of shell objects. They are implemented internally via the IShellLink
interface.
Steps for Creating a Shell Link (Shortcut) to the Desktop
Start a new project in Visual Basic. Form1 is created by default.
Add a Command button (Command1) to Form1.
Add the following code to the General Declarations section of Form1:
Option Explicit
      Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal _
        lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal _
        lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
      Sub Command1_Click()
        Dim lReturn As Long
        'Add to Desktop
        lReturn = fCreateShellLink("..\..\Desktop", _
        "Shortcut to Calculator", "c:\Winnt\system32\calc.exe", "")
        'Add to Program Menu Group
        lReturn = fCreateShellLink("", "Shortcut to Calculator", _
        "c:\Winnt\system32\calc.exe", "")
        'Add to Startup Group
        lReturn = fCreateShellLink("\Startup", "Shortcut to Calculator", _
        "c:\Winnt\system32\calc.exe", "")
      End Sub
Press the F5 key to run the project, and then click the Command button.
NOTE: If you are running Windows NT, the above example works correctly. If
you are running Windows 95, change the Calc.exe path to the following:
   C:\Windows\Calc.exe
This creates a shortcut to the Calc.exe file on the user's desktop, a
program group, and a reference to it in the Startup items.
REFERENCES
Please refer to the sample on the Visual Basic 5.0 CD-ROM:
Tools\Unsupprt\ShellLnk
For additional information, please see the following article in the
Microsoft Knowledge Base:
   ARTICLE-ID: Q140443
   TITLE     : How To Create a Shortcut on the Desktop
Keywords          : APrgOther vb432 VB4WIN vb5all vb5howto
Version           : WINDOWS:4.0,5.0
Platform          : NT WINDOWS
Issue type        : kbhowto

 ha scritto nel messaggio
news:RR_Y6.9818$4J1....@news2.tin.it...


 Tools\Unsupprt\ShellLnk
un' altra fonte: un vbp di esempio !
[snippone]
Se invece hai vb6, prova a fare la stesse cose:
1. cerca nel progetto di Setup1.bas (che nessuno guarda, eppure e'
maledettamente utile);
2. cerca fra i progetti di esempio forniti nel cd di vb (mi pare che sia il secondo
o terzo cd).
ciao, hal

Sapresti per caso quale ? Grazie ancora
Sul mio sito trovi anche esempi per VB5 e VB6
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

Perfetto. Ho afferrato il concetto.
Grazie !
E complimentissimi per il sito !

Caro Hal, il fatto č che non vorrei usare una DLL extra alle librerie
standard di Visual Basic 6.0.
A quanto ho capito per usare la funzione fCreateShellLink devo per forza
usare una DLL che non č inclusa nel pacchetto delle run-time di Vb. Ora, se
devo includere una DLL extra solo per creare un link...
Pensavo che si potesse fare usando le sole API di Windows 98; era questo il
concetto del post.
All'inizio pensavo che la libreria Vb6stkit.dll fosse compresa nelle
run-time standard, invece adesso mi sono reso conto che non č cosě.
Grazie lo stesso.