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.