Время создания директории.

← →
Alexis © (2003-11-30 14:44) [0]

Насколько я знаю, с помошью процедуры GetFileTime можно получить время создания файла, но не директории.Попытался получить время создания директории с GetFileAttributesEx :

var
Handle: HFILE;
FTime: TFileTime;
STime: TSystemTime;
DTime:TDateTime;
datadir: WIN32_FIND_DATA;
begin
GetFileAttributesEx("C:\Program Files",GetFileExInfoStandard,@datadir);
FileTimeToSystemTime(datadir.ftCreationTime, STime);
DTime:=SystemTimeToDateTime(STime);
showmessage("vremia sozdanija direktorii= "+FormatDateTime("c",DTime));
end.

Результат таков: "vremia sozdanija direktorii= 01.01.01" ???
При изменении условия на "C:\Program Files\file.xxx" выдается совершенно верный ответ(но мне нужно время созд.директории) !

В чем причина ?
Заранее благодарен за ответы.

← →
DVM © (2003-11-30 15:28) [1]

Попробуй SHGetFileInfo, там среди прочего есть кажется и это.

← →
Бином Ньютоныч (2003-11-30 16:15) [2]

Ft: TFileTime;
St: TSystemTime;
Dt: TDateTime;
s: string;
Sr: TSearchRec;
Res: Cardinal;
begin
Res:=FindFirst("C:\Program files", FILE_ATTRIBUTE_DIRECTORY, Sr);
if Res = 0 then
begin
FT:=SR.FindData.ftCreationTime;
FindClose(Sr);
FileTimeToSystemTime(Ft, St);
Dt:=SystemTimeToDateTime(St);
DateTimeToString(s, "", Dt);
ShowMessage(s);
end
else
ShowMessage(SysErrorMessage(Res));

А может кто-нибудь знает как установить на папку время создания?
Кто -нибудь подскажите

Время создания директории. Найти похожие ветки