Win & Dos Versions Nummern abfragen.

**KodeZwerg**

Hallo, ich bastel gerade an einer About-Box und wollte als mini-Gimmick eine Oldstyle Windows und Dos Versions Angabe integrieren, also nichts Aufregendes wo einem zig Sachen über's OS erzählt wird sondern lediglich 2 Werte, wahrscheinlich in einem LED Look aber das tut hier nichts zur Sache.

Meine Frage relativ simpel,
bisher habe ich habe immer

markieren

Code:

			Var WinVersion, DosVersion: Word;

    WinStr, DosStr: String;

//...

WinVersion := Windows.GetVersion and $0000FFFF;

WinStr := IntToStr(Lo(WinVersion))+'.'+IntToStr(Hi(WinVersion));

DosVersion := Windows.GetVersion shr 16;

DosStr := IntToStr(Hi(DosVersion))+'.'+IntToStr(Lo(DosVersion));

diesen Code benutzt, sollte ich meinen Code updaten für Delphi (Tokyo) oder ist das alles noch konform?

Win & Dos Versions Nummern abfragen.

Win & Dos Versions Nummern abfragen.

Forumregeln