Hallo zusammen,
ich möchte gerne auslesen ob es sich beim installierten Betriebssystem um
Windows XP oder Windows NT 4 handelt.
Bisher habe ich leider nur diese Funktion gefunden, aber da kann ich ja
nicht eindeutig bestimmen obs nun XP oder NT 4 ist
Hat da per Zufall jemand eine Lösung?
Delphi-Quellcode:
function GetOperatingSystem: oOperatingSytemType;
var
xOS : TOSVersionInfo;
begin
Result := WinUnKnown;
try
xOS.dwOSVersionInfoSize := sizeof(TOSVERSIONINFO);
GetVersionEx(xOS);
case xOS.dwPlatformId
of
VER_PLATFORM_WIN32s : Result := Win3x;
VER_PLATFORM_WIN32_WINDOWS : Result :=
Win9x;
VER_PLATFORM_WIN32_NT : result :=
WinNT;
end;
except
end;
end;