Question

我有一个文件夹的pidl（可能存在或已被删除）。

我可以使用以下代码获得IShellItem，但我需要的是获取该文件夹的创建日期。我认为我可以用PKEY_DateCreated得到它，但我不知道如何。

SHCreateShellItem(nil, nil, pidl, ShellItem);

我该怎么做？

我使用Delphi。

Answer 1

Pure Winapi示例：

IShellItem2* pItem2 = NULL;
hr = pItem->QueryInterface(&pItem2);
if (SUCCEEDED(hr))
{
   FILETIME ft = {0};
   pItem2->GetFileTime(PKEY_DateCreated, &ft);
   SYSTEMTIME st = {0};
   ::FileTimeToSystemTime(&ft, &st);
   wprintf(
       L"Date Created: %04d-%02d-%02d %02d:%02d:%02d\n", 
       st.wYear, st.wMonth, st.wDay, st.wHour, st.wMinute, st.wSecond);
   pItem2->Release();
}

同样正如David Heffernan指出的那样，你确定所有 shell项目都有创建日期？

翻译成Delphi，看起来像这样：

var
  Item: IShellItem;
  Item2: IShellItem2;
  ft: TFileTime;
  st: TSystemTime;
....
Item2 := Item as IShellItem2;
OleCheck(Item2.GetFileTime(PKEY_DateCreated, ft));
Win32Check(FileTimeToSystemTime(ft, st));

Answer 2

如果您有PIDL，可以使用 SHGetDataFromIDList 来获取对象的基本属性;您根本不需要IShellItem（或IShellItem2）。您可以为 nFormat 参数指定 SHGDFIL_FINDDATA （请参阅SHGetDataFromIDList 详情）。

关于这一点的好处是，对于标准文件系统对象，元数据在PIDL本身中编码，因此即使对象不再存在，函数也将返回有用的数据。

Answer 3

获取创建日期

使用IShellItem2

IShellItem2扩展了IShellItem，其中添加了许多帮助程序方法以从属性系统检索类型化的属性。

var
   ft: FILETIME;
   createdDate: TDateTime;

// IShellItem2 provides many handy helper methods to IShellItem
(shellItem as IShellItem2).GetFileTime(PKEY_DateCreated, {out}ft);

createdDate := FileTimeToDateTime(ft);

使用IShellItem

~~Windows Vista~~ Windows XP ¹添加了IShellItem，将[IShellFolder] + [ITEMID_CHILD]包裹到一个对象中。 Windows Vista添加了丰富的属性系统，IPropertyStore是一组键值对属性（包括PKEY_DateCreated）：

var
   ps: IPropertyStore;
   pv: TPropVariant;
   ft: FILETIME;
   createdDate: TDateTime;

//Get the IPropertyStore yourself, in order to read the property you want
shellItem.BindToHandler(nil, BHID_PropertyStore, IPropertyStore, {out}ps);
ps.GetValue(PKEY_DateCreated, {out}pv);  
PropVariantToFileTime(pv, PSTF_UTC, {out}ft);

createdDate := FileTimeToDateTime(ft);

使用IShellFolder

IShellFolder是原始的Windows 95界面。它仅代表一个文件夹，您必须询问该文件夹中的项目（ITEMID_CHILD）。 Vista之前没有PKEY_DateCreated，因为财产系统在直到 Vista都不存在。但是文件和文件夹仍然具有 CreationTime

var
   folder: IShellFolder;
   parent: PIDLIST_ABSOLUTE;
   child: PITEMID_CHILD;
   findData: WIN32_FIND_DATA;

// We have an IShellItem that represents IShellFolder+ChildItemID. 
// Ask the IShellItem to cough up its IShellFolder and child pidl
(shellItem as IParentAndItem).GetParentAndItem(parent, folder, child);

// Get the WIN32_FIND_DATA information associated with the child file/folder
SHGetDataFromIDList(folder, child, SHGDFIL_FINDDATA, findData, sizeof(findData));

createdDate := FileTimeToDateTime(findData.ftCreationTime);

如何检索IShellItem的创建日期？

3 个答案:

获取创建日期