Detect if a VB6 App is Running on a 64 bit Operating System

Category:

System/API

Type:

Snippets

Difficulty:

Intermediate

Author:

Spider Harper

Version Compatibility: Visual Basic 6

More information:

This is a simple set of functions to determine if your VB6 (32-bit) code is running on a 64-bit windows operating system, using WOW64. I have tested it on W2K SP4 Server (32-bit), XP Pro (32-Bit) and W2K3 SP1 Server (64-Bit).

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Private Declare Function GetProcAddress Lib "kernel32" _ (ByVal hModule As Long, _ ByVal lpProcName As String) As Long Private Declare Function GetModuleHandle Lib "kernel32" _ Alias "GetModuleHandleA" _ (ByVal lpModuleName As String) As Long Private Declare Function GetCurrentProcess Lib "kernel32" _ () As Long Private Declare Function IsWow64Process Lib "kernel32" _ (ByVal hProc As Long, _ bWow64Process As Boolean) As Long

Code: