كيفية تحديد استخدام إصدار Windows 32-بت

هام: تمت ترجمة هذا المقال باستخدام برنامج ترجمة آلية لشركة مايكروسوفت بدلاً من الاستعانة بمترجم بشري. تقدم شركة مايكروسوفت كلاً من المقالات المترجمة بواسطة المترجمين البشر والمقالات المترجمة آليًا وبالتالي ستتمكن من الوصول إلى كل المقالات الموجودة في قاعدة المعرفة الخاصة بنا وباللغة الخاصة بك. بالرغم من ذلك، فإن المقالة المترجمة آليًا لا تكون دقيقة دائمًا وقد تحتوي على أخطاء إملائية أو لغوية أو نحوية، مثل تلك الأخطاء الصادرة عن متحدث أجنبي عندما يتحدث بلغتك. لا تتحمل شركة مايكروسوفت مسئولية عدم الدقة أو الأخطاء أو الضرر الناتج عن أية أخطاء في ترجمة المحتوى أو استخدامه من قبل عملائنا. تعمل شركة مايكروسوفت باستمرار على ترقية برنامج الترجمة الآلية

اضغط هنا لرابط المقالة باللغة الانجليزية189249
تمت أرشفة هذه المقالة. وتظهر "كما هي" ولن يتم تحديثها بعد الآن.
الموجز
قد تحتاج تطبيق لتنفيذ المهام بشكل مختلف استنادًا إلى نظام التشغيل الذي يعمل على الكمبيوتر. يوضح هذا المقال ، حسب المثال كيفية للتمييز بين نظام التشغيل Microsoft Windows 95 و Microsoft Windows 98 ، Microsoft إطار NT 3.51 ، Microsoft Windows NT 4.0 Microsoft Windows 2000 و Windows XP.

ترجع الدالة Win32 GetVersionEx معلومات يمكن استخدامها برنامج التعرف على نظام التشغيل. بين هذه القيم هي أرقام المراجعة الرئيسية والثانوية "و" معرف النظام أساسي. وبواسطة نظام التشغيل Windows 98 يستغرق الآن في تقييم منطقية المتضمنة أكثر لتحديد إصدار Windows قيد الاستخدام. إدخال القائمة أدناه يوفر البيانات المطلوبة لتقييم بنية OSVERSIONINFO تعبئة بواسطة الدالة GetVersionEx:
Windows 95نظام التشغيل Windows 98Windows MeWindows NT 4.0نظام التشغيل Windows 2000Windows XP
PlatformID 1 1 1 2 2 2
إصدار رئيسي 4 4 4 4 5 5
إصدار ثانوي 0 10 90 0 0 1
معلومات أخرى

المثال خطوة بخطوة

  1. بدء تشغيل مشروع EXE قياسي جديد في Visual Basic. يتم إنشاء Form1 بشكل افتراضي.
  2. من القائمة مشروع إضافة الوحدة النمطية القياسية للمشروع.
  3. Insert the following code into Module1:
          Public Declare Function GetVersionExA Lib "kernel32" _               (lpVersionInformation As OSVERSIONINFO) As Integer             Public Type OSVERSIONINFO               dwOSVersionInfoSize As Long               dwMajorVersion As Long               dwMinorVersion As Long               dwBuildNumber As Long               dwPlatformId As Long               szCSDVersion As String * 128            End Type             Public Function getVersion() As String               Dim osinfo As OSVERSIONINFO               Dim retvalue As Integer                osinfo.dwOSVersionInfoSize = 148               osinfo.szCSDVersion = Space$(128)               retvalue = GetVersionExA(osinfo)                With osinfo               Select Case .dwPlatformId                 Case 1                                    Select Case .dwMinorVersion                        Case 0                            getVersion = "Windows 95"                        Case 10                            getVersion = "Windows 98"                        Case 90                            getVersion = "Windows Millennium"                    End Select                    Case 2                    Select Case .dwMajorVersion                        Case 3                            getVersion = "Windows NT 3.51"                        Case 4                            getVersion = "Windows NT 4.0"                        Case 5                            If .dwMinorVersion = 0 Then                                getVersion = "Windows 2000"                            Else                                getVersion = "Windows XP"                            End If                    End Select                    Case Else                   getVersion = "Failed"            End Select                End With            End Function					
  4. إضافة سطر التعليمات البرمجية التالي إلى الحدث Load Form1:
    MsgBox GetVersion()					
  5. قم بتشغيل المشروع ثم لاحظ أن مربع رسالة يعرض الإصدار الصحيح من Windows.
مراجع
للحصول على معلومات إضافية، انقر فوق رقم المقالة التالي لعرضها في "قاعدة المعارف لـ Microsoft:
92936كيفية الحصول على رقم الإصدار Windows 3.1 في VB مع GetVersion

تحذير: تمت ترجمة هذه المقالة تلقائيًا

خصائص

رقم الموضوع: 189249 - آخر مراجعة: 12/05/2015 08:55:42 - المراجعة: 3.0

Microsoft Visual Basic 5.0 Learning Edition, Microsoft Visual Basic 6.0 Learning Edition, Microsoft Visual Basic 5.0 Professional Edition, Microsoft Visual Basic 6.0 Professional Edition, Microsoft Visual Basic 5.0 Enterprise Edition, Microsoft Visual Basic Enterprise Edition for Windows 6.0, Microsoft Visual Basic 4.0 Standard Edition, Microsoft Visual Basic 4.0 Professional Edition, Microsoft Visual Basic for Applications 5.0

  • kbnosurvey kbarchive kbmt kbhowto KB189249 KbMtar
تعليقات