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??