Function IsWindows11
Posted: Fri Oct 14, 2022 3:27 pmFor now it is not a specific function to verify the presence of Windows 11. For those who need to verify this version, I made this temporary function.
- Code: Select all Expand view
- function IsWindows11()
local oReg := TReg32():New( HKEY_LOCAL_MACHINE,;
"SOFTWARE\Microsoft\Windows NT\CurrentVersion",;
.F. )
local cProductName := oReg:Get( "ProductName" )
Local lc_nCurrentBuild := Val(oReg:Get("CurrentBuildNumber"))
Local lc_lRet11 := .F.
oReg:Close()
If "Windows 10" $ cProductName .and. lc_nCurrentBuild >= 22000
lc_lRet11 := .T.
EndIf
return lc_lRet11
