Interface implementieren...

[MathiasSimmack]

Ich finde das wirklich gut, dass du es allein hinbekommen willst. Das ist mehr, als manch andere wollen. Aber andererseits: Ich habe meine Umsetzung erst absichtlich nicht gepostet, eben weil du es selbst machen wolltest. Dann hast du darum gebeten, und ich hab sie dir gezeigt.

Und da ich keine Probleme mit dem Auslesen der Versionsnummer habe, und weil ich notgedrungen die gleichen Befehle verwenden muss wie du (logisch, oder? ), spricht IMHO nichts dagegen, wenn du dir einfach mal nur diesen Teil meiner Umsetzung ansiehst.
Genauer gesagt: Ich habe das Rückgabeergebnis von "VerQueryValue" ignoriert und stattdessen geschaut ob meine pointer-Variable ungleich nil ist.

Delphi-Quellcode:

      VerQueryValue(vi,
        pchar(Format('\\StringFileInfo\\%.4x%.4x\\%s',
          [LOWORD(longint(translation^)),HIWORD(longint(translation^)),
          BlockKey])),ip,vis);
      if(ip = nil) then exit;

Wie gesagt, Null Probleme.