Schnell u. einfach rausfinden ob Win9x oder Win NT / 2k / XP

[flomei]

Hallo!
Gibt es eine kleine Funktion die mir möglichst schnell und unkompliziert am besten nen Boolean-Wert liefert der mir sagt ob das OS des Benutzers Win 9x oder Win NT / 2k / XP ist.

Danke im Vorraus!

MfG Florian

[alcaeus]

Sieh dir diesen Beitrag mal an, vielleicht hilft der dir weiter. Ich kann leider nicht testen, welches Ergebnis Win9X etc. bei dieser Variable bringen.
Alles mit MajorVersion über 4 ist auf alle Fälle NT, 2k oder XP

Greetz
alcaeus

[flomei]

Jo danke, das hilft mir dann schon mal weiter...
DANKE!

MfG Florian

[Pierre]

Hallo,
hier nachschauen und in die Suche "Windows" eingeben, dann findest Du einen TIP "Windowsversion":

swiss delphi center
Gruß Pierre

[scp]

Nur die Versionsnummer zu nehmen ist evtl. unsicher, stattdessen sollte man dies hier nehmen:

Delphi-Quellcode:

function runonNT: boolean;
var
  lpVerInfo : TOSVersionInfo;
begin
  FillChar(lpVerInfo, SizeOf(lpVerInfo), 0);
  lpVerInfo.dwOSVersionInfoSize := SizeOf(lpVerInfo);
  GetVersionEx(lpVerInfo);
  result := (lpVerInfo.dwPlatformId = VER_PLATFORM_WIN32_NT);
end;

(Basiert auf einer Funktion von Assarbads ReUsables.pas)

[MrKnogge]

Dann weis er aber nur ob das Windows ein auf NT basierendes Windows ist...

[flomei]

Mehr müsste ich nicht wissen.
Nur ob das nen System der 9x-Schiene also (Win95, Win98 WinME) ist oder eins der NT-Schiene (WinNT, Win2k, WinXP)

MfG Florian

[scp]

Zitat von MrKnogge:

Dann weis er aber nur ob das Windows ein auf NT basierendes Windows ist...

Das hatte ich so aus der Fragestellung interpretiert (ein boolean wert kann nur wahr oder nicht wahr sein ).

[MrKnogge]

ich dachte er will dann mehrere functionen haben
IsWin9X: boolean;
IsWinMe: boolean;
....

[NicoDE]

Delphi-Quellcode:

if (GetVersion and DWORD($80000000)) = 0 then
begin
  // WinNT
end
else
begin
  // Win32s/Win9x
end;

ps: Typecast wegen Delphi2+3 (DWORD ist vorzeichenbehaftet).