تشخیص 64 یا 32 بیتی بودن ویندوز

[AbbasVB]

سلام دوستان
چگونه می توان با وی بی 6 فهمید که ویندوز 32 بیتی یا 64 بیتی است؟
با تشکر
:متفکر:

[IamOverlord]

سلام.

1. برای این که اینو در مورد CPU بفهمی:
توی این Source Code ای که گذاشتم یه جایی Processor Type رو می نویسه، مثلا برای من می نویسه 586
این یعنی پردازنده ی من Pentium 5 هست و 32 بیتی، اما اگه به جای 86 بنویسه 64، یعنی پردازنده 64 بیتی هست.

2. اما در مورد Windows:
Stack Overflow (http://stackoverflow.com/questions/4839210/how-can-i-determine-the-windows-version-from-a-vb-6-app)

[M.T.P]

با اجازه دوست عزیز IamOverlord

یک تابع کامل و تست شده .



Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function IsWow64Process Lib "kernel32" (ByVal hProc As Long, ByRef bWow64Process As Boolean) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long

Public Function Is64Bit() As Boolean
Dim IntHandle As Long
Dim blnRetval As Boolean

blnRetval = False
IntHandle = GetProcAddress(GetModuleHandle("kernel32"), "IsWow64Process")

If IntHandle Then
IsWow64Process GetCurrentProcess(), blnRetval
End If

Is64Bit = blnRetval
End Function

[new_chater]

با سلام

میشه سورس تشخیص 32 یا 64 بیت بودن ویندوز رو به صورت فایل سورس ویژوال بیسیک توی پست قرار دهید ؟

با تشکر

[m2011kh]

سلام.
برادر من لطفا اسپم ندید در پست 3 جواب کاملی ارائه شده.

[setroyd]

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

[m2011kh]

شاید چیزی بوده که شما میگید ولی تاریخ ارسال پست ها 12 ساعت حدودا تفاوت داره.

موفق و سربلند باشید

MMD

[phpeproject.ir]

این لینک (http://stackoverflow.com/questions/336633/how-to-detect-windows-64-bit-platform-with-net)توضییحات خوبی داده دوستان