alle Windows Versionen von 95 bis Vista auslesen

[kriedel]

Ich hatte kürzlich das gleiche Problem.
Einfach den Code von www.swissdelphicenter.ch/de/showcode.php?id=316 etwas modifizieren:

Delphi-Quellcode:

{operating system (OS)constants }
const
  cOsUnknown = -1;
  cOsWin95 = 0;
  cOsWin98 = 1;
  cOsWin98SE = 2;
  cOsWinME = 3;
  cOsWinNT = 4;
  cOsWin2000 = 5;
  cOsXP = 6;
  cOsVista = 7;

In der Funktion GetOperatingSystem den Codeabschnitt bei VER_PLATFORM_WIN32_NT: erweitern:

Delphi-Quellcode:

VER_PLATFORM_WIN32_NT: { Windows NT/2000 }
        begin
          if majorVer <= 4 then
            Result := cOsWinNT
          else if (majorVer = 5) and (minorVer = 0) then
            Result := cOsWin2000
          else if (majorVer = 5) and (minorVer = 1) then
            Result := cOsXP
          else if (majorVer = 6) then
            Result := cOsVista
          else
            Result := cOsUnknown;
        end;

Abhängig vom Betriebssystem wird dann von der Funktion eine Zahl geliefert, die man beliebig weiter auswerten kann. Für Windows 95-Me den Code so lassen.
Die abzufragenden Werte für majorVer und minorVer kann man der msdn entnehmen: msdn2.microsoft.com/en-us/library/ms724834.aspx