How detect windows 10 ?

[Romeo]

HI,

Anyone can help me to detect if running with Windows10 ?

The function ver:=GetVersion()

ver[1] 6
ver[2] 2

It is egual to Windos 8.1 ? (or not)

Any help

tks

[Antonio Linares]

Already included in FWH 15.07

Code: Select all  Expand view

#define  HKEY_LOCAL_MACHINE  2147483650  // 0x80000002

function IsWindows10()

   local oReg := TReg32():New( HKEY_LOCAL_MACHINE,;
                               "SOFTWARE\Microsoft\Windows NT\CurrentVersion",;
                               .f. )
   local cProductName := oReg:Get( "ProductName" )

   oReg:Close()

return "Windows 10" $ cProductName

[Romeo]

Resolved as always

tks