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

[MagicAndre1981]

ähm ja. Wofür mache ich mir die Mühe alle Versionen bis ins Detail zu unterscheiden. Schau dir meine Version doch an, da ist ALLES drin. mehr findest du nirgends im Web!

[negaH]

Was ist mit Win3.09 Beta Release ?

finde ich nicht in deinem Source ;(

Gruß Hagen

[MagicAndre1981]

och menno, alle Betas hab ich nicht drin. Und Win3.1 ist einfach zu alt :tongue: