Die Abfrage ist ja das einfachste an der Sache:
Delphi-Quellcode:
//***********************************************************************//
// Ist mindestens Windows 2000 installiert? //
//***********************************************************************//
function minWin2000: Boolean;
var
os : TOSVersionInfo;
begin
os.dwOSVersionInfoSize := sizeof(
os);
GetVersionEx(
os);
if (
os.dwPlatformId = VER_PLATFORM_WIN32_NT)
and
(
os.dwMajorVersion >= 5)
then minWin2000 := True
else minWin2000 := False;
end;
NT 4.0 Workstation wird wohl kaum noch jemand installiert haben!?