Windows Version ermitteln

[Willie1]

Zitat:

Zitat von DaCoda (Beitrag 1537152)

Du bekommst eigentlich alle Infos aus System.SysUtils.TOSVersion:

Code:

uses
  Syste.SysUtils;

  sTest := 'Betriebssystem: ' + TOSVersion.Name;
  sTest := 'Build: ' + TOSVersion.Build.ToString;

  etc.

Hallo DaCoda, bei Windows 10 wird alles außer der Buildnummer (=0) einschl. 64 Bit Edition richtig angezeigt. Windows 11 wird nicht erkannt. Mein Delphi ist alt, vielleicht ist es bei Delphi 11 korrigiert worden?!. Weiß das einer?

[jaenicke]

Zitat:

Zitat von Willie1 (Beitrag 1537150)

Ich will nur eine korrekte Anzeige der Windows Version in der About-Box.

Den Sinn habe ich nie verstanden. Soll das zeigen, dass man es schafft, das auszulesen? Wenn ich Details zu Windows möchte, warum sollte ich da in irgendeine Aboutbox schauen?

Aber das kann natürlich jeder machen wie er möchte.

[DaCoda]

Ich habe das mal getestet unter Windows 11:

Code:

   Listbox1.Items.Add(TOSVersion.Name);
   Listbox1.Items.Add(TOSVersion.Build.ToString);
   Listbox1.Items.Add(TOSVersion.Major.ToString);
   Listbox1.Items.Add(TOSVersion.Minor.ToString);

Ergebnis siehe beigefügtes Bild.

[TomyN]

Zitat:

Ich frage überhaupt nichts ab. Das macht schon das Installationsprogramm InnoSetup

Drum hab ich auch zwei Versionen davon auf dem Rechner. Weil meine Software kann noch XP und Win7, Innosetup ab 6.X zumindest kein XP mehr...

[Willie1]

Hallo DaCoda, dann hast du wahrscheinlich Delphi 11. Bei mir wird für Build, Major, Minor u.a. Integer Werte immer 0 angezeigt. Auch 11 wird nicht angezeigt.

Delphi-Quellcode:

TOSVesrion.ToString

Bei mir steht Windows 10 (Version 10.0 Build 0 64-Bit Edition) auf beiden Rechnern.

[DaCoda]

Hallo Wille,
hol dir die Info's doch direct aus der Registry:

[jaenicke]

Zitat:

Zitat von DaCoda (Beitrag 1537164)

Hallo Wille,
hol dir die Info's doch direct aus der Registry:

Es ging ja darum, dass Windows 11 auch als Windows 11 erkannt wird. An der Stelle steht auch unter Windows 11 aber "Windows 10 Pro".

[himitsu]

Wie wir im Manifest sehen, ist ein Windows 11 ja auch ein 10 ... hat jedenfalls die selbe GUID :stupid:

[jaenicke]

Zitat:

Zitat von himitsu (Beitrag 1537174)

Wie wir im Manifest sehen, ist ein Windows 11 ja auch ein 10 ... hat jedenfalls die selbe GUID :stupid:

Windows 10 ist ja auch die letzte Windowsversion. :lol:

[himitsu]

macOS ist auch nur der neue Name ... intern ist es doch auch nur ein OS X, also soooo verkehrt kann es nicht sein :stupid: