Hola:
¿Hay alguna forma de saberlo?.
Muchas gracias,
IF ISWINXP()
? [32]
ELSE
? [16]
ENDIF
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
function IsOS64Bits()
return ! Empty( GetEnv( "ProgramFiles(x86)" ) )
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: AdsBot [Google] and 39 guests