16.12.13. function GetOSVersion
function GetOSVersion(var MajorVersion, MinorVersion, BuildNumber, PlatformId : dword) : boolean;
Функция запрашивает версию операционной системы, при успешном выполнении возвращает true, в этом случае значения переданных в качестве параметров переменных MajorVersion, MinorVersion, BuildNumber, PlatformId типа DWORD заполняются соответствующими значениями.
Совместимость: AVZ 5.41 и выше
Пример:
var
MajorVersion, MinorVersion, BuildNumber, PlatformId : dword;
begin
if GetOSVersion(MajorVersion, MinorVersion,
BuildNumber, PlatformId) then begin
AddToLog('Версия операционной системы определена успешно');
AddToLog('MajorVersion='+IntToStr(MajorVersion));
AddToLog('MinorVersion='+IntToStr(MinorVersion));
AddToLog('BuildNumber='+IntToStr(BuildNumber));
AddToLog('PlatformId='+IntToStr(PlatformId));
end else
AddToLog('Ошибка определения версии операционной системы');
end.
В примере использовались: AddToLog