Genaue Windows Version ermitteln

[Daniel G]

So?

DSDT.Info sagt dazu:

Dieser Artikel zeigt, wie Sie die verwendete Windows-Version ermitteln. In der Unit SysUtils sind dazu einige globale Variablen vorhanden, worüber sich die Produktlinie (Win32Platform - W9X oder NT), die Major (Win32MajorVersion), Minor (Win32MinorVersion), sowie die Buildnummer (Win32BuildNumber) ermitteln lassen. Eine weitere Variable enthält Informationen über evtl. installierte ServicePacks (Win32CSDVersion).

Folgende Funktion ordnet diese Informationen einem entsprechenden Betriebssystem zu:

Delphi-Quellcode:

function GetWinVersion: string;
begin
  result:='Unbekannte Version';
  case Win32Platform of
    1:// 9x-Reihe
      If Win32MajorVersion=4 Then Begin
        Case Win32MajorVersion of
            0: result:='Windows 95';
            10: result:='Windows 98';
            90: result:='Windows Me';
        end;
      end;
  2: // NT-Reihe
     Case Win32MajorVersion of
         3:IF Win32MinorVersion=51 then
              result:='Windows NT 3.51';
         4:If Win32MinorVersion=0 then
             result:='Windows NT 4';
         5:Case Win32MinorVersion of
              0: result:='Windows 2000';
              1: result:='Windows XP';
              2: result:='Windows .NET Server';
           end;
     End;
  end;
  //Win32CSDVersion enthält Informationen zu Servicepacks
  if Win32CSDVersion<>'' then
    result:=result+' '+Win32CSDVersion;
end;

Unterstützt werden alle Betriebssysteme ab Windows 95.

Eine Dokumentation zu den verwendeten Versionsnummer befindet sich in der MSDN.

Eine ähnliche Funktion befindet sich auch in der JCL in der Unit JCLSysInfo und trägt den Namen GetWindowsVersion.

Zu finden auch hier