안녕하세요!

파일의 속성을 보면 "요약"탭에 있는 정보들을 가져오고 싶은데
아무리 해봐도 모르겠네요

제목, 주제, 만든이, 키워드, 설명의 값들을 가져오고 싶은데
윈도우 API함수를 선언하고 파일명을 던저주고 돌려바도
값이 들어오질 않는군요!

function StgOpenStorageEx(const pwcsName : POleStr;  //Pointer to the path of the
                            //file containing storage object
grfMode : LongInt;         //Specifies the access mode for the object
stgfmt : DWORD;            //Specifies the storage file format
grfAttrs : DWORD;          //Reserved; must be zero
pStgOptions : Pointer;     //Address of STGOPTIONS pointer
reserved2 : Pointer;       //Reserved; must be zero
riid : PGUID;              //Specifies the GUID of the interface pointer
out stgOpen :              //Address of an interface pointer
IStorage ) : HResult; stdcall; external 'ole32.dll';
를 선언하구요

아래 함수가 메인 함수구요
function GetFileSummaryInfo(const FileName: WideString): String;
const
FmtID_SummaryInformation: TGUID =     '{F29F85E0-4FF9-1068-AB91-08002B27B3D9}';
FMTID_DocSummaryInformation : TGUID = '{D5CDD502-2E9C-101B-9397-08002B2CF9AE}';
FMTID_UserDefinedProperties : TGUID = '{D5CDD505-2E9C-101B-9397-08002B2CF9AE}';
IID_IPropertySetStorage : TGUID =     '{0000013A-0000-0000-C000-000000000046}';

{const
STGFMT_FILE = 3; //Indicates that the file must not be a compound file.
                 //This element is only valid when using the StgCreateStorageEx
                 //or StgOpenStorageEx functions to access the NTFS file system
                 //implementation of the IPropertySetStorage interface.
                 //Therefore, these functions return an error if the riid
                 //parameter does not specify the IPropertySetStorage interface,
                 //or if the specified file is not located on an NTFS file system volume.

STGFMT_ANY = 4; //Indicates that the system will determine the file type and
                //use the appropriate structured storage or property set
                //implementation.
                //This value cannot be used with the StgCreateStorageEx function.


// Summary Information
PID_TITLE        = 2;
PID_SUBJECT      = 3;
PID_AUTHOR       = 4;
PID_KEYWORDS     = 5;
PID_COMMENTS     = 6;
PID_TEMPLATE     = 7;
PID_LASTAUTHOR   = 8;
PID_REVNUMBER    = 9;
PID_EDITTIME     = 10;
PID_LASTPRINTED  = 11;
PID_CREATE_DTM   = 12;
PID_LASTSAVE_DTM = 13;
PID_PAGECOUNT    = 14;
PID_WORDCOUNT    = 15;
PID_CHARCOUNT    = 16;
PID_THUMBNAIL    = 17;
PID_APPNAME      = 18;
PID_SECURITY     = 19;

// Document Summary Information
PID_CATEGORY     = 2;
PID_PRESFORMAT   = 3;
PID_BYTECOUNT    = 4;
PID_LINECOUNT    = 5;
PID_PARCOUNT     = 6;
PID_SLIDECOUNT   = 7;
PID_NOTECOUNT    = 8;
PID_HIDDENCOUNT  = 9;
PID_MMCLIPCOUNT  = 10;
PID_SCALE        = 11;
PID_HEADINGPAIR  = 12;
PID_DOCPARTS     = 13;
PID_MANAGER      = 14;
PID_COMPANY      = 15;
PID_LINKSDIRTY   = 16;
PID_CHARCOUNT2   = 17;

var
I: Integer;
PropSetStg: IPropertySetStorage;
PropSpec: array of TPropSpec;
PropStg: IPropertyStorage;
PropVariant: array of TPropVariant;
Rslt: HResult;
S: String;
Stg: IStorage;
PropEnum: IEnumSTATPROPSTG;
HR : HResult;
PropStat: STATPROPSTG;
k : integer;


function PropertyPIDToCaption(const ePID: Cardinal): string;
begin
case ePID of
   PID_TITLE:
     Result := 'Title';
   PID_SUBJECT:
     Result := 'Subject';
   PID_AUTHOR:
     Result := 'Author';
   PID_KEYWORDS:
     Result := 'Keywords';
   PID_COMMENTS:
     Result := 'Comments';
   PID_TEMPLATE:
     Result := 'Template';
   PID_LASTAUTHOR:
     Result := 'Last Saved By';
   PID_REVNUMBER:
     Result := 'Revision Number';
   PID_EDITTIME:
     Result := 'Total Editing Time';
   PID_LASTPRINTED:
     Result := 'Last Printed';
   PID_CREATE_DTM:
     Result := 'Create Time/Date';
   PID_LASTSAVE_DTM:
     Result := 'Last Saved Time/Date';
   PID_PAGECOUNT:
     Result := 'Number of Pages';
   PID_WORDCOUNT:
     Result := 'Number of Words';
   PID_CHARCOUNT:
     Result := 'Number of Characters';
   PID_THUMBNAIL:
     Result := 'Thumbnail';
   PID_APPNAME:
     Result := 'Creating Application';
   PID_SECURITY:
     Result := 'Security';
   else
     Result := '$' + IntToHex(ePID, 8);
   end
end;

begin
Result := '';
//try
OleCheck(StgOpenStorageEx(PWideChar(FileName),
STGM_READ or STGM_SHARE_DENY_WRITE,
STGFMT_FILE,
//  STGFMT_ANY,
0, nil,  nil, @IID_IPropertySetStorage, stg));

PropSetStg := Stg as IPropertySetStorage;

OleCheck(PropSetStg.Open(FmtID_SummaryInformation,
    STGM_READ or STGM_SHARE_EXCLUSIVE, PropStg));

OleCheck(PropStg.Enum(PropEnum));
I := 0;

hr := PropEnum.Next(1, PropStat, nil);
  while hr = S_OK do
  begin
    inc(I);
    SetLength(PropSpec,I);
    PropSpec[i-1].ulKind := PRSPEC_PROPID;
    PropSpec[i-1].propid := PropStat.propid;
    hr := PropEnum.Next(1, PropStat, nil);
end;

SetLength(PropVariant,i);
Rslt := PropStg.ReadMultiple(i, @PropSpec[0], @PropVariant[0]);

if Rslt =  S_FALSE then Exit;

for k := 0 to i - 1 do
  begin
    S := '';
    if PropVariant[k].vt = VT_LPSTR then
      if Assigned(PropVariant[k].pszVal) then
       S := PropVariant[k].pszVal;

    S := Format(PropertyPIDToCaption(PropSpec[k].Propid)+ ' %s',[s]);
    if S <> '' then Result := Result + S + #13;
end;
// finally
// end;
end;




SHOWMESSAGE(GetFileSummaryInfo('D:\03_1024_768.jpg'));
라고 했는데 에러는 안나는데 리턴값이 그냥
author Title company subject
이렇게만 나오네요

GetFileSummaryInfo <= 이것으로 외국사이트에 가서 다 뒤져바도
GetFileSummaryInfo함수 내에서 어떻게 값을 뽑아내는지를 모르겠네요;;;

좀 보시고 아시는 분이나 다른 방법 있으신 분 꼭 좀 리플 바라겠습니다 ㅠ.ㅠ
수고하세요~~~