Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to add an icon to the tray
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Fonctions Windows API
Divers
Thread ID:
00452142
Message ID:
00452809
Vues:
24
>>VB coding, => VFP ?
>>===================================================================
>>Create a shortcut in Windows on the desktop and on the start menu
>>Utility for placing an icon in the system tray
>>
>>'NOTE: In Visual Basic 5.0, change Stkit432.dll in the following
>>'statement to Vb5stkit.dll. Stkit432.dll is for Visual Basic 4.0
>>
>>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
>>
>>
>> Dim lReturn As Long
>>
>> 'Add to Desktop
>> lReturn = fCreateShellLink("..\..\Desktop", _
>> "Shortcut to Calculator", "c:\windows\calc.exe", "")
>>
>> 'Add to Program Menu Group
>> lReturn = fCreateShellLink("", "Shortcut to Calculator", _
>> "c:\windows\calc.exe", "")
>>
>> 'Add to Startup Group
>> 'Note that on Windows NT, the shortcut will not actually appear
>> 'in the Startup group until your next reboot.
>> lReturn = fCreateShellLink("\Startup", "Shortcut to Calculator", _
>> "c:\windows\calc.exe", "")
>
>Look at George Tasker's entry in the Files section for equivalent functionality, or better, use the Wscript.Shell object's CreateShortcut method.

Let's see...we covered that approach in the October issue of the VFUG (www.vfug.org) newsletter.< g >
George

Ubi caritas et amor, deus ibi est
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform