CNPack LastCompiledTime

[waldforest]

Hallo,
ich nutze unter Delphi7 das CNPack. Hier kann man aktivieren, dass in der Dateiinfo das
LastCompiledTime eingebunden wird.

Wie kann ich dies nun in meiner GetFileVersion Funktion abfragen ?

[himitsu]

Das Datum compiliert Delphi auch so schon mit ein (nur an anderer/falscher Stelle)

Der Code ließt erst die "normale" Stelle im WinNT-Image-File-Header aus, prüft ob dort eine gewisses Pseudodatum (BorlandMagicTimeStamp) rumgammelt.
Falls nicht, dann steht da vermutlich eine gültige Zeit und diese wird ausgegeben.
Und wenn doch dieser Borland-Wert vorliegt, dann hangelt sich der Code weiter zur anderen Stelle durch, wo dann der Wert von Borland/Delphi gespeichert ist.

http://www.michael-puff.de/Programmi...imeStamp.shtml
GetImageLinkTimeStamp

[waldforest]

Danke,

ist aufwändig, aber funktioniert.

[himitsu]

Wenn das CNPack wirklich den Wert im NT-Header setzt, dann könnte man einen (Groß)teil weglassen.

[Luckie]

Ich wollte noch anmerken, dass der Code von Nico ist, auch wenn ich ihn auf meiner Seite veröffentlicht habe.

[waldforest]

Hallo,
ich habs mal getestet.

Lediglich

Delphi-Quellcode:

// Read MS-DOS header to get the offset of the PE32 header
    // (not required on WinNT based systems - but mostly available)
    if not ReadFile(FileHandle, ImageDosHeader, SizeOf(TImageDosHeader),
      BytesRead, nil) or (BytesRead <> SizeOf(TImageDosHeader)) or
      (ImageDosHeader.e_magic <> IMAGE_DOS_SIGNATURE) then
    begin
      ImageDosHeader._lfanew := 0;
    end;

wird benötigt