![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Свойство фала [D7, XP]
KyRo © (2006-05-17 13:59:00)Подскажите как узнать время создания и модификации файла ?
Fay (2006-05-17 14:34:00) [1]2 manevil (17.05.06 14:20) [2]
Фигня это. Не факт, что получится открыть файл.
Нужно брать FindFirst(File)
manevil (2006-05-17 14:20:00) [2]
function GetFileDate(TheFileName: string): string;
var
FHandle: integer;
begin
FHandle := FileOpen(TheFileName, 0);
result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
FileClose(FHandle);
end;
manevil (2006-05-17 14:19:00) [3]GetFileDate