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.