تشخیص نوع سیستم عامل

[xrezax]

راهی هست که بشه فهمید نوع سیستم ( مثلاً سون یا اکس پی ) بعد استارت آپ هر کدومو نشون بده.:متفکر:

[AmirAmiri]

سلام.
Text1.Text = Environ("OS")
موفق و پیروز باشید.

[returnx]

سلام.
Text1.Text = Environ("OS")
موفق و پیروز باشید.
من از این کد استفاده کردم .در حالی که ویندوز من XP است به من Windwos_NT داد.

[AmirAmiri]

من از این کد استفاده کردم .در حالی که ویندوز من XP است به من Windwos_NT داد.
سلام.
دوست عزیز باید بگم بعد از ویندور NT که در سال 2000 تولید شده بود، تمامه ویندوزها بر پایه NT طراحی شدن و پایه و اساس همشون همون Windows NT هستش پس خیلی طبیعیه که Windows_NT رو به شما نشون بده.
برای تست اینکار میتونید توی Run کلمه %OS% رو تایپ کنید.
به شما یک Error نشون میده ولی عنوان Error نوشته Windows_NT.
پس چیزی که این دستور به شما نشون میده در واقع متغییرهای سراری خوده ویندوز هست.

به عنوان مثال برای بدست آوردن مسیر ویندوز میتونید از دستور زیر استفاده کنید :
Text1.Text = Environ("WinDir")
برای بدست آوردن مسیر پروفایل کاربر یا همون آدرس Document :
Text1.Text = Environ("UserProfile")
برای User Name :
Text1.Text = Environ("UserName")
نام کامپیوتر :
Text1.Text = Environ("UserDomain")
مسیر Temp ویندوز :
Text1.Text = Environ("TMP")
درایو ویندوز :
Text1.Text = Environ("SystemDrive")
مسیر Program File :
Text1.Text = Environ("ProgramFiles")
.
.
.
.
و امثالهم.

[pcdownload.bloghaa.com]

البته مسیری هم در ریجستری وجود دارد که اطلاعاتی از این قبیل را در خود دارد:
Hkey_Local_Machine\SOFTWARE\Microsoft\windows NT\CurrentVersion

که نام سیستم عامل در مقداری با نام ProductName قرار دارد.

[parselearn]

يك كلاس كامل براي گرفتن مشخصات ويندوز

ماژولهاي ساده تر:
http://www.google.com/search?q=get+windows+version+with+vb6
http://www.vb-helper.com/howto_get_windows_version.html
http://www.tek-tips.com/faqs.cfm?fid=4599

[butterfly8528]

سلام دوستان عزیز .

سورس کد زیر دقیقا چیزی هست کد خواستید .

موفق باشید .

[ModernWarfare]

سلام دوستان عزیز .

سورس کد زیر دقیقا چیزی هست کد خواستید .

موفق باشید .

این کد ویندوز سون رو هم می گه ؟

[butterfly8528]

این کد ویندوز سون رو هم می گه ؟

بله دوست عزیز .