Узнать разрядность процессора

[cleaner_it]

Все уже придумано до нас Вот тут

type
  LPFN_ISWOW64PROCESS = function(hProcess: THandle; var Wow64Process: BOOL): BOOL; stdcall;

function IsWow64: Boolean;
var
  fnIsWow64Process: LPFN_ISWOW64PROCESS;
  bIsWow64: BOOL;
begin
  Result := False;
  fnIsWow64Process := LPFN_ISWOW64PROCESS(GetProcAddress(GetModuleHandle('kernel32'), 'IsWow64Process'));
  if Assigned(fnIsWow64Process) then
  begin
    bIsWow64 := False;
    if fnIsWow64Process(GetCurrentProcess(), bIsWow64) then
      Result := bIsWow64;
  end;
end;

[fate]

а если воспользоваться дерективой

{$ifdef _WIN64}
{$ENDIF}

[Stilet]

а если воспользоваться дерективой

А вот тогда вопрос - версия Делфи какая?

[fate]

версия Делфи какая?

у меня delphi 7

[Stilet]

fate

Ну я допустим знаю что в VS такая директива есть... А в Делфи... Тем паче 7-ке...
А где эта директива описана? Вернее этот параметр _WIN64?

[fate]

ну я не знаю где он описан, но попробовал заключил код в эту дерективу и он не отработал у меня 32, у кого 64 попробуйте.

[cleaner_it]

В Delphi 2010 код отработал нормально. При переносе приложения на платформу x86 все тоже корректно отрабатывается

  
{$ifdef _WIN64}
//Это 64 битная система
{$ELSE}
//Это 32 битная система
{$ENDIF}

upd 2011-10-02
Похоже, это немного не то. Выяснил, что на 64-битной системе 32-битное приложение (Делфи 2010 других не создает) всегда использует блок {$ELSE}.