Home » Tipps & Tricks » System » Systemeigenschaften » Windows NT/2000/XP oder Windows 9x/Me

Windows NT/2000/XP oder Windows 9x/Me

Folgende Funktion prüft, ob es sich bei einem Windows-System um ein System aus der NT-Reihe, wie z.B. NT, 2000 und XP handelt oder ob es aus der 9x/Me-Reihe entstammt:

function IsWindowsNT: Boolean;
begin
  Result:=Win32Platform = VER_PLATFORM_WIN32_NT;
end;

Aufgerufen werden kann die Funktion beispielsweise so:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsWindowsNT then
    Showmessage('Es handelt sich um ein NT-System');
end;

Setzen Sie diesen Quellcode nur in Windows-Systemen ein, da nur dort diese Unterscheidung relevant ist.