Newsgroup: it.comp.lang.visual-basic
Titolo: Programma all'avia di windows...

Salve a tutti,
ho da porvi una semplice domanda: ora che ho creato un programma in VB
vorrei inserirgli una funzione che permetta di lanciare l'applicazione
all'avvio di windows, come posso fare sia per inserirlo all'avvio che per
toglierlo (sempre in vb) ?

Eccoti!!!!
Hai bisogno della libreria STKIT432.DLL di VB4 (quella usata dal programma di Setup)
Public Declare Function SHGetSpecialFolderLocation Lib "shell32" (ByVal hwndOwner As Long, ByVal nFolder As Long, ByRef
ppidl As Long) As Long
Public Declare Function SHGetPathFromIDListA Lib "shell32" (ByVal pidl As Long, ByRef pszPath As Byte) As Long
Public Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As
String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
Public GetPathDirectory As String
Function DirStartup()
 
    Dim lngPuntPIDL As Long
    Dim strPath(0 To 260) As Byte
    Dim strTemp As String
    Dim lngBoh As Long
    Dim lngTemp As Long
    lngTemp = SHGetSpecialFolderLocation(vbNull, 7, lngPuntPIDL)
    lngTemp = SHGetPathFromIDListA(lngPuntPIDL, strPath(0))
    If lngTemp <> 0 Then
        lngTemp = 0
        strTemp = ""
        While strPath(lngTemp) <> 0
            strTemp = strTemp & Chr(strPath(lngTemp))
            lngTemp = lngTemp + 1
        Wend
        GetPathDirectory = strTemp
    Else
        GetPathDirectory = ""
    End If
 
    aaa = ""
    bbb = ""
    i = Len(GetPathDirectory)
 
    Do
        aaa = Mid(GetPathDirectory, i, 1)
        If aaa = "\" Then Exit Do
        bbb = Mid(GetPathDirectory, i, Len(GetPathDirectory))
        i = i - 1
    Loop Until i = 1
 
    DirStartup = bbb
 
End Function
iLong = fCreateShellLink(DirStartup, "MioProgramma", App.Path & "\" & App.EXEName & ".exe", "")
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

forse ho capito male la domanda..... ma non  piů semplice creare un
collegamento e inserirlo nella cartella Windows\Menů
Avvio\Programmi\Esecuzione Automatica ?
ciao Davide

ciao Davide
Sergio

ed è quello che ho fatto....
Il problema è che non tutti i computer hanno "Esecuzione automatica"... pensa agli americani: "Startup"....
Quindi.....


e io questo dicevo... crei un file che scrivi/elimini nella directory di
Avvio di Windows tramite due o tre stringhe in VB
ops.... mo che ci penso non saprei dirti di che file si tratta quando si
parla di collegamenti del SO Windows... boh
ciao Davide


e vabbeh per gli americani si fa un 'eccezione e gli si dice con una bella
InputBox "ndo cavolo ce l'hai lo Starter?"
ehehehhe
ciao Davide
PS
a parte la battuta... ci sarà pure la solita Api che riconosce questa
directory... se c'è quella per sapere se si usa System o System32
(Win95/WinNT) ci sarà pure quella per l'Avvio/Esecuzione Automatica ;-))


(Win95/WinNT) ci sarà pure quella per l'Avvio/Esecuzione Automatica ;-))
Non vorrei ripetere sempre la stessa frase, ma....
è quello che ho fatto... ^____^
L'APE è la SHGetSpecialFolderLocation che permette di ottenere la path di tutte le directory di sistema...


 wrote in message 7bna10$c3q$1...@nslave1.tin.it...
