¿Saber si es un vista x32 o x64?

[mayusod]

Alguien sabe si existe una api o reseña en el registro o algo que me pueda indicar si el sistema operativo en un vista de 32 bit o de 64

[dec]

Hola,

No estoy seguro, pero, parece que podría usarse la función "IsWow64Process()". Aquí tienes una posible implementación en Delphi. La copio aquí por si las moscas:

Código Delphi [-]
class function TOSInfo.IsWOW64: Boolean;
type
  TIsWow64Process = function( // Type of IsWow64Process API fn
    Handle: THandle;
    var Res: BOOL
  ): BOOL; stdcall;
var
  IsWow64Result: BOOL;              // result from IsWow64Process
  IsWow64Process: TIsWow64Process;  // IsWow64Process fn reference
begin
  // Try to load required function from kernel32
  IsWow64Process := GetProcAddress(
    GetModuleHandle('kernel32'), 'IsWow64Process'
  );
  if Assigned(IsWow64Process) then
  begin
    // Function is implemented: call it
    if not IsWow64Process(GetCurrentProcess, IsWow64Result) then
      raise Exception.Create('Bad process handle');
    // Return result of function
    Result := IsWow64Result;
  end
  else
    // Function not implemented: can't be running on Wow64
    Result := False;
end;

[ZayDun]

En la secuencia de arranque del vista se carga el "hibrsm32.exe" o hibrsm64.exe tan solo busca donde esta ese archivo y comprueba si es 32 o 64. tambien creo que puedes comprobar la ruta de la carpeta \Windows\ SysWow64 para x64 o \Windows\system32 para x32. Saludos