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!

[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 von rollstuhlfahrer:

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!

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