Code: Select all
// BPD2000
#include "hmg.ch"
Function Main()
Msginfo(IsWin64(),"IsWin64()" + space(10))
Return
function IsWin64()
Return IF(Len( GetEnv( "ProgramW6432" )) > 0 ,.T.,.F.)
Moderator: Rathinagiri
Code: Select all
// BPD2000
#include "hmg.ch"
Function Main()
Msginfo(IsWin64(),"IsWin64()" + space(10))
Return
function IsWin64()
Return IF(Len( GetEnv( "ProgramW6432" )) > 0 ,.T.,.F.)
Thanks to detailed test infobpd2000 wrote:I have tested on WinXP, Win10 with 32 bit OS and 64 bit OS
Any suggestion welcome
Code: Select all
Return (! EMPTY( hb_GetEnv( "ProgramW6432" )))
This is correct because WOW64 only exists in 64-bit Windows.bpd2000 wrote:Code: Select all
// BPD2000 #include "hmg.ch" Function Main() Msginfo(IsWin64(),"IsWin64()" + space(10)) Return function IsWin64() Return IF(Len( GetEnv( "ProgramW6432" )) > 0 ,.T.,.F.)
Code: Select all
#xtranslate HMG_IsWin64() => IF( EMPTY( GetEnv( "ProgramW6432" ) ), .F., .T. )