auslesen der windowsversion

[_master_]

Delphi-Quellcode:

function TMainForm.WinVer: String;
begin
Case Win32Platform of
VER_PLATFORM_WIN32s :
        Result := 'Windows 3.1';
VER_PLATFORM_WIN32_WINDOWS :
begin
        Result := 'Windows 95';
        if Win32MajorVersion = 4 then
                if Win32MinorVersion >= 90 then
                Result := 'Windows ME'
                else
        if Win32MinorVersion >= 10 then
                Result := 'Windows 98';
end;
VER_PLATFORM_WIN32_NT :
begin
        Result :='Windows NT';
        if Win32MajorVersion = 5 then
                if Win32MinorVersion >= 1 then
                Result := 'Windows XP'
                else
                Result := 'Windows 2000';
end;
else
        Result := 'Unknown OS';
end;
end;
{ * Aufrufen * }
procedure TMainForm.Button1Click(Sender: TObject);
begin
ShowMessage(WinVer);
end;