Delphi-Quellcode:
function GetWinVersion: String;
begin
Result := 'Unbekannte Version';
case Win32Platform of
1:
begin
if Win32MajorVersion = 4 then
case Win32MajorVersion of
0: Result := 'Windows 95';
10: Result := 'Windows 98';
90: Result := 'Windows Me';
end;
end;
2:
begin
case Win32MajorVersion of
3:
begin
if Win32MinorVersion = 51 then
Result := 'Windows NT 3.51';
end;
4:
begin
if Win32MinorVersion = 0 then
Result :='Windows NT 4';
end;
5:
begin
case Win32MinorVersion of
0: Result := 'Windows 2000';
1: Result := 'Windows XP';
2: Result := 'Windows .NET Server';
end;
end;
end;
end;
end;
if Win32CSDVersion <> '' then
Result := Result + ' ' + Win32CSDVersion;
end;
und ich glaube diesen code habe ich aus der
dp.