function GetWinVersion: string;
var
    Info : TOsversionInfo;
    NazwaWindowsa, Wersja: string;
    Rejestr : TRegistry;
begin
    Info.dwOSVersionInfoSize := SizeOf(Info);
    GetVersionEx(Info);
    //wszystkie dane są zapisane oczywiście w rejestrze
    //chyba, że nie ma rejestru (Win 3.1)
    Rejestr := TRegistry.Create;
    Rejestr.RootKey := HKEY_LOCAL_MACHINE;
    case Info.dwPlatformId of
        VER_PLATFORM_WIN32s:
        begin
            NazwaWindowsa := 'Windows 3.1';
        end;
        VER_PLATFORM_WIN32_WINDOWS:
        begin
            Rejestr.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion', False);
            NazwaWindowsa := Rejestr.ReadString('ProductName');
            Wersja := Rejestr.ReadString('VersionNumber');
        end;
        VER_PLATFORM_WIN32_NT:
        begin
            Rejestr.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion', False);
            NazwaWindowsa := Rejestr.ReadString('ProductName');
            Wersja := Rejestr.ReadString('CurrentVersion');
        end;
    end;
    Rejestr.Free;
    Result := NazwaWindowsa + ' (wersja ' + Wersja + ')';
end;

Aby dodać komentarz zaloguj się. Jeśli nie masz konta, załóż je sobie.
Tylko zarejestrowani użytkownicy mogą pisać komentarze.