Hangi 32-bit Windows s�r�m� kullan�lan belirleme

Makale numaras�: 189249 - Bu makalenin ge�erli oldu�u �r�nleri g�r�n.

Otomatik terc�me makalelerin ne oldu�unu a��klayan yaz�y� okumak i�in buraya t�klay�n

�ngilizce ve T�rk�e'yi yan yana g�r�nt�leme

Buraya t�klayarak �ngilizce ve T�rk�e'yi yan yana g�r�nt�leyebilirsiniz.

Hepsini a� | Hepsini kapa

Bir uygulama, farkl� ba�l� olarak hangi i�letim sistemini bilgisayarda �al��an g�revleri ger�ekle�tirmek gerekebilir. Bu makalede, �rnek, Microsoft Windows 95, Microsoft Windows 98, Microsoft Windows NT 3.51, Microsoft Windows NT 4.0, Microsoft Windows 2000 ve Microsoft Windows XP aras�nda ayr�m g�sterilmi�tir.

Win32 GetVersionEx i�levi, bir program�, i�letim sistemini belirlemek i�in kullanabilece�iniz bilgileri d�nd�r�r. Bu de�erler aras�nda birincil ve ikincil s�r�m numaralar�n� ve bir platform tan�mlay�c�s� olan. Windows 98'in giri� ile �u anda kullan�mda hangi Windows s�r�m�n� belirlemek i�in daha karma��k bir mant�ksal de�erlendirme al�r. Listenin alt�ndaki GetVersionEx i�levi taraf�ndan doldurulan OSVERSIONINFO yap�s�n� de�erlendirmeniz i�in gerekli veri sa�lar:

Bu tabloyu kapaBu tabloyu a�

	Windows 95	Windows 98,	Windows Me	Windows NT 4.0	WINDOWS 2000	WINDOWS XP
PlatformID	1	1	1	2	2	2
Ana s�r�m	4	4	4	4	5	5
Alt s�r�m	0	10	90	0	0	1

�ste | Geri Bildirim Ver

Daha fazla bilgi

Ad�m ad�m �rnek

Yeni bir proje standart exe DOSYAS�, Visual Basic'te ba�lat�n. Varsay�lan olarak, Form1 olu�turulur.
Proje men�s�nden bir Standart mod�l projeye ekleyin.

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

Form1 <a1>Load</a1> olay� a�a��daki kod sat�r�n� ekleyin:
MsgBox GetVersion()
Projeyi �al��t�r�n ve bir ileti kutusu do�ru Windows s�r�m�n� g�r�nt�ledi�ini unutmay�n.

�ste | Geri Bildirim Ver

Referanslar

Ek bilgi i�in, Microsoft Bilgi Bankas�'ndaki makaleyi g�r�nt�lemek �zere a�a��daki makale numaras�n� t�klat�n:

92936

(http://support.microsoft.com/kb/92936/ )

VB GetVersion ile Windows 3.1 s�r�m numaras� alma

�ste | Geri Bildirim Ver

�zellikler

Makale numaras�: 189249 - Son G�zden Ge�irme: 03 Eyl�l 2004 Cuma - G�zden ge�irme: 3.0

Bu makaledeki bilginin uyguland�� durum:

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

kbmt kbhowto KB189249 KbMttr

Otomatik Terc�me

�NEML�: Bu makale, bir ki�i taraf�ndan �evrilmek yerine, Microsoft makine-�evirisi yaz�l�m� ile �evrilmi�tir. Microsoft size hem ki�iler taraf�ndan �evrilmi�, hem de makine-�evrisi ile �evrilmi� makaleler sunar. B�ylelikle, bilgi bankam�zdaki t�m makalelere, kendi dilinizde ula�m�� olursunuz. Bununla birlikte, makine taraf�ndan �evrilmi� makaleler m�kemmel de�ildir. Bir yabanc�n�n sizin dilinizde konu�urken yapabilece�i hatalar gibi, makale; kelime da�arc��, s�z dizim kurallar� veya dil bilgisi a��s�ndan yanl��lar i�erebilir. Microsoft, i�eri�in yanl�� evrimi veya onun m��teri taraf�ndan kullan�m�ndan do�an; kusur, hata veya zarardan sorumlu de�ildir. Microsoft ayr�ca makine �evirisi yaz�l�m�n� s�k�a g�ncellemektedir.

Makalenin �ngilizcesi a�a��daki gibidir:189249

(http://support.microsoft.com/kb/189249/en-us/ )

�ste | Geri Bildirim Ver