IsWin64 Bit

[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.)

[mol]

+1

[esgici]

Tested under win32 and worked fine

Thanks again Mr. Dave

Viva HMG

[andyglezl]

Gracias !

[serge_girard]

To be an official HMG function !

Thanks Dave,

Serge

[esgici]

Does someone (including author) tested for Win64 ?

Regards

[bpd2000]

I have tested on WinXP, Win10 with 32 bit OS and 64 bit OS
Any suggestion welcome

[esgici]

Hi Mr. Dave

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

[srvet_claudio]

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

[srvet_claudio]

I will include:

Code: Select all

#xtranslate HMG_IsWin64() => IF( EMPTY( GetEnv( "ProgramW6432" ) ), .F., .T. )

Thanks Dave.