مسیر دایرکتوری ویندوز [بایگانی]

MBeigy

پنج شنبه 19 تیر 1382, 17:52 عصر

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

Abbas Arizi

پنج شنبه 19 تیر 1382, 19:11 عصر

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

پنج شنبه 19 تیر 1382, 20:29 عصر

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

Syamah

دوشنبه 21 اسفند 1385, 16:18 عصر

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

seeker

دوشنبه 21 اسفند 1385, 16:25 عصر

اینم api:
GetExpandedName
روی Kernel32

__siavash__

دوشنبه 21 اسفند 1385, 18:02 عصر

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

Hossein Bazyan

دوشنبه 21 اسفند 1385, 20:44 عصر

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

bashiry

سه شنبه 22 اسفند 1385, 11:31 صبح

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

seeker

سه شنبه 22 اسفند 1385, 13:29 عصر

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

__H2__

چهارشنبه 23 اسفند 1385, 13:11 عصر

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

seeker

چهارشنبه 23 اسفند 1385, 15:02 عصر

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

s_saeed_m

پنج شنبه 02 فروردین 1386, 19:51 عصر

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

__siavash__

پنج شنبه 02 فروردین 1386, 22:14 عصر

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

mehran8

شنبه 04 فروردین 1386, 18:10 عصر

سلام
مثلاً اگه بخوای برنامت چک کنه اگه توی 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

شنبه 04 فروردین 1386, 18:12 عصر

سلام
مثلاً اگه بخوای برنامت چک کنه اگه توی 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 یادم رفت