OS auslesen

[Roy Altenau]

Delphi-Quellcode:

function TForm1.GetOperatingSystem(): String;
var
  osVerInfo: TOSVersionInfo;
  majorVer, minorVer: Integer;
begin
  osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
  if GetVersionEx(osVerInfo) then
  begin
    majorVer := osVerInfo.dwMajorVersion;
    minorVer := osVerInfo.dwMinorVersion;
    case osVerInfo.dwPlatformId of
      // Windows NT/2000
      VER_PLATFORM_WIN32_NT:
        begin
          if majorVer <= 4 then
            Result := 'WinNT'
          else if (majorVer = 5) and (minorVer = 0) then
            Result := 'Win2000'
          else if (majorVer = 5) and (minorVer = 1) then
            Result := 'WinXP'
          else if (majorVer = 6) and (minorVer = 0) then
            Result := 'WinVista'
          else if (majorVer = 6) and (minorVer = 1) then
            Result := 'Win7'
          else
            Result := 'Unknown';
        end;
      // Windows 9x/ME
      VER_PLATFORM_WIN32_WINDOWS:
        begin
          if (majorVer = 4) and (minorVer = 0) then
            Result := 'Win95'
          else if (majorVer = 4) and (minorVer = 10) then
          begin
            if osVerInfo.szCSDVersion[1] = 'A' then
              Result := 'Win98SE'
            else
              Result := 'Win98';
          end
          else if (majorVer = 4) and (minorVer = 90) then
            Result := 'WinME'
          else
            Result := 'Unknown';
        end;
      else
        Result := 'Unknown';
    end;
  end
  else
    Result := 'Unknown';
end;

Bei diesen Code bekomme ich unter Windows7 (XP als Ergebnis

[p80286]

Zunächst einmal:
"The value returned by the GetVersionEx function now depends on how the application is manifested."
das findest Du hier

Und was sagt der Debugger dazu?

Gruß
K-H

[Bernhard Geyer]

Zitat von p80286:

Zunächst einmal:
"The value returned by the GetVersionEx function now depends on how the application is manifested."
das findest Du hier

Ich denke auch das hier einfach im Manifest der entsprechen "Ich unterstütze Win7/8/8.1/10-Eintrag fehlt. Damit heißt da für das OS: Dann melde ich mich halt als Windows XP.
Such man hier im Forum den "Manifest Generator" und schmeiß die XPTheme-Komponente (mit Uses-Eintrag) aus deinem Programm raus.

[mensch72]

Manifest ist der von MS "gewollte" Weg.. aber ich mag es z.B. nicht wenn mit in der nächsten OS Version wegen eventuell dann wieder fehlender Manifesteinträge eine simulierte OS Version zurückgegeben würde.

Das Thema gab es hier vor kurzem schonmal... letztendlich für mich die einfachste und universellste Lösung:
=> das auslesen Versionsinfo aus der Resource der "Kernel32.dll"... ist eindeutig incl. aller Servicepacks seit Win95

[Roy Altenau]

Zitat von mensch72:

Manifest ist der von MS "gewollte" Weg.. aber ich mag es z.B. nicht wenn mit in der nächsten OS Version wegen eventuell dann wieder fehlender Manifesteinträge eine simulierte OS Version zurückgegeben würde.

Das Thema gab es hier vor kurzem schonmal... letztendlich für mich die einfachste und universellste Lösung:
=> das auslesen Versionsinfo aus der Resource der "Kernel32.dll"... ist eindeutig incl. aller Servicepacks seit Win95

Und wie sieht so ein Code aus?

Danke sagt Roy

[mensch72]

der Resourcentyp ist FileVersionInfo... man suche dies bei Google oder auch hier bei DP... man findet mehr als genug und bei MS oder auch im INET(... z.B. schon wieder Google...) gibt es die Infos, welche Windowsversion welchen Eintrag inder Kernel32.dll" hat