Page 1 of 2
IsWin64 Bit
Posted: Sat Apr 23, 2016 11:03 am
by bpd2000
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.)
Re: IsWin64 Bit
Posted: Sat Apr 23, 2016 11:30 am
by mol
+1
Re: IsWin64 Bit
Posted: Sat Apr 23, 2016 12:34 pm
by esgici
Tested under win32 and worked fine
Thanks again Mr. Dave
Viva HMG

Re: IsWin64 Bit
Posted: Sat Apr 23, 2016 1:42 pm
by andyglezl
Gracias !
Re: IsWin64 Bit
Posted: Sat Apr 23, 2016 3:07 pm
by serge_girard
To be an official HMG function !
Thanks Dave,
Serge
Re: IsWin64 Bit
Posted: Sat Apr 23, 2016 6:00 pm
by esgici
Does someone (including author) tested for Win64 ?
Regards
Re: IsWin64 Bit
Posted: Sun Apr 24, 2016 4:31 am
by bpd2000
I have tested on WinXP, Win10 with 32 bit OS and 64 bit OS
Any suggestion welcome
Re: IsWin64 Bit
Posted: Sun Apr 24, 2016 1:17 pm
by esgici
Hi Mr. Dave
bpd2000 wrote:I have tested on WinXP, Win10 with 32 bit OS and 64 bit OS
Any suggestion welcome
Thanks to detailed test info
Non essential, but a bit cosmetic proposal :
Code: Select all
Return (! EMPTY( hb_GetEnv( "ProgramW6432" )))
Regards

Re: IsWin64 Bit
Posted: Sun Apr 24, 2016 2:56 pm
by srvet_claudio
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.)
This is correct because WOW64 only exists in 64-bit Windows.
PD: WOW64 is the abrebiación of
Windows32
On
Windows
64
Re: IsWin64 Bit
Posted: Sun Apr 24, 2016 3:10 pm
by srvet_claudio
I will include:
Code: Select all
#xtranslate HMG_IsWin64() => IF( EMPTY( GetEnv( "ProgramW6432" ) ), .F., .T. )
Thanks Dave.