DO declare
 
LOCAL nHandle, lWow64Process
 
nHandle = GetCurrentProcess()
lWow64Process = 0
 
IsWow64Process(nHandle, @lWow64Process)
 
CloseHandle(nHandle)
 
? IIF(lWow64Process = 0, "32-bit", "64-bit")
* end of main
 
PROCEDURE declare
    DECLARE INTEGER GetCurrentProcess IN kernel32
 
    DECLARE INTEGER CloseHandle IN kernel32 INTEGER hObject    
 
    DECLARE INTEGER IsWow64Process IN kernel32;
        INTEGER hProcess, INTEGER @Wow64Process