Hola:
驴Hay alguna forma de saberlo?.
Muchas gracias, 
Saludos,
Eduardo
Eduardo
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour detectar si el Sistema Operativo es de 32 o 64 bits
???
IF ISWINXP()
? [32]
ELSE
? [16]
ENDIFJo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
Maestro Antonio:
Muchas gracias por la info,
驴C贸mo detecto si existe el proceso IsWow64Process?.
Muchas gracias,
Saludos,
Eduardo
Eduardo
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
http://msdn.microsoft.com/en-us/library/ms684139(VS.85).aspx
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 ENDDUMPHola:
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
Saludos,
Eduardo
Eduardo
Puedes simplificarla asi 
function IsOS64Bits()
return ! Empty( GetEnv( "ProgramFiles(x86)" ) )
o mas facil, Clic alterno a MIPC/Propiedades.. 
Cesar Cortes Cruz
SysCtrl Software
Mexico
' Sin +- FWH es mejor "
SysCtrl Software
Mexico
' Sin +- FWH es mejor "
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.
Saludos,
Eduardo
Eduardo