توابع اي پي اي

[amircivil]

سلام..[:43:]..ميخاستم بگم مثلايه تابع اي پي اي داريم كه مسير پوشه سيستم رو نشون ميده ..حالا اگه بخاهيم مسر يه پوشه ديگه (مثلا نيو فولدر 2) اونوقت چه بايد كرد..البته در ويژوال بيسيك و دلفي

[NabiKAZ]

سلام..[:43:]..ميخاستم بگم مثلايه تابع اي پي اي داريم كه مسير پوشه سيستم رو نشون ميده ..حالا اگه بخاهيم مسر يه پوشه ديگه (مثلا نيو فولدر 2) اونوقت چه بايد كرد..البته در ويژوال بيسيك و دلفي

سلام
بفرما:

کد:

Public Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long


'-------------------------------------------------
Public Function SysDIR()
Dim Ret As Long
Dim SysDIR2 As String
SysDIR2 = Space(250)
Ret = GetSystemDirectory(SysDIR2, 250)
SysDIR = Left$(SysDIR2, Ret)
End Function
'--------------------------------------------------
Public Function WinDIR()
Dim Ret As Long
Dim WinDIR2 As String
WinDIR2 = Space(250)
Ret = GetWindowsDirectory(WinDIR2, 250)
WinDIR = Left$(WinDIR2, Ret)
End Function

موفق باشي
نبي