Как программно определить, запущены ли мы на 64-разрядной Windows?

Это перевод How to detect programmatically whether you are running on 64-bit Windows. Автор: Реймонд Чен.

Чтобы программно определить, запущены ли вы на 64-разрядной Windows, вы можете использовать функцию IsWow64Process, которая показывает, не запущен ли ваш 32-разрядный процесс в режиме эмуляции.

Но как вы программно определите, не запущен ли ваш 64-битный процесс на 64-битной Windows? Легко.

function Is64BitProcessRunningOn64BitWindows: Boolean;
begin
  Result := True;
end;

Тот факт, что ваша 64-разрядная программа работает, и означает, что вы запущены на 64-разрядной Windows! Если бы вы были на 32-разрядной машине, ваш код не смог бы запуститься.

Это всё равно, что спрашивать: "включен ли компьютер?". Если бы он был выключен, ваша программа не смогла бы задать вопрос.

Конечно же, если вам нужен единый исходный текст для компиляции и в 32-разрядную программу и в 64-разрядную, то вам нужно сделать немного больше работы:

function Is64BitWindows: Boolean;
var
  IsWow64Process: function(hProcess: THandle; out Wow64Process: Bool): Bool; stdcall;
  Wow64Process: Bool;
begin
  {$IF Defined(CPU64)}
  Result := True; // 64-битная программа запускается только на Win64
  {$ELSEIF Defined(CPU16)}
  Result := False; // Win64 не поддерживает 16-разрядные приложения
  {$ELSE}
  // 32-битные программы могут работать и на 32-разрядной и на 64-разрядной Windows
  // так что этот вопрос требует дальнейшего исследования
  IsWow64Process := GetProcAddress(GetModuleHandle(Kernel32), 'IsWow64Process');

  Wow64Process := False;
  if Assigned(IsWow64Process) then
    Wow64Process := IsWow64Process(GetCurrentProcess, Wow64Process) and Wow64Process;

  Result := Wow64Process;
  {$IFEND}
end;

Я добавил ветку для 16-битных программ на случай, если вы достаточно сумасшедший, чтобы писать их сегодня.

Примечание переводчика: поскольку в Delphi пока нет 64-разрядного компилятора, то не известно, как будут называться соответствующие директивы. Поэтому я взял директивы от FreePascal.