Falsche Win-Version-Anzeige

[horsthorn]

Durch Zufall entdeckt:
Wenn ich diesen Code eingebe und starte:

CLS
Print "MajorVersion: " + @Str$((~GetVersion() & $FFFF) & $FF)

kommt diese Anzeige:



Auf dem System ist aber WIN-7
Bug oder was...?

[_Joerg_]

Was gibt denn $WinVer raus?

[horsthorn]

bei $winver sieht das so aus:

[ts-soft]

Auch Windows 7 hab einen 6.* Kernel, warum sollte dort also mehr rauskommen

[horsthorn]

Es geht mir nicht um den Kernel, sondern um die Anzeige auf der Oberfläche in einem Tool.
Hab mir selbst eine "Eselsbrücke" geschrieben:

PROC WINDOWS_VERSION
DECLARE winversion$
Winversion$=(Str$((~GetVersion() & $FFFF) & $FF)+"."+Str$((~GetVersion() & $FFFF) >> 8))
CASE winversion$ = "4.0":winanzeige$ = "Windows 95"
CASE winversion$ = "4.1":winanzeige$ = "Windows 98"
CASE winversion$ = "4.9":winanzeige$ = "Windows ME"
CASE winversion$ = "4.4":winanzeige$ = "Windows NT"
CASE winversion$ = "5.0":winanzeige$ = "Windows 2000"
CASE winversion$ = "5.1":winanzeige$ = "Windows XP"
CASE winversion$ = "6.0":winanzeige$ = "Windows Vista"
CASE winversion$ = "6.1":winanzeige$ = "Windows 7"
ENDPROC

[AHT]

Die Version ergibt sich aus Major Version und Minor Version.
Die Major Version für Windows7 ist 6, die Minor Version ist 1 => ergiebt zusammen 6.1.

[horsthorn]

@Andreas
Alles schön und gut. Wir wissen das.
Nun stell dir aber mal den "Normal-User" vor:
Der hat jetzt stolz ein Notebook für was weiß ich wieviele Euronen gekauft, der Verkäufer versichert ihm, daß er das neueste Betriebssystem hat, nämlich Windows-7, er läd sich irgendeine Software herunter und die zeigt ihm als Windows-Version 6.1 an.
Jetzt rennt er wutentbrannt in den PC-Laden, zieht den Verkäufer über den Tisch, knallt ihm eine und schmeisst das Notebook in die nächste Ecke usw... usw...
Alles nur, weil irgendein Programmierer schlampig gearbeitet hat und nicht dran gedacht hat, die Kernel-Anzeige in die Verkaufsanzeige umzuschreiben.

PS: Wenn du z.B. mein Tool "A-1-B" runterlädst, wirst du sehen, daß hier die Anzeige richtig für den "Normal-User" ist.

[AHT]

Das liegt an deinem Code, der ist nicht korrekt. Lies dir das mal durch:
Google Übersetzer

[horsthorn]

Zitat von AHT

Das liegt an deinem Code, der ist nicht korrekt. Lies dir das mal durch:

Welcher Code ist nicht korrekt

[Frabbing]

Deine Bitausmaskierung ist nicht so ganz korrekt. Probier mal:

Print Str$(~GetVersion() & $ff) + "." + Str$(~GetVersion() >> 8 & $ff)

& $FFFF & $FF ist z.B. unnützt, weil du zuerst eine größere Zahl stehen lässt, dann daraus nochmal eine kleinere usw.

[ts-soft]

Ist doch alles ganz einfach
Windows Vista ist Version 6.0
Windows 7 ist Version 6.1
Windows 8 wird wohl Version 6.2 oder 6.3 werden oder vielleicht auch 7.0

Weil Windows 7 ist der Name, der enthält keine Versionsangabe

[horsthorn]

Zitat von ts-soft

Ist doch alles ganz einfach
Windows Vista ist Version 6.0
Windows 7 ist Version 6.1
Windows 8 wird wohl Version 6.2 oder 6.3 werden oder vielleicht auch 7.0

Weil Windows 7 ist der Name, der enthält keine Versionsangabe

@Thomas
Ja was steht den in meiner "Eselsbrücke" und was habe ich geschrieben ?
Ich will den Namen automatisch anzeigen können.
D.h. wenn auf dem Rechner Windows-95 installiert ist, soll das gezeigt werden und wenn Windows-7 installiert ist, soll das gezeigt werden.
Die Windows-interne Bezeichnung sagt dem User nichts.
Falls es noch nicht gelesen wurde, meine "Eselsbrücke" macht das zeigt das vorhandene OS an - automatisch !

@Andreas
Da ist auch kein Text falsch.

[Volkmar]

Wenn ich mal ~GetVersion() durch eine Variable ersetze, kann ich mit Horsts Code jede Version korrekt anzeigen. Aber vielleicht siehst Du mal nach, was WIN7 eigentlich bei GetVersion liefert. Ich denke dabei an Windows 3.1. Das hatte intern $0a03, also dezimal ausgeschriebene Version 3.10 und nicht 3.1! Vielleicht ist sowas ja der Übeltäter. Habe leider kein Seven, kann das nicht selbst testen.

Gruß Volkmar

[horsthorn]

bei ~GetVersion() sagt mir die Anzeige: 498139398

[Volkmar]

Wäre dann als Hex $1DB10106, nach Deinem Code aufgedröselt wird das dann auch als Windows 7 erkannt. Wie gesagt, ~GetVersion() habe ich dazu durch eine Variable ersetzt und den Wert dort eingesetzt.

Gruß Volkmar