OS auslesen

[sx2008]

Zitat von michael.funcke:

Hab jetzt meine Lösung gefunden:
function TForm1.GetOperatingSystem(): String;

Greift die Methode GetOperatingSystem() irgendwie auf das Formular zu?
Das war jetzt eine rethorische Frage; nein, GetOperatingSystem() greift nicht auf das
Formular zu und es hat absolut nichts mit dem Formular zu tun.

Also sollte man aus der Methode eine ganz normale Funktion machen:
function GetOperatingSystem(): String;

[Luckie]

Und statt String AnsiString verwenden, dann gibt es weniger Ärger später mit Delphi2009.

[Bernhard Geyer]

Zitat von Luckie:

Und statt String AnsiString verwenden, dann gibt es weniger Ärger später mit Delphi2009.

Eher mehr Arger denn TOSVersionInfo liegt auch in einer A und W-Version vor, so das man hier wenn man schon AnsiString verwendet auch gleich fest an TOSVersionInfoA binden muss und nicht zuverlässig beim D2009-Umstieg eine Compilerwarnung zu haben.

[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