Кто-нибудь знает, работает ли TOSVersion.Name в Windows 10?
У меня есть приложение vcl, которое имеет событие show формы, которое получает детали операционной системы и отображает их в поле TMemo, используя запись TOSVersion из SysUtils.
with mmoOSInfo.Lines do
begin
Clear;
Add(TOSVersion.ToString);
Add('');
Add('Architecture: ' + OSArchitectureToStr(TOSVersion.Architecture));
Add('Platform: ' + OSPlatformToStr(TOSVersion.Platform) +
IntToStr(PlatformFromPointer));
Add('Build: ' + IntToStr(TOSVersion.Build));
Add('Major: ' + IntToStr(TOSVersion.Major));
Add('Minor: ' + IntToStr(TOSVersion.Minor));
Add('Name: ' + TOSVersion.Name);
Add('Service Pack - Major: ' + IntToStr(TOSVersion.ServicePackMajor));
Add('Service Pack - Minor: ' + IntToStr(TOSVersion.ServicePackMinor));
end;
Код выполняется без каких-либо проблем с XP (да, мы все еще используем его (висит голова в стыде)), Vista, Windows 7, Windows 8.1, настольные ПК, ноутбуки и Surface Pro, но не при установке в Windows 10.
Когда я отлаживаю использование paserver, TOSVersion.Name возвращается как: = 'Windows 8'. Я что-то делаю неправильно или ожидаю слишком многого для TOSVersion для обнаружения Windows 10? Никакое исключение не запускается. Из двух компьютеров Windows 10, к которым у меня есть доступ, один путь миграции был из Windows 8.1, другой - из Windows 7.
Большое спасибо