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 :arrow:

Thanks again Mr. Dave :)

Viva HMG :D

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 8-)

Non essential, but a bit cosmetic proposal :

Code: Select all

Return (! EMPTY( hb_GetEnv( "ProgramW6432" ))) 
Regards :D

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 Windows64

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.