hmm ok,
evtl gehts auch ohne .NET
ich such jediglich etwas was folgendes macht, also ich brauche folgenden code in einer Delphi Variante:
Delphi-Quellcode:
Private Function GetVersion(ByVal file As String, ByVal position As Integer) As String
Dim Version As Integer
Dim subVersion As Integer
Dim subsubVersion As Integer
Dim br As New System.IO.BinaryReader(New System.IO.StreamReader(file).BaseStream)
br.BaseStream.Seek(position + 18 + 14, IO.SeekOrigin.Begin) ' Begin reading after "version:"
Version = br.ReadInt32
subVersion = br.ReadInt32
subsubVersion = br.ReadInt32
br.Close()
If Version = 0 Then Return ""
Return Version & "." & subVersion.ToString("00") & "." & subsubVersion.ToString("000")
End Function
Ich hoffe da gibts eine gute Lösung, dann brauch ich .NET garnicht.