Feststellen welche Windows-Version verwendet wird

[Sprint]

Zitat von Helmi:

aber gibt es da keine einfachere Sache?

In der SysUtils Unit stellt dir Delphi dafür sogar Variablen zur Verfügung womit du
prüfen kannst, um welche Version es sich handelt.

Code:

  if Win32Platform = VER_PLATFORM_WIN32_NT then
    if Win32MajorVersion = 5 then
      case Win32MinorVersion of
        0: ShowMessage('Windows 2000');
        1: ShowMessage('Windows XP');
      end;