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 ?

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

Danke,

ist aufwändig, aber funktioniert.

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

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

Hallo,
ich habs mal getestet.

Lediglich

markieren

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