مسیر دایرکتوری ویندوز

[MBeigy]

سلام خدمت دوستان گرامی
می‌خواستم بدونم چطور میشه مسیر دایرکتوری که فایلهای ویندوز در حال اجرا، در اون قرار داره رو پیدا کنم. در واقع میخوام به مسیر پوشه System32 دسترسی پیدا کنم.

[Abbas Arizi]

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



Function GetSystemFolder() As String

    Dim sBuffer As String

    sBuffer = String(255, 0)

    GetSystemDirectory sBuffer, 255

    GetSystemFolder = StripNull(sBuffer)

End Function



Function StripNull(ByVal strString As String) As String

    Dim intZeroPos As Integer



    intZeroPos = InStr(strString, Chr(0))

    If intZeroPos > 0 Then

        StripNull = Left(strString, intZeroPos - 1)

    Else

        StripNull = strString

    End If

End Function

[MBeigy]

سلام عباس جان
اینجاست که باید گفت: بابا تو دیگه کی هستی. :P
دستت درد نکنه.

[Syamah]

آدرس دایرکتوری ویندوز برابر است با %windir% یا %systemroot%

[seeker]

اینم api:
GetExpandedName
روی Kernel32

[__siavash__]

از تابع Environ استفاده کن
من سورسو گذاشته بودم
https://barnamenevis.org/showthread.php?t=62744
با کمی دست کاری میتونی اون مسیر مورد نظرتو پیدا کنی
اگه نتونستی بگو تا سورسه اختصاصیشو بذارم

[Hossein Bazyan]

دوست عزیز به کرات جواب داده شده نمیدانم چرا بعضی از دوستان ( البته از جمله خودم ) قبل از پرسش جستجو نمیکنیم .

[bashiry]

تابع API به نام
GetWindowsDirectory این کارو انجام میده

[seeker]

تابع API به نام
GetWindowsDirectory این کارو انجام میده

حق با دوستمونه
من یک لحظه اشتباها اشتباه کردم
تابع GetExpandedName نام اصلی فایلهایی که بوسیله compress.exe فشرده شده اند را به ما میدهد
برای یافتن مسیر ویندوز باید از تابع GetWindowsDirectory استفاده شود

[__H2__]

سلام
دوستان عزیز، فقط میخواستم بگم تو VB8 یک تابع وجود دارد که تمام دایرکتوری های مهم را میدهد. (اغفال شید بیایید با VB8 کار کنید)

[seeker]

سلام
دوستان عزیز، فقط میخواستم بگم تو VB8 یک تابع وجود دارد که تمام دایرکتوری های مهم را میدهد. (اغفال شید بیایید با VB8 کار کنید)

باز هم میگم که با دات نت نمیتونیم کار کنیم چون ado.net رو بلد نیستیم و خیلی هم مشکله
تمام برنامه های من هم دیتا بیسیه

[s_saeed_m]

دوستان کمک کنید
برنامه ای که نوشته میشه اگر از جاهای مختلفی اجرا بشه چطوری میشه فهمید که آدرسش کجاست
یه چیزی می خوام مثله %systemroot%

[__siavash__]

از این استفاده کن برای اینکه ببینی برنامه داره از کجا اجرا میشه
App.path

[mehran8]

سلام
مثلاً اگه بخوای برنامت چک کنه اگه توی system32 نبود یک پیغام بده / کدش به صورت زیر می شه :

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

Dim Winpath , StrBuffer, sys32 As String
StrBuffer = String(255, Chr$(0))
Winpath = Left$(StrBuffer, GetWindowsDirectory(StrBuffer, Len(StrBuffer)))

sys32=Winpath & "\system32"
if app.path <> sys32 then
msgbox "you must restart your pc"

کد های بالا توی VB کپی بشن فکر کنم درست نشون داده بشن !

[mehran8]

سلام
مثلاً اگه بخوای برنامت چک کنه اگه توی system32 نبود یک پیغام بده / کدش به صورت زیر می شه :

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

Dim Winpath , StrBuffer, sys32 As String
StrBuffer = String(255, Chr$(0))
Winpath = Left$(StrBuffer, GetWindowsDirectory(StrBuffer, Len(StrBuffer)))

sys32=Winpath & "\system32"
if app.path <> sys32 then
msgbox "you must restart your pc"

کد های بالا توی VB کپی بشن فکر کنم درست نشون داده بشن !

ببخشید end if یادم رفت