۲۴-اسفند-۱۳۸۳, ۰۷:۱۸:۳۸
۲۴-اسفند-۱۳۸۳, ۱۵:۵۳:۵۶
دوست من حتما كه ميشه :wink:
اگه وي بي كار هستي اينم كدش ! البته فكر كنم شما سي++ كاري . شرمنده كه ما توي اون آماتوريم ! :oops:
بعدش اينطوري هرجا خواستي هم صداش بزن :
قربانت :roll:
اگه وي بي كار هستي اينم كدش ! البته فكر كنم شما سي++ كاري . شرمنده كه ما توي اون آماتوريم ! :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:
۲۴-اسفند-۱۳۸۳, ۱۸:۴۴:۴۸
محمد عزيزم سلام
خيلي خوشحالم كه پس از مدتها دارم دوباره از شما جوابم را مي گيرم
اتفاقا اين بار خواستم يه برنامه وي بي بنويسم. حتما راهنماي شما هم مشكلم را حل خواهد كرد.
از لطف شما سپاسگذارم
كيميا
خيلي خوشحالم كه پس از مدتها دارم دوباره از شما جوابم را مي گيرم
اتفاقا اين بار خواستم يه برنامه وي بي بنويسم. حتما راهنماي شما هم مشكلم را حل خواهد كرد.
از لطف شما سپاسگذارم
كيميا
۲۵-اسفند-۱۳۸۳, ۲۳:۵۴:۳۵
:oops: :oops: :oops: من كوچيك شما هستم
شما استادي . ما شما رو براي سي++ حتما نياز خواهيم داشت . البته من فعلا وقت ندارم با سي++ كا كنم فعلا درگير دات نت هستم .
حتما ما هم از شما كمك خواهيم گرفت ! :wink:
قربان شما
شما استادي . ما شما رو براي سي++ حتما نياز خواهيم داشت . البته من فعلا وقت ندارم با سي++ كا كنم فعلا درگير دات نت هستم .
حتما ما هم از شما كمك خواهيم گرفت ! :wink:
قربان شما