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)