.net verwenden ???

[tabbi]

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.