Identifies the bit value of the AVM process you are using at run time and returns this value as an INTEGER. Valid values are 32 for a 32-bit AVM and 64 for 64-bit AVM. For example, an application that uses a 32-bit Windows API through the DLL external procedure interface may need to pass different parameters to a function when running a 64-bit GUI client than when running a 32-bit GUI client. Using PROCESS-ARCHITECTURE, you can decide the parameters to pass.
This procedure displays a message indicating whether the AVM is a 32-bit or 64-bit process, whether the process is running on a 32-bit or 64-bit Windows machine:
r-prbits.p
DEFINE VARIABLE hProcess AS INTEGER NO-UNDO. DEFINE VARIABLE Wow64Process AS INTEGER NO-UNDO. DEFINE VARIABLE resultValue AS INTEGER NO-UNDO. IF PROCESS-ARCHITECTURE = 64 THEN /* 64-bit processes always run on 64-bit Windows */ MESSAGE "64-bit process running on 64-bit Windows". ELSE DO: /* If a 32-bit process is running under WOW64 it must be ** running on 64-bit Windows. Otherwise, it is running on ** 32-bit Windows. */ RUN GetCurrentProcess(OUTPUT hProcess). RUN IsWow64Process(hProcess, INPUT-OUTPUT Wow64Process, OUTPUT resultValue). MESSAGE "32-bit process running on " + (IF Wow64Process > 0 THEN "64" ELSE "32") + "-bit Windows". END. PROCEDURE GetCurrentProcess EXTERNAL "kernel32.dll": DEFINE RETURN PARAMETER hProcess AS LONG. END. PROCEDURE IsWow64Process EXTERNAL "kernel32.dll": DEFINE INPUT PARAMETER hProcess AS LONG. DEFINE INPUT-OUTPUT PARAMETER Wow64Process AS HANDLE TO LONG. DEFINE RETURN PARAMETER resultValue AS LONG. END. |