| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Люди, кто знает как получить дату создания и или изменения файла

deep.1 ©   (2003-01-01 05:03:00) 

я думаю это просто, но понятия не имею как

---

Suntechnic   (2003-01-03 09:19:00) [1]

>!...Stel (01.01.03 10:09)
Не забывайте только за собой убирать:
FindClose

---

deep.1   (2003-01-01 14:53:00) [2]

спасибо

---

!...Stel   (2003-01-01 10:09:00) [3]

Можно ещё через FindFirsFile

procedureGetFileDate(FileName:pChar);
var
FIND_DATA:TWIN32FINDDATA;
begin
FindFirstFile(FileName, FIND_DATA);
FIND_DATA.ftCreationTime - Дата создания
FIND_DATA.ftLastWriteTime - Дата изменения
end;

---

Grab   (2003-01-01 05:43:00) [4]

function GetFileDate(FileName: string): string;
var
FHandle: Integer;
begin
FHandle := FileOpen(FileName, 0);
try
Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
finally
FileClose(FHandle);
end;
end;

ЗЫ. Временами читай FAQ... Часто помогает не тревожить людей лишними вопросами...

---

Наверх