Wie kann ich eine 64bit-Anwendung erkennen?

[ringli]

Danke für deine Antwort.

Ich habe mir jetzt auf Basis von ErazerZ's Portable Executable File Unit die folgende Funktion erstellt:

Delphi-Quellcode:

function Is64bitPE(FileName : String) : Boolean;
const
  x64 = $8664;
var
  PE : TPeFile;
begin
  Result := False;
  PE := TPeFile.Create;
  try
    if PE.LoadFromFile(FileName) then
      begin
        if PE.ImageNtHeaders.FileHeader.Machine = x64 then
          begin
            Result := True;
          end;
      end;
  finally
    PE.Free;
  end;
end;

Für meinen Anwendungsfall funktioniert es so jedenfalls.