الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تفضلوا كود لمعرفة اسم النسخة الحالية Windows Name

مغلق
بدأه Max bayne في 19 مايو 2006 · 2 رد · 606 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

:D السلام عليكم ورحمة الله وبركاته :D

:lol: اخواني الاعزاء تفضلوا كود لمعرفة اسم النسخة الحالية بناء علي طل كثر من الاعضاء سواء علي المنتدي او علي الرسائل الخاصة واتمنا ان انتوا تستفيدوا ويا ريت لو حد عاوز كود او حاجة من دي يتفضل يطلبها وانا تحت امره بس يوضح طلبه بوضوح وشكرا لكم والسلام علكم ورحمة الله

وبركاته ...... 

توضع في قسم التعريفات للفورمة   General Decleration 

''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Declare Function GetVersionExA Lib "kernel32" (lpVersionInformation As OSVERSIONINFO) As Integer
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Type OSVERSIONINFO
   dwOSVersionInfoSize As Long
   dwMajorVersion As Long
   dwMinorVersion As Long
   dwBuildNumber As Long
   dwPlatformId As Long
   szCSDVersion As String * 128
End Type
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function WindowsName() As String
   Dim OS As OSVERSIONINFO

   OS.dwOSVersionInfoSize = Len(OS)
   OS.szCSDVersion = Space(128)
   Call GetVersionExA(OS)

   If OS.dwPlatformId = 1 Then		' 95,98 Or Me
	  Select Case OS.dwMinorVersion
	   Case 0: WindowsName = "Windows 95"
	   Case 10: WindowsName = "Windows 98"
	   Case 90: WindowsName = "Windows Me"
	  End Select

   ElseIf OS.dwPlatformId = 2 Then	' NT,2000 Or XP
	  Select Case OS.dwMajorVersion
	   Case 3: WindowsName = "Windows NT 3.51"
	   Case 4: WindowsName = "Windows NT 4.0"
	   Case 5: WindowsName = IIf(OS.dwMinorVersion, "Windows XP", "Windows 2000")
	  End Select
   End If

End Function
''''''''''''''''''''''''''''''''''''''''''''''''

Private Sub Form_Load()

MsgBox WindowsName




End Sub

:lol: والسلام عليكم ورحمة الله وبركاته :blink:

تعلم كيفية الوضو ء الإسلامي الصحيح ( Flash Video )

تعلم كيفية الصلاة الإسلامية الصحيحة ( Flash Video )

#2

شكراً .. لكن لا داعي لتكرار نفس الشئ وفي نفس القسم

/index.php?showtopic=65660

أيضاً الشرح في MSDN و المثال يفي بالمطلوب

GetVersionEx

Getting the System Version

"First they ignore you, then they laugh at you, then they attack you, then you win"

===

اقتباس

حُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا

هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا

الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا

القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ

لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ

البردوني "أبو تمام وعروبة اليوم" 1971

===

اقتباس
عبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــم

و تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم

ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم

أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟

ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا

البردوني "نحن و الحاكمون "

#3

الله يعطيك العافية يامبرمجنا Max bayne

لاخيــــــــــــــــــــــر في كاتم العـــــــــــــــــــــــــــــــــــم

هذا الموضوع مغلق.

مواضيع مشابهة