يافتن مسير استارت آپ

[kimia]

با سلام

آيا راهي وجود داره که بتونيم مسير استارت آپ ويندوز رو پيدا کنيم؟ يه تابع اي پي آي يا هر چيز ديگه .

سپاس

[Mamad2003]

دوست من حتما كه ميشه :wink:
اگه وي بي كار هستي اينم كدش ! البته فكر كنم شما سي++ كاري . شرمنده كه ما توي اون آماتوريم ! :oops:

کد:

Private Declare Function apiSHGetSpecialFolderLocation Lib "shell32" Alias "SHGetSpecialFolderLocation" (ByVal hwndOwner As Long, _
    ByVal nFolder As Long, _
    ppidl As Long) _
    As Long
Private Declare Function apiSHGetPathFromIDList Lib "shell32" _
    Alias "SHGetPathFromIDList" _
    (pidl As Long, _
    ByVal pszPath As String) _
    As Long
Private Declare Sub sapiCoTaskMemFree Lib "ole32" Alias "CoTaskMemFree" (ByVal pv As Long)
Const MAX_PATH = 260
Const CSIDL_COMMON_STARTUP = &H18
Const NOERROR = 0

Function fGetSpecialFolderLocation(ByVal lngCSIDL As Long) As String


Dim lngRet As Long
Dim strLocation As String
Dim pidl As Long

    
    lngRet = apiSHGetSpecialFolderLocation(hWndAccessApp, lngCSIDL, pidl)
    If lngRet = NOERROR Then
        strLocation = Space$(MAX_PATH)
      
        lngRet = apiSHGetPathFromIDList(ByVal pidl, strLocation)
        If Not lngRet = 0 Then
            
            fGetSpecialFolderLocation = Left$(strLocation, _
                                InStr(strLocation, vbNullChar) - 1)
        End If
        Call sapiCoTaskMemFree(pidl)
    End If
End Function

بعدش اينطوري هرجا خواستي هم صداش بزن :

کد:

Startup = fGetSpecialFolderLocation(CSIDL_COMMON_STARTUP)

قربانت :roll:

[kimia]

محمد عزيزم سلام
خيلي خوشحالم كه پس از مدتها دارم دوباره از شما جوابم را مي گيرم
اتفاقا اين بار خواستم يه برنامه وي بي بنويسم. حتما راهنماي شما هم مشكلم را حل خواهد كرد.

از لطف شما سپاسگذارم
كيميا

[Mamad2003]

:oops: :oops: :oops: من كوچيك شما هستم
شما استادي . ما شما رو براي سي++ حتما نياز خواهيم داشت . البته من فعلا وقت ندارم با سي++ كا كنم فعلا درگير دات نت هستم .
حتما ما هم از شما كمك خواهيم گرفت ! :wink:
قربان شما