|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Windows)
|
|
 |
Título da Dica: Criando atalho no Desktop e no menu Iniciar
|
 |
|
|
|
Postada em 29/1/2003 por Felipe
'api:
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
'CODIGO
Dim lReturn As Long
'Inserir no Desktop
lReturn = fCreateShellLink("..\..\Desktop", _
"Shortcut to Calculator", "c:\windows\calc.exe", "")
'Inserir no Menu Programas
lReturn = fCreateShellLink("", "Shortcut to Calculator", _
"c:\windows\calc.exe", "")
'Inserir no Grupo Iniciar
'No Windows NT, o atalho naum ira aparecer ate que
se um reboot
lReturn = fCreateShellLink("\Startup", "Shortcut to Calculator", _
"c:\windows\calc.exe", "")
|
|
|
|
|
