Para saber si tu app de 32bits corre en un entorno de 64bits:
Código Delphi
[-]
function IsWow64(PID: DWORD): BOOL;
type TISWOW64PROCESS = function(hProc: THANDLE; var bIsWow64: BOOL): BOOL; stdcall;
var
_IsWow64Process: TISWOW64PROCESS;
hProc: THANDLE;
begin
Result:= false;
_IsWow64Process:= GetProcAddress(GetModuleHandle('Kernel32.dll'), 'IsWow64Process');
if @_IsWow64Process <> nil then
begin;
hProc:= OpenProcess(PROCESS_ALL_ACCESS, FALSE, PID);
_IsWow64Process(hProc, Result);
CloseHandle(hProc);
end;
end;
También puedes comprobar el tamaño de los punteros en tiempo de ejecución.
Saludos.