لمعرفة هل نعمل ضمن بيئة 32 بت أو 64 بت برمجيا

كاتب الموضوع : tibo

لمعرفة هل نعمل ضمن بيئة 32 بت أو 64 بت برمجيا
طريقة 1

كود :

Select Case Marshal.SizeOf(GetType(IntPtr)) 

Case 8 

Me.TextBox1.Text = "64 bit" 

Case 4 

Me.TextBox1.Text = "32 bit" 

End Select

طريقة 2

كود :

Dim b64 As Boolean = False 

Dim msg As String = "Running in a " 

For Each ra As Reflection.Assembly In My.Application.Info.LoadedAssemblies 

If ra.Location.ToLower.Contains("framework64") Then b64 = True 

Exit For 

Next 

msg += IIf(b64, "64 Bit", "32 Bit").ToString & " environment" 

Me.TextBox1.Text = msg

ملاحظة: من أجل التأكد من عمل الكود بصورة صحيحة يجب أن يكون خيار الترجمة في صفحة Compile في خصائص MyProject هو AnyCpu اضغط الزر Advanced Compile Options للتأكد من الضبط
والسبب هو أنه عند اختيار أحد الخيارين الأخريين يجبر البرنامج على رؤية النظام بشكل محدد بينما الضبط المقترح هنا يرى النظام كما هو