Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: DLL prüfen

    Delphi
    by DieDolly, 3. Apr 2019
  Ups. Richtig. Stream hinzugefügt aber den alten nicht gelöscht :pale:
  
  Hier nochmal alles richtig mit überladenen Prozeduren
  
  
  function Isx64(const Strm: TStream): Boolean; overload;
  const
  IMAGE_FILE_MACHINE_I386 = $014C; // Intel x86
  IMAGE_FILE_MACHINE_IA64 = $0200; // Intel Itanium Processor Family (IPF)
  IMAGE_FILE_MACHINE_AMD64 = $8664; // x64 (AMD64 or EM64T)
• Forum: Object-Pascal / Delphi-Language

  AW: DLL prüfen

    Delphi
    by DieDolly, 3. Apr 2019
  Kann man die Funktion eventuell auch so verwenden?
  
  
  function Isx64(const FileName: string): Boolean;
  const
  IMAGE_FILE_MACHINE_I386 = $014C; // Intel x86
  IMAGE_FILE_MACHINE_IA64 = $0200; // Intel Itanium Processor Family (IPF)
  IMAGE_FILE_MACHINE_AMD64 = $8664; // x64 (AMD64 or EM64T)
  // You'll unlikely encounter the things below:
  IMAGE_FILE_MACHINE_R3000_BE = $160; // MIPS...
• Forum: Object-Pascal / Delphi-Language

  AW: DLL prüfen

    Delphi
    by DieDolly, 3. Apr 2019
  Vielleicht funktioniert das ja. Braucht aber JCL.
  
  
  // Source:
  // https://stackoverflow.com/questions/2748474/how-to-determine-if-dll-file-was-compiled-as-x64-or-x86-bit-using-either-delphi
  
  function Isx64(const Strm: TStream): Boolean;
  const
  IMAGE_FILE_MACHINE_I386 = $014c; // Intel x86
  IMAGE_FILE_MACHINE_IA64 = $0200; // Intel Itanium Processor Family (IPF)