1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

function GetWindowsVersion : string;
var winInfo : TOSVersionInfo;
begin
    result := '';
    winInfo.dwOSVersionInfoSize := sizeof (OSVERSIONINFO);
    GetVersionEx(winInfo);
    if winInfo.dwPlatformId = VER_PLATFORM_WIN32_NT then begin
      if (winInfo.dwMajorVersion <= 4) then begin
        result :=  'Windows NT ' + inttostr(winInfo.dwMajorVersion);
      end;
      if ((winInfo.dwMajorVersion = 5) and (winInfo.dwMinorVersion = 0)) then
        result := 'Windows 2000'
      else
        if ((winInfo.dwMajorVersion = 5 ) and (winInfo.dwMinorVersion > 1)) then  result :=  'Windows XP';
    end;
    if winInfo.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS then begin
      if ((winInfo.dwMajorVersion > 4) or ((winInfo.dwMajorVersion = 4) and (winInfo.dwMinorVersion > 0))) then begin
        if (winInfo.dwMinorVersion = 90) then
          result := 'Windows ME'
        else
          result := 'Windows 98';
      end else
        result := 'Windows 95';
      end;
    if result = '' then result := 'Win32s';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 label1.Caption := GetWindowsVersion;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

function IsNT : boolean;
var VersionInfo : TOSVersionInfo;
begin
  VersionInfo.dwOSVersionInfoSize:=SizeOf(VersionInfo);
  GetVersionEx(VersionInfo);
  Result := (VersionInfo.dwPlatformId = VER_PLATFORM_WIN32_NT);
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsNT then
    statictext1.caption := 'Ahh, Windows NT !!!'
  else
    statictext1.caption := 'Oh Gott! Nur Windows 95 ...';
end;