detectar si el Sistema Operativo es de 32 o 64 bits

[mgsoft]

Hola:

¿Hay alguna forma de saberlo?.

Muchas gracias,

[karinha]

???

Code: Select all  Expand view  RUN

IF ISWINXP()
   ? [32]
ELSE
    ? [16]
ENDIF
 

[Antonio Linares]

http://stackoverflow.com/questions/601089/detect-whether-current-windows-version-is-32-bit-or-64-bit

[mgsoft]

Maestro Antonio:

Muchas gracias por la info,

¿Cómo detecto si existe el proceso IsWow64Process?.

Muchas gracias,

[Antonio Linares]

Aqui tienes el código adaptado y funcionando. Ojo no lo he probado en Windows 64, solo en Windows 7 32.
http://msdn.microsoft.com/en-us/library/ms684139(VS.85).aspx

Code: Select all  Expand view  RUN

function Main()

   if ISWOW64()
      MsgInfo( "Windows 64 bits" )
   else
      MsgInfo( "Windows 32 bits" )
   endif

return nil

#pragma BEGINDUMP

#include <windows.h>
#include <hbapi.h>

typedef BOOL (WINAPI *LPFN_ISWOW64PROCESS) (HANDLE, PBOOL);

LPFN_ISWOW64PROCESS fnIsWow64Process;

HB_FUNC( ISWOW64 )
{
    BOOL bIsWow64 = FALSE;

    fnIsWow64Process = ( LPFN_ISWOW64PROCESS )
                       GetProcAddress( GetModuleHandle( TEXT( "kernel32" ) ), "IsWow64Process" );
 
    if( fnIsWow64Process )
        bIsWow64 = ! fnIsWow64Process( GetCurrentProcess(), &bIsWow64 );

    hb_retl( bIsWow64 );
}  

#pragma ENDDUMP
 

[mgsoft]

Hola:

Al final hice:

function IsOS64Bits()

LOCAL Win64 := GetENV("ProgramFiles(x86)")
LOCAL Result := .F.

IF !Empty(Win64)
Result := .T.
ELSE
Result := .F.
ENDIF


RETURN( Result )



Un saludo

[Antonio Linares]

Puedes simplificarla asi

Code: Select all  Expand view  RUN

function IsOS64Bits()

return ! Empty( GetEnv( "ProgramFiles(x86)" ) )
 

[sysctrl2]

o mas facil, Clic alterno a MIPC/Propiedades..

[mgsoft]

Antonio:

Muchas gracias.

César:

Lo que busco es detectarlo desde el código, de modo que la solución del maestro es la adecuada.