Vielen Dank!!
@JasonDX: XP x64 hat die Versionsnummer 5.2, der Block muss also für beide fragwürdigen Betriebssysteme folgendermaßen erweitert werden, denke ich:
Delphi-Quellcode:
// Windows NT/2000
VER_PLATFORM_WIN32_NT:
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 = 5) and (minorVer = 2) then
Result := cOsXP64
else if majorVer = 6 then
Result := cOsVista
else
Result := cOsUnknown;
end;
Zitat:
natuerlich muss TOSVersionInfo auch dementsprechend erweitert werden
Wie meinst du das? Das wird doch nur benutzt um die Versionsnummer auszulesen, was muss dafür erweitert werden?