C / C++ / MFC

#include <stdio.h>
#include <windows.h>
#include <ole2.h>
#include <locale.h>

void DumpSummaryProps(IPropertySetStorage *pPropSetStg) {

  IPropertyStorage *pPropStg = NULL;
  HRESULT hr;
  PROPVARIANT propRead;

  // Open summary information, getting an IpropertyStorage.
  hr = pPropSetStg->Open(FMTID_SummaryInformation,
  STGM_READ | STGM_SHARE_EXCLUSIVE, &pPropStg);
	
  if(FAILED(hr)) 
  {
     printf("No Summary-Information.\n");
     return;
  }

  // Array of PIDSI's you are interested in.
  struct pidsiStruct {
     char *name;
     long pidsi;
  } pidsiArr[] = {
     {"Title",            PIDSI_TITLE}, // VT_LPSTR
     {"Subject",          PIDSI_SUBJECT}, // ...
     {"Author",           PIDSI_AUTHOR},
     {"Keywords",         PIDSI_KEYWORDS},
     {"Comments",         PIDSI_COMMENTS},
     {0, 0}
  };

  // Count elements in pidsiArr.
  int nPidsi = 0;
  for(nPidsi=0; pidsiArr[nPidsi].name; nPidsi++);

  // Initialize PROPSPEC for the properties you want.
  PROPSPEC *pPropSpec = new PROPSPEC [nPidsi];
  PROPVARIANT *pPropVar = new PROPVARIANT [nPidsi];

  for(int i=0; i<npidsi; i++)="">
  {
     ZeroMemory(&pPropSpec[i], sizeof(PROPSPEC));
     pPropSpec[i].ulKind = PRSPEC_PROPID;
     pPropSpec[i].propid = pidsiArr[i].pidsi;
  }
	
  // Read properties.
  hr = pPropStg->ReadMultiple(nPidsi, pPropSpec, pPropVar);
  
	<big>// hr return as S_FALSE</big>

  if(FAILED(hr)) 
  {
     printf("IPropertyStg::ReadMultiple() failed w/error %08lx\n", hr);
  }
  else 
  {
	  int i;
     // Dump properties.
     for(i=0; i<npidsi; i++)="">
	 {
        printf("%16s: ", pidsiArr[i].name);
        DumpPropVariant(pPropVar + i);
     }
  }

  // De-allocate memory.
  delete [] pPropVar;
  delete [] pPropSpec;

  // Release obtained interface.
  pPropStg->Release();

}

void DumpProps(char *filename) {
 
	// Translate filename to Unicode.
  WCHAR wcFilename[1024];
  setlocale( LC_ALL, "" );
  int i = mbstowcs(wcFilename, filename, strlen(filename));
  setlocale( LC_ALL, "C" );
  wcFilename[i] = 0;
  
  IStorage *pStorage = NULL;
  IPropertySetStorage *pPropSetStg = NULL;
  HRESULT hr;

 	hr = ::StgOpenStorageEx(wcFilename, STGM_READ | STGM_SHARE_EXCLUSIVE, STGFMT_FILE,
                0, NULL, 0, IID_IPropertySetStorage, (void**)&pPropSetStg);

	if (FALSE(hr))
	{
		printf("Error");
		return;
	}
	
  // Dump properties.
  DumpSummaryProps(pPropSetStg);

  // Release obtained interfaces.
  pPropSetStg->Release();
  pStorage->Release();
}

// Program entry-point.
void main() 
{
	char *s;

	// Pass filename to the subroutine.
	DumpProps("1.docx");
	scanf("%s",&s);
}</npidsi;></npidsi;></locale.h></ole2.h></windows.h></stdio.h>