is my delphi App x 64 ???

[bernhard_LA]

ich möchte feststellen ob meine App wirlich x64 ist und hierfür den eigenen PE Header zur Programmlaufzeit auslesen, klappt aber nicht da der Zugriff auf die exe zur Programmlaufzeit nicht geht? Was nun ??

var f : TFileStream;
begin



/// check if PE header is 32 or 64 bit
/// http://stackoverflow.com/questions/2...ither-delphi-o

f:=(TFileStream.Create(Application.ExeName,fmOpenR ead));

if Isx64(f) then
begin
RadioGroupBits.ItemIndex := 1;
end
else
begin
RadioGroupBits.ItemIndex := 0;
end;


f.free