OK, aber das habe ich eigentlich hier berücksichtigt:
Delphi-Quellcode:
if (osvi.dwMajorVersion = 6) then
begin
if (osvi.dwMinorVersion = 0) then
begin
if (osvi.wProductType = VER_NT_WORKSTATION) then
Result := 'Windows Vista'
else
Result := 'Windows Server 2008';
end;
Wie im Original auch.