Deteksi Versi Windows

Windows menyimpan informasi tentang sistem operasi dengan format sebagai berikut:

  typedef struct _OSVERSIONINFO {
  DWORD dwOSVersionInfoSize;
  DWORD dwMajorVersion;
  DWORD dwMinorVersion;
  DWORD dwBuildNumber;
  DWORD dwPlatformId;
  TCHAR szCSDVersion[128];
} OSVERSIONINFO;

Berikut adalah penjelasan field-fieldnya:

1. dwOSVersionInfoSize
   Ukuran record (struktur data) untuk menyimpan informasi
2. dwMajorVersion
   Digit yang menunjukkan versi mayor (versi perubahan besar pada sistem operasi)
3. dwMinorVersion
   Digit yang menunjukkan versi minor (perubahan kecil)

4. dwBuildNumber 

   Nomor pembuatan sistim operasi
   

5. dwPlatformId Platform sistem operasi.
   
   berikut ini kemungkinan isi dari dwPlatformId :




Field	Arti
VER_PLATFORM_WIN32s	Microsoft Windows 95 Microsoft Windows 98 Microsoft Windows Millennium Edition (ME)
VER_PLATFORM_WIN32_NT	Microsoft Windows Vista Microsoft Windows 7 Microsoft Windows Server 2003 Microsoft Windows XP Microsoft Windows 2000 Microsoft Windows NT

Lantas bagaimana membedakan jenis windows jika kita sudah mengetahui dwPlatformID adalah  VER_PLATFORM_WIN32_NT? Kita mengetahuinya dengan memeriksa versi mayor dan minornya, melalui dwMajorVersion dan dwMinorVersion.

Sistem Operasi	Versi Mayor	Versi Minor
Windows 8	6	2
Windows Server 2012	6	2
Windows 7	6	1
Windows Server 2008 R2	6	1
Windows Server 2008	6	0
Windows Vista	6	0
Windows Server 2003 R2	5	2
Windows Server 2003	5	2
Windows XP	5	1
Windows 2000	5	0

Sekarang marilah kita membuat programnya dengan cara membuatnya menjadi sebuah function seperti dibawah ini:


function GetWindowsVersion: String; var lpVersionInformation: TOSVersionInfo; begin lpVersionInformation.dwOSVersionInfoSize := sizeof(TOsVersionInfo); GetVersionEx(lpVersionInformation); with lpVersionInformation do begin case dwPlatformId of VER_PLATFORM_WIN32s: Result := 'Microsoft Win32s'; VER_PLATFORM_WIN32_WINDOWS: begin if (dwMajorVersion = 4) and (dwMinorVersion = 0) then Result := 'Microsoft Windows 95' else if (dwMajorVersion = 4) and (dwMinorVersion = 10) then Result := 'Microsoft Windows 98' else if (dwMajorVersion = 4) and (dwMinorVersion = 90) then Result := 'Microsoft Windows Millennium Edition (ME)'; end; VER_PLATFORM_WIN32_NT: begin if (dwMajorVersion = 6) and (dwMinorVersion = 0) then Result := 'Microsoft Windows Vista' else if (dwMajorVersion = 6) and (dwMinorVersion = 1) then Result := 'Microsoft Windows 7' else if (dwMajorVersion = 5) and (dwMinorVersion = 2) then Result := 'Microsoft Windows Server 2003' else if (dwMajorVersion = 5) and (dwMinorVersion = 1) then Result := 'Microsoft Windows XP' else if (dwMajorVersion = 5) and (dwMinorVersion = 0) then Result := 'Microsoft Windows 2000' else Result := 'Microsoft Windows NT' end; end; end; end;

Cara memanggilnya dari aplikasi adalah sebagai berikut:

var JenisWindows : String;
begin 
    JenisWindows := GetWindowsVersion; 
    ShowMessage(JenisWindows);   
end;

Deteksi Versi Windows 2012-09-06T11:30:00+07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer