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:

Delphi-Quellcode:

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

[Der_Unwissende]

Zitat:

Zitat von Mazel

Delphi-Quellcode:

    dwBuildNumber         : DWORD;

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

Delphi-Quellcode:

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).

Hi,
was du hier siehst ist eine so genannte bitmaske. Du kannst $FFFF als Sedezimalen(Hex) Wert auffassen. In diesem Fall sind 2 Byte ($xx = 1 Byte) kodiert und diese sind komplett wahr/1. Das and ist in diesem Fall ein logisches und. Hier wird bitweise jede Stelle von Info.dwBuildNumber mit jede Bit von $FFFF verglichen. Das logische und gibt dann 1 zurück, wenn beide Bits 1 sind, sonst 0. Das heißt in deinem Fall, dass nur die untere 2 Byte von Info.dwBuildNumber zurückgegeben werden. Die oberen 2 (DWORD = 4 Byte) werden auf jeden Fall 0, da die Bitmaske hier 0 ist. Die unteren 2 Bytes hängen nur von Info.dwBuildNumber ab. 1 and x ist halt immer 1, wenn x = 1, sonst 0.

Zitat:

Zitat von Mazel

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?

Na ja, du prüfst nur, ob es a ist. Sie prüfen ob es A oder B ist, das heißt ein B würde zwar auf ein Windows 98 SE schließen lassen, du würdest es aber fälschlich nur als Win 98 erkennen.

Zitat:

Zitat von Mazel

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'

Hm, das ist eine schwierigere Frage. Erstmal zu dem Index allgemein, du hast hier den Zeiger auf ein Char (was dir übergeben wird). Das heißt, der Index würde mehr oder weniger den Buchstaben in einer Zeichenkette an der Stelle angeben. Für Windows 98 SE sagt MSDN dass hier ein A oder B steht. Wo genau wird leider auf der Seite nicht gesagt. Im Zweifelsfall sollte man immer das Array initialisieren (definiert jeden Wert auf chr(0) setzen) und dann schauen, ob sich eine Stelle geändert hat und diese A oder B beinhaltet. Logisch wäre hier natürlich immer die erste Stelle, damit die [0]. Auch bei deinem Array wäre dies die 0, da du dein Array 0 indexiert hast. Würdest du hier einen String verwenden, müsstest du aufpassen, da diese aut. 1 indexiert sind (erste Stelle = [1]). Warum Microsoft hier auf die Stelle 1 zugreift weiß ich nicht genau (die API kennt keine Delphi Strings, hier sind Arrays immer 0 indexiert). Ich würde sagen, dass man auf A und B prüfen muss (beides ist gültig) und dass die erste Stelle diesen Wert beinhalten sollte.

Gruß Der Unwissende

[Mazel]

Hi,

danke für die ausführlichen Informationen.

Das ich mit Info.szCSDVersion[x] das Zeichen prüfe ist klar :wink: aber eben welches, das war mir unklar, weil ich eben mehrere Möglichkeiten gesehen habe.

Nun zur Bitmaske. Ich, wie oben beschrieben, die Bitmaske nicht verwendet und trotzdem ein richtiges Ergebnis erhalten. Mir scheint, als ob ich diese Bitmaske nicht verwenden muss, oder leige ich da falsch?

[MagicAndre1981]

Uff, da habe ich einen schnitzer drin :oops:

Es muss

Delphi-Quellcode:

(osvi.szCSDVersion[1] = 'A')

sein. Hab das damals von Simmanze übernommen und nicht genau hingeschaut :wall: . Ich hab das gerade in einer VM mit Win98 SE überprüft :wall:

Ich teste das nochmal bei Windows 95, aber das wird wohl auch so sein :roll:

Sorry nochmal.

Ich mache bald ein Update meiner Erkennungsroutine :wink:

[Mazel]

Hi,

ok, auch wenn das Array bei 0 beginnt

Delphi-Quellcode:

 szCSDVersion          : array [0..127] of AnsiChar;

muss es bei 1 abgefragt werden?

Gruß
Mazel

[MagicAndre1981]

jupp, das muss man.

Delphi-Quellcode:

szCSDVersion[0]

und

Delphi-Quellcode:

szCSDVersion[2]

sind beide 0, der rest ist leer.

Das A steht beim

Delphi-Quellcode:

szCSDVersion[1]

drin. Aber von dem B habe ich noch nie was gehört. :gruebel:

[Mazel]

Wie schon oben beschrieben, auf der Seite von Microsoft sieht man, dass sie noch nach 'B' fragen:
Getting the System Version

Gruß
Mazel