✔ Übersetzungsdatum

[MikeBi]

Hallo,

ist eigentlich irgendwo das Übersetzungsdatum hinterlegt. Oder gibt es eine Möglichkeit das zu integrieren, um es zur Laufzeit anzeigen zu können.

Mike

 

[Shakie]

Es gibt da etwas, das weiß alles. Und dieses etwas heißt Google. Und Google zeigte mir diesen Link:
http://www.codinghorror.com/blog/archives/000264.html
Wo wiederum folgender Code hinterlegt ist:

Function RetrieveLinkerTimestamp(ByVal filePath As String) As DateTime
  Const PeHeaderOffset As Integer = 60
  Const LinkerTimestampOffset As Integer = 8

  Dim b(2047) As Byte
  Dim s As Stream
  Try
    s = New FileStream(filePath, FileMode.Open, FileAccess.Read)
    s.Read(b, 0, 2048)
  Finally
    If Not s Is Nothing Then s.Close()
  End Try
  
  Dim i As Integer = BitConverter.ToInt32(b, PeHeaderOffset)
  
  Dim SecondsSince1970 As Integer = BitConverter.ToInt32(b, i + LinkerTimestampOffset)
  Dim dt As New DateTime(1970, 1, 1, 0, 0, 0)
  dt = dt.AddSeconds(SecondsSince1970)
  dt = dt.AddHours(TimeZone.CurrentTimeZone.GetUtcOffset(dt).Hours)
  Return dt
End Function

 

[MikeBi]

Vielen Dank.
Habe selber nichts durch Google gefunden.

Mike