Einzelnen Beitrag anzeigen

bernhard_LA

Registriert seit: 8. Jun 2009
Ort: Bayern
1.138 Beiträge
 
Delphi 11 Alexandria
 
#1

is my delphi App x 64 ???

  Alt 4. Sep 2011, 09:31
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
  Mit Zitat antworten Zitat