OS auslesen

[michael.funcke]

Hi,

würde gerne für mein Programm das OS (nur Windows) des Benutzers auslesen. Dabei wären Win95, Win98, Win2000, WinXP, WinVista und Win7 von Bedeutung. Die ganzen NT-Systeme brauche ich nicht unbedingt.

Hab
http://www.delphipraxis.net/145865-b...-auslesen.html
http://www.delphipraxis.net/75631-wi...und-vista.html
http://msdn.microsoft.com/en-us/library/ms724834
schon durchgelesen, aber das ergibt für mich alles keinen Sinn. :(
Gibt es fertigen Code, den man nehmen kann, um das OS auszulesen und nachher in nem String stehen zu haben?

Danke schonmal für alle Antworten! :thumb:

[rollstuhlfahrer]

Es gibt da schon dutzende Threads (bestimmt) dafür hier. Meine ultimative Lösung war immer "cmd /c ver" aufzurufen und das auszulesen, was am Ende rauskommt, denn das sollte aller Wahrscheinlichkeit nach stimmen. Du kannst aber auch dich selbst auf den Weg machen und mit Hilfe von GetVersionEx() dir die Versionsnummer des Systems geben lassen. Dann kannst du anhand von den ersten beiden Stellen ermitteln, was du für ein System vor dir hast. Win XP hat die Nummer 5, Vista 6 und Win7 6.1. Alle anderen Systeme solltest du eh nicht mehr finden und wenn doch, dann nur noch in Ausnahmefällen.

Bernhard

[Luckie]

Dir ist schon klar, dass ab Windiws2000 alles NT Systeme sind? Und fertigen Code hast du doch schon gefunden. Was willst du denn noch?

[Dezipaitor]

Ja, sowas gibt es. In der Delphi-Praxis findest du es unter "Windows version ermitteln" in der Suchfunktion. Probier es mal aus, gibt ne Menge guter Sachen darin. Über google wirst du das so nicht schnell finden.

[Satty67]

Zitat:

Zitat von rollstuhlfahrer (Beitrag 1096575)

mit Hilfe von GetVersionEx

Erst vor kurzem durchs Forum drauf gestossen:

SysUtils bietet schon Minor/Major/Build/CSD/Platform an. Einfach mal SysUtils.Win32 eingeben und schauen was angeboten wird.

[RWarnecke]

Oder noch einfacher das Betriebssystem aus der Registry auslesen. Es steht seit Windows 2000 immer an der gleichen Stelle.

[michael.funcke]

Zitat:

Dir ist schon klar, dass ab Windiws2000 alles NT Systeme sind?

Nein, das war mir nicht klar. Danke.

Hab jetzt meine Lösung gefunden:

Code:

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;

Danke euch! :thumb:

[sx2008]

Zitat:

Zitat von michael.funcke (Beitrag 1096635)

Hab jetzt meine Lösung gefunden:

Delphi-Quellcode:

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:

Delphi-Quellcode:

function GetOperatingSystem(): String;

[Luckie]

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

[Bernhard Geyer]

Zitat:

Zitat von Luckie (Beitrag 1096733)

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:

Zitat von p80286 (Beitrag 1318254)

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:

Zitat von mensch72 (Beitrag 1318263)

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" hat8-)