is my delphi App x 64 ???

[himitsu]

Zitat:

klappt aber nicht da der Zugriff auf die exe zur Programmlaufzeit nicht geht

Wieso sollte es nicht gehn?

Du mußt allerdings die Datei auch mit entsprechenden Sharing-Rechten öffnen ... TFileStream öffnet alle Dateien aber "exklusiv".
(daß Borcodero daran immernoch nichts geändert hat, ist voll blöd ... zumindestens fremde Leserechte hätte man inzwischen mal erlauben können)

Zitat:

Entweder das IFDEF oder man prüft zur Laufzeit die Größe des Datentyp "Pointer".

Delphi-Quellcode:

{$IF SizeOf(Pointer) = 8}
  ... // 64 Bit
{$ELSE}
  ... // vermutlich 32 Bit
{$IFEND}

(das sollte in jedem Compiler gehn, welcher diese Conditional Expression unterstützt)

Delphi-Quellcode:

IF SizeOf(Pointer) = 8 THEN BEGIN
  ... // 64 Bit
END ELSE BEGIN
  ... // vermutlich 32 Bit
END;

oder man schaut eben, ob es entsprechende Defines gibt, ala CPUX64.