Dateiinformationen aus Word und Excel-Dateien

[MathiasSimmack]

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.