Falscher Product Type in OSVersionInfoEx

[Nersgatt]

Moin,

ich ermittle wie folgt die Windowsversion

Delphi-Quellcode:

function GetOSVersionInfoEx : TOSVersionInfoEx;
var
  OSVersionInfo   : TOSVersionInfo absolute Result;
  Done : Boolean;
begin
  FillChar(Result, SizeOf(Result), #0);
  Done := False;
  try
    Result.dwOSVersionInfoSize := SizeOf(TOSVersionInfoEx);
    Done := GetOSVersionEx(Result);
  except
  end;
  if not(Done) then
  begin
    try
      FillChar(Result, SizeOf(Result), #0);
      Result.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
      GetVersionEx(OSVersionInfo);
    except
    end;
  end;
end;

function GetWinVersion : string;
var
  OSInfo : TOSVersionInfoEx;
begin
  Result := 'Unbekannte Windows-Version';

  OSInfo := GetOSVersionInfoEx;

  case OSInfo.dwPlatformId of
    VER_PLATFORM_WIN32s:
      begin
        Result := 'Win32s';
      end;
    VER_PLATFORM_WIN32_WINDOWS:
      begin
        if (OSInfo.dwMajorVersion = 4) and (OSInfo.dwMinorVersion =  0) then
          Result := 'Windows 95';
        if (OSInfo.dwMajorVersion = 4) and (OSInfo.dwMinorVersion = 10) then
          Result := 'Windows 98';
        if (OSInfo.dwMajorVersion = 4) and (OSInfo.dwMinorVersion = 90) then
          Result := 'Windows Millennium Edition';
      end;
    VER_PLATFORM_WIN32_NT:
      begin
        if (OSInfo.dwMajorVersion = 4) and (OSInfo.dwMinorVersion = 0) then
          Result := 'Windows NT';
        if (OSInfo.dwMajorVersion = 5) and (OSInfo.dwMinorVersion = 0) then
          Result := 'Windows 2000';
        if (OSInfo.dwMajorVersion = 5) and (OSInfo.dwMinorVersion = 1) then
          Result := 'Windows XP';

        if (OSInfo.dwMajorVersion = 5) and (OSInfo.dwMinorVersion = 2) then
        begin
          if GetSystemMetrics(SM_SERVERR2) <> 0 then
            Result := 'Windows Server 2003 "R2"'
           else
             if (OSInfo.wProductType = VER_NT_WORKSTATION) then
               Result := 'Windows XP x64'
             else
               if OSInfo.wSuiteMask = VER_SUITE_WH_SERVER then
                 Result := 'Windows Home Server'
               else
                 Result := 'Windows Server 2003';
        end;

        if (OSInfo.dwMajorVersion = 6) and (OSInfo.dwMinorVersion = 0) then
        begin
          if (OSInfo.wProductType = VER_NT_WORKSTATION) then
            Result := 'Windows Vista'
          else
            Result := 'Windows Server 2008';
        end;

        if (OSInfo.dwMajorVersion = 6) and (OSInfo.dwMinorVersion = 1) then
        begin
          if (OSInfo.wProductType = VER_NT_WORKSTATION) then
            Result := 'Windows 7'
          else
            Result := 'Windows Server 2008 R2';
        end;

        if (OSInfo.dwMajorVersion = 6) and (OSInfo.dwMinorVersion = 2) then
        begin
          if (OSInfo.wProductType = VER_NT_WORKSTATION) then
            result := 'Windows 8'
          else
            result := 'Windows Server 2012';
        end;


        if (OSInfo.wSuiteMask and VER_SUITE_PERSONAL) = VER_SUITE_PERSONAL then
          Result := Result + ' Home Edition'
        else
          Result := Result + ' Professional';

      end;
  end;
  Result := Trim(Result + ' ' + OSInfo.szCSDVersion);
end;

Was ich nicht verstehe: mein Programm läuft auf einem Windows 7 in einer virtuellen Maschine. Nach der Zeile (OSInfo.dwMajorVersion = 6) and (OSInfo.dwMinorVersion = 1) hab ich in OSInfo.wProductType ein 0 stehen. Ich würde hier eine 1 (=VER_NT_WORKSTATION) erwarten. Was mache ich falsch?

Danke!
Jens

[Luckie]

Hat wahrscheinlich nichts mit deinem Problem zu tun, aber wenn deine Except-Abschnitte leer sind, kannst du gleich das ganze try-expect Konstrukt weglassen. Davon mal abgesehen, dass WinAPI Funktionen keine Delphi Exceptions werfen.

[Nersgatt]

Zitat von Luckie:

Hat wahrscheinlich nichts mit deinem Problem zu tun, aber wenn deine Except-Abschnitte leer sind, kannst du gleich das ganze try-expect Konstrukt weglassen. Davon mal abgesehen, dass WinAPI Funktionen keine Delphi Exceptions werfen.

Völlig korrekt. Das passiert, wenn man Code nicht gründlich genug liest, bevor man ihn verwendet. Danke schon mal für den Hinweis.

[Assarbad]

Soweit ich es sehe machst du nix falsch. Ich arbeite derzeit auch wiedermal an einer Klasse die wir hier benutzen und zumindest bis Windows 7 (inklusive), mache ich es genauso wie du.

Mir sind aber zwei Details aufgefallen:

1. Deine Funktion (GetOSVersionEx) ist nicht die API-Funktion (GetVersionEx) welche ich erwarten würde. Im zweiten Aufruf, wo es die erwartbare API-Funktion ist, ignorierst du den zurückgegebenen Wert.
2. Du wertest einen Boolean (1-Byte) aus, statt wie es zumindest die API erwarten würde, einen LongBool (BOOL, i.e. 4-Byte).

Dann noch zwei Fragen:

• Was gibt SizeOf(TOSVersionInfoEx) zurück?
• Kompilierst du die Unicode-Version oder ANSI? Lt. Delphiversion würde ich Unicode vermuten.

[musicman56]

Hallo,

dieses Thema ist doch schon so alt wie Nachbar's Katze. Warum macht man denn nicht mal was, das jeder einfach verwenden kann, anstatt dass jeder sein eigenes Süppchen kocht?

Da ich heute auch mal wieder an dem Thema dran war, hab ich das Beispiel ein bischen angepasst und das Ergebnis mal ran gehängt. Scheint alles zu funktionieren.

[Assarbad]

Zitat von musicman56:

Warum macht man denn nicht mal was, das jeder einfach verwenden kann, anstatt dass jeder sein eigenes Süppchen kocht?

Gute Frage. Vermutlich weil diejenigen welche es machen zu strenge Lizenzen oder keine Lizenzen wählen? Anders kann ich es mir nicht vorstellen.

Und: Überraschung, Überraschung ... auch deine Unit darf man nicht legal von anderen verwenden, da sie dem deutschen Urheberrecht unterliegt und du keine Lizenzbedingungen (ala MIT, BSD, X11, zlib, GPL) angegeben hast unter denen die Unit verwendet werden darf. Also: selber besser machen ...

Zitat von musicman56:

Da ich heute auch mal wieder an dem Thema dran war, hab ich das Beispiel ein bischen angepasst und das Ergebnis mal ran gehängt. Scheint alles zu funktionieren.

Ich versuche mich auch bei dir nochmals an dem Hinweis: Boolean ist nicht BOOL (aka LongBool). Warum ist das relevant? Weil bspw. der Wert $100 als BOOL auch True ist, dein Code dann aber voraussichtlich fröhlich auf einen Boolean, also $00 heruntercasten wird. Kann natürlich sein, daß Delphi hier mal wieder irgendwelche Compiler-Magic eingeführt hat (wundern tät es mich nicht). Früher war das jedenfalls in alten Delphiversionen nicht der Fall, weshalb die korrekte Variante irgendwas ala

Result := (0 <> GetVersionInfoEx(...)); wäre.