IPropertyStorage und Properties auslesen

[Ultimator]

Herrlich, ständig ein Problem haben zu können

Also folgendes: Ich erhalte ein gefülltes Storage (Typ IPropertyStorage) von einer Funktion.
Nun hab ich mir schon einiges zum Thema Auslesen der Werte und Propertynamen durchgelesen, aber habs nie wirklich geschafft
Und zwar brauche ich den Wert der Property "VolumeName" des Storage.
Das Storage hat folgende Propertynamen:

Zitat:

Current properties include:
VolumeName
PlaceBootImageOnDisc
BootImageManufacturerIDString
BootImagePlatform
BootImageEmulationType
BootImage

Wie komm ich jetzt aber an den Wert der "VolumeName"-Property?

Das ist der Code, den ich bisher hab:

Delphi-Quellcode:

var
pPropStg: IPropertyStorage;
propSpec:  array of TPropSpec;
propvar: array of TPropVariant;
setlength(propspec, 1);
    setlength(propvar, 1);
    ZeroMemory(@propSpec[0], sizeof(TPropSpec));
    ZeroMemory(@PropVar[0], sizeof(TPropVariant));
    propSpec[0].ulkind := PRSPEC_LPWSTR;
    propSpec[0].lpwstr := 'VolumeName';
    hr2 := pPropstg.ReadMultiple(1, @propSpec[0], @propvar[0]);

Nach dem pPropStg.ReadMultiple müsste doch theoretisch in propvar[0] der Wert der VolumeName-Property stehen, oder nicht?
Tuts aber nicht...

Ich hoffe, ihr könnt mir helfen.