, niet - officiële documenten, een samenvatting van de informatie in het dossier, Windows 2000, kan je de klik toegang tot documenten eigenschap van een dossier, kan de beknopte informatie aan een soort van documenten, met inbegrip van de tekst.,,, in woord of in het dossier (samengestelde documenten) informatie is een deel van de documenten zelf. En voor andere vormen van opslag van documenten en aanvullende informatie is anders.Deze functie is alleen van toepassing op de vol - formaat is.In een ntfs - met - uitvoering van eigendom - winkel.Een kopie van de belangrijkste documenten moet worden begrepen de stand - by - stroom.Echter, niet alle documenten van de systemen ter ondersteuning van deze gegevens.Bijvoorbeeld, als een eigenschap van een ntfs - dossiers een dikke delen, maar de gegevens in het dossier gekopieerd; eigendom van verloren.,,, het eerste wat je moet doen is onderzocht of het huidige volume is ntsf:,,,, /isntfs () - omvang - verificatie van documenten is,,,,, isntfs (afilename:, touw, booleaanse):,,,,, var, FSO, DRV:olevariant;,,,,,,, isntfs:= valse; FSO:= createoleobject (,'scripting. Het kenmerk en);,, DRV:= FSO. Getdrive (fSO. Getdrivename (afilename);,,, als, drv.filesystem =,'ntfs "en,,,,,,,,, isntfs:= waar;,,, maar hoe deze attributen lezen?Is dit echt nodig een stroom van werk?En, nee, ntsf 5 biedt op de documenten ipropertysetstorage ntfs - volume van een interface van de uitvoering als de documenten zelf geen samengestelde dossier.Een punt dat ipropertysetstorage -, moesten we op zoek naar een stgcreatestorageex functie:,,,,,,, stgopenstorageex (totaal, pwcsname:polestr;,, //////////////de weg wijst, opslag van voorwerpen, documenten bevatten,,,,,, grfmode:LongInt; ///////wordt de toegang tot stand is stgfmt:DWORD;,,,,,, ///////aangewezen opslag formaat,,,,,, grfattrs:DWORD behouden moet nul; /;,,,,,, pstgoptions: aanwijzing; stgoptions /adres.,,,,,, het behoud van 2: aanwijzing; /behouden; moet nul zijn,,,,,, riid:pguid; ///////- Aanwijzing van bepaalde richtsnoeren,,,,,,,, stgopen:/adres, int- aanwijzing,,,, istorage): een stdcall; externe;,,,'ole32. Dll;,,,,, alle Microsoft Windows 2000 moet de toepassing van het gebruik van deze nieuwe functie, stgopenstorageex, in plaats van stgopenstorage, door gebruik te maken van de versterking van de structuur van de functie van Windows 2000 opgeslagen.,,, in een ntfs - systeem dat is ipropertysetstorage samengestelde dossier dat in 2000, maar die vergelijkbaar is met die van de ramen.Windows 95 en Windows NT 4 of eerder geen toegang hebben tot de interface, maar je kan niet tot de verwezenlijking van ipropertysetstorage -, samengestelde dossier.Wanneer een dossier openen, stgopenstorage samengestelde, op een onjuiste stgfmt_file aangewezen enumeration VALUE resultaten.,,, de volgende functies heeft alle eigenschappen van bepaalde documenten.Door de wijziging van de vlag van de telefoon in de stgopenstorageex stgfmt_file stgmt_any je open kan staan voor een gestructureerde opslag van goederen in of een ntfs - systeem is eigendom van,,,,, getfilesummaryinfo (totaal, naam: widestring):...,,,,,,,, fmtid_summaryinformation:const, 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 = "{} 13a-0000-0000-c000- 00000, 46 0000000000;,,,,,, stgfmt_file = totaal ///////3,,,,, het dossier niet is aangegeven; samengestelde dossier. Dit element is,. ///////de enige doeltreffende gebruik van de stgcreatestorageJa, en /of stgopenstorageex functie om toegang te krijgen tot de ntfs - systeem, dat ipropertysetstorage interface, ////////.,, dus deze functie is een fout, als riid,, ///////ipropertysetstorage interface parameters niet aangewezen, of, als het dossier niet in een ntfs - systeem deel.,,,,, stgfmt_any = 4;,,,, dat systeem zal beoordelen of de aard van het document (,, ///////gebruik van passende structuur van de opslag of eigenschap. //////////////uitvoering van Deze waarde kan niet.,, met stgcreatestorageex.,,,, ///////de beknopte informatie,,,, 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, 9, PID_HIDDENCOUNT =;,,,,,, PID_MMCLIPCOUNT =, 10, 11, PID_SCALE =;,,,,,, PID_HEADINGPAIR =, 12, 13, PID_DOCPARTS =;,,,,,, PID_MANAGER =, 14, 15, PID_COMPANY =;,,,,,, PID_LINKSDIRTY = 16, 17, PID_CHARCOUNT2 =;,,,,,,,,, I: het gehele getal; var, PropSetStg: IPropertySetStorage;,,,, PropSpec:, installatie van TPropSpec;,,,,, PropStg: IPropertyStorage; PropVariant:, reeks van TPropVariant;,,,,, Rslt: HResult;:, string. Stg: IStorage;,,,,,, PropEnum: IEnumSTATPROPSTG; HR: HResult;,,,, PropStat: STATPROPSTG; k: gehele getal;,,, functie, PropertyPIDToCaption (totaal, ePID:, kardinaal):, touw, ik,,,,,.,,, PID_TITLE: ePID, van,,, gevolg: ='Title'PID_SU;,,,,Doelstelling:,, de "betreft: =,,,,,,, pid_author: resultaten: =,'author;,,,,, pid_keywords: resultaten: =,'keywords;,,,,, pid_comments: resultaten: =,'comments;,,,,, pid_template: resultaten: =,'template,;,,,, pid_lastauthor: resultaten: =" redden ",,,,,, pid_revnumber: resultaten: aantal'revision =,",,,,,, pid_edittime: resultaten: =, algemene opmaak,,,,,, pid_lastprinted: resultaten: = "druk",,,,, de resultaten, pid_create_dtm:: =, "tijd", de datum van oprichting /;,,,, pid_lastsave_dtm: resultaten: =, "tijd /datum",,,,,, pid_pagecount: resultaten: = aantal pagina 's;,,,,,, pid_wordcount: resultaten: =, ",,, pid_charcou op een Aantal;NT:,, 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,,, ,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,;,, ,Tot slot, aan het einde van het einde,,,,,