Fragen zur Ermittlung der Windowsversion

[Mazel]

Hallo,

ich habe ein paar Fragen zur Ermittlung der Windowsversion. Nun wusste ich nicht ganz ob ich für jede Frage einen neuen Thread eröffnen soll oder nicht. Ich habe mich nun für diese Variante entschieden, da es ja doch ganz speziell um das Betriebssystem und um TOSVersionInfoEx geht.

Ich arbeite mit folgenden Typ:

Delphi-Quellcode:

type
 POSVersionInfoEx = ^TOSVersionInfoEx;
 TOSVersionInfoEx = packed record
    dwOSVersionInfoSize   : DWORD;
    dwMajorVersion        : DWORD;
    dwMinorVersion        : DWORD;
    dwBuildNumber         : DWORD;
    dwPlatformId          : DWORD;
    szCSDVersion          : array [0..127] of AnsiChar;
    wServicePackMajor     : Word;
    wServicePackMinor     : Word;
    wSuiteMask            : Word;
    wProductType          : Byte;
    wReserved             : Byte;
  end;

Info: TOSVersionInfoEx;

1. Ich möchte am Ende meine Prozedur die Buildnummer ausgeben, dazu nutze ich folgendes:

Build.Caption := IntToStr(Info.dwBuildNumber and $FFFF); Wozu dient "and $FFFF"? Ich habe es auch ohne diesen Wert probiert und es geht (möglich das dies Platformabhängig ist, habe WinXP Home Edition).


2. Um herauszufinden ob es sich bei dem Betriebssystem um Windows 98 oder 98 SE handelt habe ich folgendes gefunden:

Delphi-Quellcode:

If (Info.dwMajorVersion = 4) and (Info.dwMinorVersion = 10) then
  begin
   OS.Caption:='Microsoft Windows 98';
   If (Info.szCSDVersion[1] = 'A') then OS.Caption:=OS.Caption + ' SE';
  end;

Hier wird Info.szCSDVersion[1] abgefragt ob es A ist. Auf der Seite von MicrosoftGetting the System wird allerdings noch gefragt ob Info.szCSDVersion[1] = B ist. Wo ist da der Unterschied?
Dann hatte ich hier im Forum noch ein anderen Code gefunden (von MagicAndre1981), Windows Version ermitteln, wo er auch noch die Codenames ermittelt. Dort habe ich folgendes gefunden:

Delphi-Quellcode:

if(osvi.dwMajorVersion = 4) and (osvi.dwMinorVersion = 10) then
  begin
    Result := 'Microsoft Windows 98 ';
    if(osvi.szCSDVersion[0] = 'A') then Result:= Result + 'SE ';
  end;

Er fragt szCSDVersion[0] ab. Wo ist bei den Codes der Unterschied?
szCSDVersion[0] bzw. szCSDVersion[1] und 'A' und/oder 'B'

Ich hoffe ihr könnt mir helfen.

Gruß
Mazel