View Full Version : مسیر دایرکتوری ویندوز
MBeigy
پنج شنبه 19 تیر 1382, 18:52 عصر
سلام خدمت دوستان گرامی
میخواستم بدونم چطور میشه مسیر دایرکتوری که فایلهای ویندوز در حال اجرا، در اون قرار داره رو پیدا کنم. در واقع میخوام به مسیر پوشه System32 دسترسی پیدا کنم.
Abbas Arizi
پنج شنبه 19 تیر 1382, 20: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, 21:29 عصر
سلام عباس جان
اینجاست که باید گفت: بابا تو دیگه کی هستی. :P
دستت درد نکنه.
Syamah
دوشنبه 21 اسفند 1385, 17:18 عصر
آدرس دایرکتوری ویندوز برابر است با %windir% یا %systemroot%
seeker
دوشنبه 21 اسفند 1385, 17:25 عصر
اینم api:
GetExpandedName
روی Kernel32
__siavash__
دوشنبه 21 اسفند 1385, 19:02 عصر
از تابع Environ استفاده کن
من سورسو گذاشته بودم
http://barnamenevis.org/forum/showthread.php?t=62744
با کمی دست کاری میتونی اون مسیر مورد نظرتو پیدا کنی
اگه نتونستی بگو تا سورسه اختصاصیشو بذارم
Hossein Bazyan
دوشنبه 21 اسفند 1385, 21:44 عصر
دوست عزیز به کرات جواب داده شده نمیدانم چرا بعضی از دوستان ( البته از جمله خودم ) قبل از پرسش جستجو نمیکنیم .
bashiry
سه شنبه 22 اسفند 1385, 12:31 عصر
تابع API به نام
GetWindowsDirectory این کارو انجام میده
seeker
سه شنبه 22 اسفند 1385, 14:29 عصر
تابع API به نام
GetWindowsDirectory این کارو انجام میده
:اشتباه: حق با دوستمونه
من یک لحظه اشتباها اشتباه کردم
تابع GetExpandedName نام اصلی فایلهایی که بوسیله compress.exe فشرده شده اند را به ما میدهد
برای یافتن مسیر ویندوز باید از تابع GetWindowsDirectory استفاده شود:اشتباه:
__H2__
چهارشنبه 23 اسفند 1385, 14:11 عصر
سلام
دوستان عزیز، فقط میخواستم بگم تو VB8 یک تابع وجود دارد که تمام دایرکتوری های مهم را میدهد. (اغفال شید بیایید با VB8 کار کنید)
seeker
چهارشنبه 23 اسفند 1385, 16:02 عصر
سلام
دوستان عزیز، فقط میخواستم بگم تو VB8 یک تابع وجود دارد که تمام دایرکتوری های مهم را میدهد. (اغفال شید بیایید با VB8 کار کنید)
باز هم میگم که با دات نت نمیتونیم کار کنیم چون ado.net رو بلد نیستیم و خیلی هم مشکله
تمام برنامه های من هم دیتا بیسیه
s_saeed_m
پنج شنبه 02 فروردین 1386, 20:51 عصر
دوستان کمک کنید
برنامه ای که نوشته میشه اگر از جاهای مختلفی اجرا بشه چطوری میشه فهمید که آدرسش کجاست
یه چیزی می خوام مثله %systemroot%
__siavash__
پنج شنبه 02 فروردین 1386, 23:14 عصر
از این استفاده کن برای اینکه ببینی برنامه داره از کجا اجرا میشه
App.path
mehran8
شنبه 04 فروردین 1386, 19: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, 19: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 یادم رفت
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.