| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Время создания директории. [D6, Win95/98, Win2k, WinXP]
Alexis © (2003-11-30 14:44:00)
Насколько я знаю, с помошью процедуры 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" выдается совершенно верный ответ(но мне нужно время созд.директории) !
В чем причина ?
Заранее благодарен за ответы.
DDA (2003-11-30 16:38:00) [1]
А может кто-нибудь знает как установить на папку время создания?
Кто -нибудь подскажите
Бином Ньютоныч (2003-11-30 16:15:00) [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));
DVM (2003-11-30 15:28:00) [3]
Попробуй SHGetFileInfo, там среди прочего есть кажется и это.
| |
