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.