Lesen erweiterter Dateiinformationen fehlgeschlagen!

[Necz]

Hallo liebe Delphi-Praxis-Community,

Ich habe zum Auslesen von erweiterten Dateiinformationen die Funktion von Mathias Simmeck benutzt, was nicht funktionierte ,da an der Stelle

Delphi-Quellcode:

  if(PropSetStg.Open(GUID_SummaryType,STGM_READ or
      STGM_SHARE_EXCLUSIVE,PropStg) = S_OK) then

die if-Bedingung nicht erfüllt wurde.
Kann mir jemand weiterhelfen?
Bzw. woran könnte es liegen?

edit: Die Fkt. PropSetStg.Open(GUID_SummaryType,STGM_READ or
STGM_SHARE_EXCLUSIVE,PropStg) liefert STG_E_FILENOTFOUND , was mich verwirrt,

da der Funktionsaufruf:

StgOpenStorageEx(pwidechar(FileName),STGM_READ or
STGM_SHARE_DENY_WRITE,STGFMT_ANY,0,nil,nil,
@IID_IPropertySetStorage,Stg)= S_OK

ist. Wieso taucht das STG_E_FILENOTFOUND nicht schon hier auf??

[p80286]

Hallo Necz,

Könnte es unter Umständen sein, daß Dir (dem Benutzerkonto mit dem Du arbeitest) die Zugriffsrechte fehlen? (FILE_READ_EA)

Gruß
K-H

[Necz]

Nein, die Zugriffsrechte besitze ich, trotzdem danke für die Antwort.