Problem gelöst -
Schau mal bitte in die Funktion "GetFileSummaryInfo" in meiner "storage.pas"-
Unit. Da steht eine Zeile:
Delphi-Quellcode:
if(StgOpenStorageEx(pwidechar(FileName),STGM_READ or STGM_SHARE_DENY_WRITE,
STGFMT_FILE,0,nil,nil,@IID_IPropertySetStorage,Stg) = S_OK) then
Wenn du
STGFMT_FILE durch
STGFMT_ANY ersetzt, kommst du auch an die Infos von Office-Dateien ran, die nicht auf NTFS-Partitionen liegen.
PS: Bitte auf die Kategorie (ich nenn´s mal so!) achten:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
dummy : string;
begin
dummy := GetFileSummaryInfo(
'd:\Ordner_auf_FAT32_Partition\Datei.doc',
FMTID_SummaryInformation, // <-- normale Info
PIDSI_AUTHOR);
ShowMessage(dummy);
dummy := GetFileSummaryInfo(
'd:\Ordner_auf_FAT32_Partition\Datei.doc',
FMTID_DocSummaryInformation, // <-- spezielle Office-Info
PIDDSI_COMPANY);
ShowMessage(dummy);
end;
Wollte ich nur anmerken.